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

Fix issue #153 by using `NoBackTrack` in the `Frame` instances for ▷.

parent 80a99e7e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/proofmode/class_instances.v
+ 6
− 4
View file @ 5e3416d3
...@@ -609,9 +609,10 @@ Global Instance make_later_default P : MakeLater P (▷ P) | 100. ...@@ -609,9 +609,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.
...@@ -622,9 +623,10 @@ Global Instance make_laterN_default P : MakeLaterN n P (▷^n P) | 100. ...@@ -622,9 +623,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% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment