fact: Definition Q_to_Z_i (q:Q) := match q with | Zero => Z0 | Qpos qp => Zpos (Qpositive_to_positive_i qp) | Qneg qp => Zneg (Qpositive_to_positive_i qp) end.
imports: Coq(ZArith) Coq(Lia) QArithSternBrocot(Q_field)