Commit 28761b21 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan

Add lemma compl_chain_map.

parent 991952fe
......@@ -96,6 +96,11 @@ Class Cofe (A : ofeT) := {
}.
Arguments compl : simpl never.
Lemma compl_chain_map `{Cofe A, Cofe B} (f : A B) c
`( n : nat, Proper (dist n ==> dist n) f) :
compl (chain_map f c) f (compl c).
Proof. apply equiv_dist=>n. by rewrite !conv_compl. Qed.
(** General properties *)
Section cofe.
Context {A : ofeT}.
......
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