diff --git a/iris/base_logic/lib/mono_nat.v b/iris/base_logic/lib/mono_nat.v index edb87d413b071a76d9442e817f3530c6f9134e9d..620da1cc5a223e03888b7cef212f540c54334beb 100644 --- a/iris/base_logic/lib/mono_nat.v +++ b/iris/base_logic/lib/mono_nat.v @@ -89,7 +89,7 @@ Section mono_nat. mono_nat_auth_own γ q n -∗ mono_nat_lb_own γ n. Proof. unseal. apply own_mono, mono_nat_included. Qed. - Lemma mono_nat_lb_own_le γ n n' : + Lemma mono_nat_lb_own_le {γ n} n' : n' ≤ n → mono_nat_lb_own γ n -∗ mono_nat_lb_own γ n'. Proof. unseal. intros. by apply own_mono, mono_nat_lb_mono. Qed. @@ -102,7 +102,7 @@ Section mono_nat. auto with iFrame. Qed. - Lemma mono_nat_own_update γ n n' : + Lemma mono_nat_own_update {γ n} n' : n ≤ n' → mono_nat_auth_own γ 1 n ==∗ mono_nat_auth_own γ 1 n' ∗ mono_nat_lb_own γ n'. Proof.