Commit 58b72e34 authored by Ralf Jung's avatar Ralf Jung
Browse files

rename big_sepL_sepL2 → big_sepL2_sepL (and similar for sepM)

parent c9154d43
......@@ -743,19 +743,19 @@ Section sep_list2.
by rewrite IH.
Qed.
Lemma big_sepL_sepL2 (Φ1 : nat A PROP) (Φ2 : nat B PROP) l1 l2 :
Lemma big_sepL2_sepL (Φ1 : nat A PROP) (Φ2 : nat B PROP) l1 l2 :
length l1 = length l2
([ list] ky1;y2 l1;l2, Φ1 k y1 Φ2 k y2)
([ list] ky1 l1, Φ1 k y1) ([ list] ky2 l2, Φ2 k y2).
Proof.
intros. rewrite -big_sepL_sep_zip // big_sepL2_alt pure_True // left_id //.
Qed.
Lemma big_sepL_sepL2_2 (Φ1 : nat A PROP) (Φ2 : nat B PROP) l1 l2 :
Lemma big_sepL2_sepL_2 (Φ1 : nat A PROP) (Φ2 : nat B PROP) l1 l2 :
length l1 = length l2
([ list] ky1 l1, Φ1 k y1) -
([ list] ky2 l2, Φ2 k y2) -
[ list] ky1;y2 l1;l2, Φ1 k y1 Φ2 k y2.
Proof. intros. apply wand_intro_r. by rewrite big_sepL_sepL2. Qed.
Proof. intros. apply wand_intro_r. by rewrite big_sepL2_sepL. Qed.
Global Instance big_sepL2_nil_persistent Φ :
Persistent ([ list] ky1;y2 []; [], Φ k y1 y2).
......@@ -1715,19 +1715,19 @@ Section map2.
apply big_sepM2_mono. eauto.
Qed.
Lemma big_sepM_sepM2 (Φ1 : K A PROP) (Φ2 : K B PROP) m1 m2 :
Lemma big_sepM2_sepM (Φ1 : K A PROP) (Φ2 : K B PROP) m1 m2 :
( k, is_Some (m1 !! k) is_Some (m2 !! k))
([ map] ky1;y2 m1;m2, Φ1 k y1 Φ2 k y2)
([ map] ky1 m1, Φ1 k y1) ([ map] ky2 m2, Φ2 k y2).
Proof.
intros. rewrite -big_sepM_sep_zip // big_sepM2_alt pure_True // left_id //.
Qed.
Lemma big_sepM_sepM2_2 (Φ1 : K A PROP) (Φ2 : K B PROP) m1 m2 :
Lemma big_sepM2_sepM_2 (Φ1 : K A PROP) (Φ2 : K B PROP) m1 m2 :
( k, is_Some (m1 !! k) is_Some (m2 !! k))
([ map] ky1 m1, Φ1 k y1) -
([ map] ky2 m2, Φ2 k y2) -
[ map] ky1;y2 m1;m2, Φ1 k y1 Φ2 k y2.
Proof. intros. apply wand_intro_r. by rewrite big_sepM_sepM2. Qed.
Proof. intros. apply wand_intro_r. by rewrite big_sepM2_sepM. Qed.
Global Instance big_sepM2_empty_persistent Φ :
Persistent ([ map] ky1;y2 ; , Φ k y1 y2).
......
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