Skip to content
Snippets Groups Projects
Commit 4ffff895 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Merge branch 'ci/robbert/no_backtracking' into 'master'

Use `NoBackTrack` type class for framing with ▷

Closes #153

See merge request FP/iris-coq!112
parents ae3b6560 5e3416d3
No related branches found
No related tags found
1 merge request!112Use `NoBackTrack` type class for framing with ▷
Pipeline #
...@@ -12,5 +12,5 @@ remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris"] ...@@ -12,5 +12,5 @@ remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris"]
depends: [ depends: [
"coq" { (>= "8.6.1" & < "8.8~") | (= "dev") } "coq" { (>= "8.6.1" & < "8.8~") | (= "dev") }
"coq-mathcomp-ssreflect" { (>= "1.6.1" & < "1.7~") | (= "dev") } "coq-mathcomp-ssreflect" { (>= "1.6.1" & < "1.7~") | (= "dev") }
"coq-stdpp" { (= "dev.2018-02-02.0") | (= "dev") } "coq-stdpp" { (= "dev.2018-02-08.0") | (= "dev") }
] ]
...@@ -638,9 +638,10 @@ Global Instance make_later_default P : MakeLater P (▷ P) | 100. ...@@ -638,9 +638,10 @@ Global Instance make_later_default P : MakeLater P (▷ P) | 100.
Proof. done. Qed. Proof. done. Qed.
Global Instance frame_later p R R' P Q Q' : Global Instance frame_later p R R' P Q Q' :
IntoLaterN 1 R' R Frame p R P Q MakeLater Q Q' Frame p R' ( P) Q'. NoBackTrack (IntoLaterN 1 R' R)
Frame p R P Q MakeLater Q Q' Frame p R' ( P) Q'.
Proof. Proof.
rewrite /Frame /MakeLater /IntoLaterN=>-> <- <-. rewrite /Frame /MakeLater /IntoLaterN=>-[->] <- <-.
by rewrite persistently_if_later later_sep. by rewrite persistently_if_later later_sep.
Qed. Qed.
...@@ -651,9 +652,10 @@ Global Instance make_laterN_default P : MakeLaterN n P (▷^n P) | 100. ...@@ -651,9 +652,10 @@ Global Instance make_laterN_default P : MakeLaterN n P (▷^n P) | 100.
Proof. done. Qed. Proof. done. Qed.
Global Instance frame_laterN p n R R' P Q Q' : Global Instance frame_laterN p n R R' P Q Q' :
IntoLaterN n R' R Frame p R P Q MakeLaterN n Q Q' Frame p R' (▷^n P) Q'. NoBackTrack (IntoLaterN n R' R)
Frame p R P Q MakeLaterN n Q Q' Frame p R' (▷^n P) Q'.
Proof. Proof.
rewrite /Frame /MakeLater /IntoLaterN=>-> <- <-. rewrite /Frame /MakeLater /IntoLaterN=>-[->] <- <-.
by rewrite persistently_if_laterN laterN_sep. by rewrite persistently_if_laterN laterN_sep.
Qed. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment