fact: Fixpoint positive_to_Qpositive_i (p:positive) : Qpositive := match p with | xI p => nR (positive_to_Qpositive_i p) | xO p => dL (positive_to_Qpositive_i p) | xH => One end.
imports: Coq(ZArith) Coq(Lia) QArithSternBrocot(Q_field)