Skip to content
Snippets Groups Projects
Commit 725d4329 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Rename `inv_sep` into `env_split`.

parent e49f76e7
No related branches found
No related tags found
No related merge requests found
...@@ -165,22 +165,20 @@ Section inv. ...@@ -165,22 +165,20 @@ Section inv.
iIntros "!> {$HP} HP". iApply "Hclose"; auto. iIntros "!> {$HP} HP". iApply "Hclose"; auto.
Qed. Qed.
Lemma inv_sep_l N P Q : inv N (P Q) -∗ inv N P. Lemma inv_split_l N P Q : inv N (P Q) -∗ inv N P.
Proof. Proof.
iIntros "#HI". iApply inv_alter; eauto. iIntros "#HI". iApply inv_alter; eauto.
iIntros "!> !> [$ $] $". iIntros "!> !> [$ $] $".
Qed. Qed.
Lemma inv_split_r N P Q : inv N (P Q) -∗ inv N Q.
Lemma inv_sep_r N P Q : inv N (P Q) -∗ inv N Q.
Proof. Proof.
rewrite (comm _ P Q). eapply inv_sep_l. rewrite (comm _ P Q). eapply inv_split_l.
Qed. Qed.
Lemma inv_split N P Q : inv N (P Q) -∗ inv N P inv N Q.
Lemma inv_sep N P Q : inv N (P Q) -∗ inv N P inv N Q.
Proof. Proof.
iIntros "#H". iIntros "#H".
iPoseProof (inv_sep_l with "H") as "$". iPoseProof (inv_split_l with "H") as "$".
iPoseProof (inv_sep_r with "H") as "$". iPoseProof (inv_split_r with "H") as "$".
Qed. Qed.
End inv. End inv.
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