Commit 481c842f authored by Robbert Krebbers's avatar Robbert Krebbers Committed by Jacques-Henri Jourdan

The sink modality.

parent 68b85aff
......@@ -103,7 +103,7 @@ Section sep_list.
Lemma big_sepL_lookup Φ l i x `{!Absorbing (Φ i x)} :
l !! i = Some x ([ list] ky l, Φ k y) Φ i x.
Proof. intros. rewrite big_sepL_lookup_acc // sep_elim_l. Qed.
Proof. intros. rewrite big_sepL_lookup_acc //. by rewrite sep_elim_l. Qed.
Lemma big_sepL_elem_of (Φ : A PROP) l x `{!Absorbing (Φ x)} :
x l ([ list] y l, Φ y) Φ x.
......@@ -334,7 +334,7 @@ Section gmap.
Lemma big_sepM_lookup Φ m i x `{!Absorbing (Φ i x)} :
m !! i = Some x ([ map] ky m, Φ k y) Φ i x.
Proof. intros. by rewrite big_sepM_lookup_acc // sep_elim_l. Qed.
Proof. intros. rewrite big_sepM_lookup_acc //. by rewrite sep_elim_l. Qed.
Lemma big_sepM_lookup_dom (Φ : K PROP) m i `{!Absorbing (Φ i)} :
is_Some (m !! i) ([ map] k_ m, Φ k) Φ i.
......@@ -499,7 +499,7 @@ Section gset.
Lemma big_sepS_elem_of Φ X x `{!Absorbing (Φ x)} :
x X ([ set] y X, Φ y) Φ x.
Proof. intros. rewrite big_sepS_delete; auto. Qed.
Proof. intros. rewrite big_sepS_delete //. by rewrite sep_elim_l. Qed.
Lemma big_sepS_elem_of_acc Φ X x :
x X
......@@ -646,7 +646,7 @@ Section gmultiset.
Lemma big_sepMS_elem_of Φ X x `{!Absorbing (Φ x)} :
x X ([ mset] y X, Φ y) Φ x.
Proof. intros. by rewrite big_sepMS_delete // sep_elim_l. Qed.
Proof. intros. rewrite big_sepMS_delete //. by rewrite sep_elim_l. Qed.
Lemma big_sepMS_elem_of_acc Φ X x :
x X
......
This diff is collapsed.
......@@ -433,7 +433,7 @@ Global Instance into_exist_sep_pure P Q φ :
TCOr (Affine P) (Absorbing Q) IntoPureT P φ IntoExist (P Q) (λ _ : φ, Q).
Proof.
intros ? (φ'&->&?). rewrite /IntoExist.
eapply (pure_elim φ'); [by rewrite (into_pure P); apply absorbing, _|]=>?.
eapply (pure_elim φ'); [by rewrite (into_pure P); apply sep_elim_l, _|]=>?.
rewrite -exist_intro //. apply sep_elim_r, _.
Qed.
Global Instance into_exist_persistently {A} P (Φ : A PROP) :
......
......@@ -464,7 +464,7 @@ Proof.
intros ?? H. rewrite envs_lookup_delete_sound //.
destruct (env_spatial_is_nil Δ') eqn:?.
- by rewrite (env_spatial_is_nil_bare_persistently Δ') // sep_elim_l.
- rewrite from_assumption. destruct H as [?|?]=>//. by rewrite sep_elim_l.
- rewrite from_assumption. destruct H; by rewrite sep_elim_l.
Qed.
Lemma tac_rename Δ Δ' i j p P Q :
......
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