fact: Definition make_Q (m n : Z) := match m, n with | Zpos _, Zpos _ => Qpos (Qpositive_c (Z.abs_nat m) (Z.abs_nat n) (Z.abs_nat m + Z.abs_nat n)) | Zneg _, Zneg _ => Qpos (Qpositive_c (Z.abs_nat m) (Z.abs_nat n) (Z.abs_nat m + Z.abs_nat n)) | Z0, _ => Zero | _, Z0 => Zero | _, _ => Qneg (Qpositive_c (Z.abs_nat m) (Z.abs_nat n) (Z.abs_nat m + Z.abs_nat n)) end.
imports: Coq(FunInd) QArithSternBrocot(Field_Theory_Q)