diff --git a/theories/proofmode/class_instances.v b/theories/proofmode/class_instances.v index 61013accb9a65a1a05267b79995015d3b711bda6..d3fdf8944876c0109ec9b2864084f2e9c124f413 100644 --- a/theories/proofmode/class_instances.v +++ b/theories/proofmode/class_instances.v @@ -609,9 +609,10 @@ Global Instance make_later_default P : MakeLater P (▷ P) | 100. Proof. done. Qed. 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. - rewrite /Frame /MakeLater /IntoLaterN=>-> <- <-. + rewrite /Frame /MakeLater /IntoLaterN=>-[->] <- <-. by rewrite persistently_if_later later_sep. Qed. @@ -622,9 +623,10 @@ Global Instance make_laterN_default P : MakeLaterN n P (▷^n P) | 100. Proof. done. Qed. 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. - rewrite /Frame /MakeLater /IntoLaterN=>-> <- <-. + rewrite /Frame /MakeLater /IntoLaterN=>-[->] <- <-. by rewrite persistently_if_laterN laterN_sep. Qed.