Skip to content
Snippets Groups Projects
Commit 0c801b09 authored by Ralf Jung's avatar Ralf Jung
Browse files

some comments

parent f8efeaaf
No related branches found
No related tags found
No related merge requests found
...@@ -64,12 +64,13 @@ Global Instance inv_always_stable N P : AlwaysStable (inv N P) := _. ...@@ -64,12 +64,13 @@ Global Instance inv_always_stable N P : AlwaysStable (inv N P) := _.
Lemma always_inv N P : ( inv N P)%I inv N P. Lemma always_inv N P : ( inv N P)%I inv N P.
Proof. by rewrite always_always. Qed. Proof. by rewrite always_always. Qed.
(* We actually pretty much lose the abolity to deal with mask-changing view (* There is not really a way to provide versions of pvs_openI and pvs_closeI
shifts when using `inv`. This is because we cannot exactly name the invariants that work with inv. The issue is that these rules track the exact current
any more. But that's okay; all this means is that sugar like the atomic mask too precisely. However, we *can* provide abstract rules by
triples will have to prove its own version of the open_close rule performing both the opening and the closing of the invariant in the rule,
by unfolding `inv`. *) and then implicitly framing all the unused invariants around the
(* TODO Can we prove something that helps for both open_close lemmas? *) "inner" view shift provided by the client. *)
Lemma pvs_open_close E N P Q : Lemma pvs_open_close E N P Q :
nclose N E nclose N E
(inv N P (P -★ pvs (E nclose N) (E nclose N) (P Q))) pvs E E Q. (inv N P (P -★ pvs (E nclose N) (E nclose N) (P Q))) pvs E E Q.
......
...@@ -158,6 +158,11 @@ Lemma pvs_mask_frame_mono E1 E1' E2 E2' P Q : ...@@ -158,6 +158,11 @@ Lemma pvs_mask_frame_mono E1 E1' E2 E2' P Q :
P Q pvs E1' E2' P pvs E1 E2 Q. P Q pvs E1' E2' P pvs E1 E2 Q.
Proof. intros HE1 HE2 HEE ->. by apply pvs_mask_frame'. Qed. Proof. intros HE1 HE2 HEE ->. by apply pvs_mask_frame'. Qed.
(* It should be possible to give a stronger version of this rule
that does not force the conclusion view shift to have twice the
same mask. However, even expressing the side-conditions on the
mask becomes really ugly then, and we have now found an instance
where that would be useful. *)
Lemma pvs_trans3 E1 E2 Q : Lemma pvs_trans3 E1 E2 Q :
E2 E1 pvs E1 E2 (pvs E2 E2 (pvs E2 E1 Q)) pvs E1 E1 Q. E2 E1 pvs E1 E2 (pvs E2 E2 (pvs E2 E1 Q)) pvs E1 E1 Q.
Proof. Proof.
......
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