Commit 211bb2a1 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Internalize specs of valid and equiv for all cofe/cmras.

parent 0a593561
From algebra Require Export cmra.
From algebra Require Import functor.
From algebra Require Import functor upred.
Local Hint Extern 10 (_ _) => omega.
Record agree (A : Type) : Type := Agree {
......@@ -129,6 +129,10 @@ Global Instance to_agree_inj n : Inj (dist n) (dist n) (to_agree).
Proof. by intros x y [_ Hxy]; apply Hxy. Qed.
Lemma to_agree_car n (x : agree A) : {n} x to_agree (x n) {n} x.
Proof. intros [??]; split; naive_solver eauto using agree_valid_le. Qed.
(** Internalized properties *)
Lemma agree_valid_uPred {M} x y : (x y) (x y : uPred M).
Proof. by intros r n _ ?; apply: agree_op_inv. Qed.
End agree.
Arguments agreeC : clear implicits.
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