Commit 949f6755 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Property about validN and big_opM.

parent 9ffa68a4
......@@ -220,6 +220,17 @@ Qed.
Lemma cmra_empty_least `{Empty A, !RAIdentity A} n x : {n} x.
Proof. by exists x; rewrite (left_id _ _). Qed.
(** ** big ops *)
Section bigop.
Context `{Empty A, !RAIdentity A, FinMap K M}.
Lemma big_opM_lookup_valid n m i x :
{n} (big_opM m) m !! i = Some x {n} x.
intros Hm ?; revert Hm; rewrite -(big_opM_delete _ i x) //.
apply cmra_valid_op_l.
End bigop.
(** ** Properties of [(⇝)] relation *)
Global Instance cmra_update_preorder : PreOrder (@cmra_update A).
Proof. split. by intros x y. intros x y y' ?? z ?; naive_solver. Qed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment