Skip to content
Snippets Groups Projects
Commit 6451b77c authored by Ralf Jung's avatar Ralf Jung
Browse files

Merge branch 'ralf/mono-nat' into 'master'

add mono_nat_auth_lb

See merge request iris/iris!605
parents 7bee0997 3423128f
No related branches found
No related tags found
No related merge requests found
......@@ -35,6 +35,14 @@ Section mono_nat.
mono_nat_lb n1 mono_nat_lb n2 = mono_nat_lb (n1 `max` n2).
Proof. rewrite -auth_frag_op max_nat_op_max //. Qed.
Lemma mono_nat_auth_lb_op q n :
mono_nat_auth q n mono_nat_auth q n mono_nat_lb n.
Proof.
rewrite /mono_nat_auth /mono_nat_lb.
rewrite -!assoc -auth_frag_op max_nat_op_max.
rewrite Nat.max_id //.
Qed.
(** rephrasing of [mono_nat_lb_op] useful for weakening a fragment to a
smaller lower-bound *)
Lemma mono_nat_lb_op_le_l n n' :
......
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