Alternative version of ownM_empty.

65171af2 · Robbert Krebbers · 1aac61c4 · 65171af2
Commit 65171af2 authored Sep 23, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

algebra/upred.v algebra/upred.v +2 -0

No files found.
--- a/algebra/upred.v
+++ b/algebra/upred.v
@@ -1257,6 +1257,8 @@ Lemma ownM_invalid (a : M) : ¬ ✓{0} a → uPred_ownM a ⊢ False.
 Proof. by intros; rewrite ownM_valid valid_elim. Qed.
 Global Instance ownM_mono : Proper (flip (≼) ==> (⊢)) (@uPred_ownM M).
 Proof. intros a b [b' ->]. rewrite ownM_op. eauto. Qed.
+Lemma ownM_empty' : uPred_ownM ∅ ⊣⊢ True.
+Proof. apply (anti_symm _); auto using ownM_empty. Qed.

 (* Viewshifts *)
 Lemma rvs_intro P : P =r=> P.