Mononicity of auth_own.

f70dd438 · Robbert Krebbers · 9981b976 · f70dd438
Commit f70dd438 authored Jul 03, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

program_logic/auth.v program_logic/auth.v +4 -0

No files found.
--- a/program_logic/auth.v
+++ b/program_logic/auth.v
@@ -55,6 +55,10 @@ Section auth.

  Lemma auth_own_op γ a b : auth_own γ (a ⋅ b) ⊣⊢ auth_own γ a ★ auth_own γ b.
  Proof. by rewrite /auth_own -own_op auth_frag_op. Qed.
+
+  Lemma auth_own_mono γ a b : a ≼ b → auth_own γ b ⊢ auth_own γ a.
+  Proof. intros [? ->]. by rewrite auth_own_op sep_elim_l. Qed.
+
  Lemma auth_own_valid γ a : auth_own γ a ⊢ ✓ a.
  Proof. by rewrite /auth_own own_valid auth_validI. Qed.