Canonical archiType := ArchiFieldType rat rat_archimedean.Fact Qint_key : pred_key Qint.Canonical Qint_keyed := KeyedQualifier Qint_key.Fact Qint_subring_closed : subring_closed Qint.Canonical Qint_opprPred := OpprPred Qint_subring_closed.Canonical Qint_addrPred := AddrPred Qint_subring_closed.Canonical Qint_mulrPred := MulrPred Qint_subring_closed.Canonical Qint_zmodPred := ZmodPred Qint_subring_closed.Canonical Qint_semiringPred := SemiringPred Qint_subring_closed.Canonical Qint_smulrPred := SmulrPred Qint_subring_closed.Canonical Qint_subringPred := SubringPred Qint_subring_closed.Fact Qnat_key : pred_key Qnat.Canonical Qnat_keyed := KeyedQualifier Qnat_key.Fact Qnat_semiring_closed : semiring_closed Qnat.Canonical Qnat_addrPred := AddrPred Qnat_semiring_closed.Canonical Qnat_mulrPred := MulrPred Qnat_semiring_closed.Canonical Qnat_semiringPred := SemiringPred Qnat_semiring_closed.Implicit Type rR : unitRingType.

(* Specifications: *)
Lemma fmorph_rat (aR : fieldType) rR (f : {rmorphism aR -> rR}) a : f (ratr _ a) = ratr _ a.
Lemma fmorph_eq_rat rR (f : {rmorphism rat -> rR}) : f =1 ratr _.