Commit 9fb4882f authored by Robbert Krebbers's avatar Robbert Krebbers

Strenghen pair_op.

parent 5d2a103d
...@@ -985,8 +985,7 @@ Section prod. ...@@ -985,8 +985,7 @@ Section prod.
Canonical Structure prodR := Canonical Structure prodR :=
CMRAT (A * B) prod_cofe_mixin prod_cmra_mixin. CMRAT (A * B) prod_cofe_mixin prod_cmra_mixin.
Lemma pair_op (a a' : A) (b b' : B) : Lemma pair_op (a a' : A) (b b' : B) : (a, b) (a', b') = (a a', b b').
(a, b) (a', b') (a a', b b').
Proof. done. Qed. Proof. done. Qed.
Global Instance prod_cmra_total : CMRATotal A CMRATotal B CMRATotal prodR. Global Instance prod_cmra_total : CMRATotal A CMRATotal B CMRATotal prodR.
......
Markdown is supported
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