Local Notation "p ^@" := (p ^ in_alg _) (at level 2, format "p ^@"): ring_scope.Local Notation Qmorphism C := {rmorphism rat -> C}.

(* Specifications: *)
Lemma rat_algebraic_archimedean (C : numFieldType) (QtoC : Qmorphism C) : integralRange QtoC -> Num.archimedean_axiom C.