Skip to content
Snippets Groups Projects
Commit 00dcccaa authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

update wrt the most recent version of GPM.

parent 6555ffaa
No related branches found
No related tags found
No related merge requests found
......@@ -36,8 +36,8 @@ Proof using.
{ applys~ rule_consequence (rm M). xpull~. }
Qed.
Instance triple_as_valid t H Q : AsValid (triple t H Q) (H - wp t Q).
Proof. rewrite /AsValid wp_equiv. apply as_valid. Qed.
Instance triple_as_valid t H Q : AsEmpValid (triple t H Q) (H - wp t Q).
Proof. rewrite /AsEmpValid wp_equiv. apply as_emp_valid. Qed.
Instance frame_wp p t R Φ Ψ :
( v, Frame p R (Φ v) (Ψ v)) Frame p R (wp t Φ) (wp t Ψ).
......@@ -56,7 +56,3 @@ Qed.
(* ********************************************************************** *)
End ProofMode.
......@@ -189,7 +189,7 @@ Instance frame_normally (p : bool) (P Q R R' : hprop) :
Normal P Frame false P Q R MakeNormally R R'
Frame p P (normally Q) R'.
Proof.
rewrite /Frame /MakeNormally /= bi.affinely_persistently_if_elim =>? <- <-.
rewrite /Frame /MakeNormally /= bi.intuitionistically_if_elim =>? <- <-.
rewrite {1}(@normally_intro P) normally_hstar //.
Qed.
......@@ -273,7 +273,7 @@ Instance frame_roframe_ro_lr p (R P P' Q Q' S : hprop) :
MakeROFrame P' Q' S Frame p (RO R) (ROFrame P Q) S | 1.
Proof.
rewrite /Frame /DupFrameRO /FrameOrWand /MakeROFrame
bi.affinely_persistently_if_elim=><- <- ->.
bi.intuitionistically_if_elim=><- <- ->.
assert (HR:=@RO_duplicatable R). unfold duplicatable in HR. rewrite {1}HR.
by rewrite /bi_sep /= hstar_assoc ROFrame_frame_r ROFrame_frame_l.
Qed.
......@@ -289,7 +289,7 @@ Instance frame_roframe_lr p (R P P' Q Q' S : hprop) :
Frame p R (ROFrame P Q) S | 3.
Proof.
rewrite /DupFrameRO /FrameOrWand /MakeROFrame /Frame
bi.affinely_persistently_if_elim =>? <- <- ->. apply ROFrame_frame_lr, _.
bi.intuitionistically_if_elim =>? <- <- ->. apply ROFrame_frame_lr, _.
Qed.
(* 4th step: we frame on the RHS *)
......
......@@ -2,7 +2,7 @@
opam repo add iris-dev https://gitlab.mpi-sws.org/FP/opam-dev.git
opam update
opam install coq-iris=branch.gen_proofmode.2018-03-16.1
opam install coq-iris=branch.gen_proofmode.2018-05-29.0.9b14f90a
*)
......
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