fact: Definition Z_to_Q (x : Z) : Q := match x with | Z0 => Zero | Zpos p => Qpos (Qpositive_c (nat_of_P p) 1 (S (nat_of_P p))) | Zneg p => Qneg (Qpositive_c (nat_of_P p) 1 (S (nat_of_P p))) end.
imports: Coq(FunInd) QArithSternBrocot(Field_Theory_Q)