Commit 5599f3d1 authored by Robbert Krebbers's avatar Robbert Krebbers Committed by Jacques-Henri Jourdan
Browse files

Change the order of some IntoWand premises to avoid backtracking.

Otherwise, whenever it cannot establish the Absorbing or Affine premise,
it will backtrack on the FromAssumption premise, causing a possible loop.
No idea why this happens, this may be a Coq bug...
parent 8022419a
...@@ -164,19 +164,19 @@ Proof. ...@@ -164,19 +164,19 @@ Proof.
Qed. Qed.
Global Instance into_wand_impl_false_true P Q P' : Global Instance into_wand_impl_false_true P Q P' :
FromAssumption true P P' Absorbing P' Absorbing P' FromAssumption true P P'
IntoWand false true (P' Q) P Q. IntoWand false true (P' Q) P Q.
Proof. Proof.
rewrite /IntoWand /FromAssumption /= => HP ?. apply wand_intro_l. rewrite /IntoWand /FromAssumption /= => ? HP. apply wand_intro_l.
rewrite -(bare_persistently_idemp P) HP. rewrite -(bare_persistently_idemp P) HP.
by rewrite -persistently_and_bare_sep_l persistently_elim_absorbing impl_elim_r. by rewrite -persistently_and_bare_sep_l persistently_elim_absorbing impl_elim_r.
Qed. Qed.
Global Instance into_wand_impl_true_false P Q P' : Global Instance into_wand_impl_true_false P Q P' :
FromAssumption false P P' Affine P' Affine P' FromAssumption false P P'
IntoWand true false (P' Q) P Q. IntoWand true false (P' Q) P Q.
Proof. Proof.
rewrite /FromAssumption /IntoWand /= => HP ?. apply wand_intro_r. rewrite /FromAssumption /IntoWand /= => ? HP. apply wand_intro_r.
rewrite -persistently_and_bare_sep_l HP -{2}(affine_bare P') bare_and_l -bare_and_r. rewrite -persistently_and_bare_sep_l HP -{2}(affine_bare P') bare_and_l -bare_and_r.
by rewrite bare_persistently_elim impl_elim_l. by rewrite bare_persistently_elim impl_elim_l.
Qed. Qed.
......
Markdown is supported
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