Commit a0d14ab6 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Misc clean up.

parent fdc22ecc
...@@ -148,9 +148,9 @@ Proof. by rewrite (commutative _) pvs_impl_l. Qed. ...@@ -148,9 +148,9 @@ Proof. by rewrite (commutative _) pvs_impl_l. Qed.
Lemma pvs_mask_frame' E1 E1' E2 E2' P : Lemma pvs_mask_frame' E1 E1' E2 E2' P :
E1' E1 E2' E2 E1 E1' = E2 E2' pvs E1' E2' P pvs E1 E2 P. E1' E1 E2' E2 E1 E1' = E2 E2' pvs E1' E2' P pvs E1 E2 P.
Proof. Proof.
intros HE1 HE2 HEE. rewrite (pvs_mask_frame _ _ (E1 E1')). intros HE1 HE2 HEE.
- rewrite {2}HEE =>{HEE}. by rewrite -!union_difference_L. rewrite (pvs_mask_frame _ _ (E1 E1')); last solve_elem_of.
- solve_elem_of. by rewrite {2}HEE -!union_difference_L.
Qed. Qed.
Lemma pvs_mask_frame_mono E1 E1' E2 E2' P Q : Lemma pvs_mask_frame_mono E1 E1' E2 E2' P Q :
...@@ -165,14 +165,10 @@ Proof. intros HE1 HE2 HEE ->. by apply pvs_mask_frame'. Qed. ...@@ -165,14 +165,10 @@ Proof. intros HE1 HE2 HEE ->. by apply pvs_mask_frame'. Qed.
where that would be useful. *) 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. intros HE. rewrite !pvs_trans; solve_elem_of. Qed.
move=>HE. rewrite !pvs_trans; first done; solve_elem_of.
Qed.
Lemma pvs_mask_weaken E1 E2 P : E1 E2 pvs E1 E1 P pvs E2 E2 P. Lemma pvs_mask_weaken E1 E2 P : E1 E2 pvs E1 E1 P pvs E2 E2 P.
Proof. Proof. auto using pvs_mask_frame'. Qed.
intros. apply pvs_mask_frame'; solve_elem_of.
Qed.
Lemma pvs_ownG_update E m m' : m ~~> m' ownG m pvs E E (ownG m'). Lemma pvs_ownG_update E m m' : m ~~> m' ownG m pvs E E (ownG m').
Proof. Proof.
......
Supports Markdown
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