Lemma cfMorph_cfun1 : cfMorph 1 = 1.
Proof.Fact cfMorph_is_linear : linear cfMorph.Proof.
by move=> a phi psi; apply/cfunP=> x; rewrite !cfunElockFact cfMorph_is_multiplicative : multiplicative cfMorph.

Canonical cfMorph_rmorphism := AddRMor