proposition: Lemma Rmorph_Proper : Proper (Real.eq ==> Real.eq) phi.
proof: Proof. by move=> x y /Rmorph_eq. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq order) mathcomp(ssralg ssrnum ssrint rat) Coq(Morphisms Setoid) fourcolor(real realsyntax realprop)