fact: Definition spec_Qquadratic_Qpositive_to_Qpositive2 (a b c d e f g h : Z) (p1 p2 : Qpositive) : Qpositive := Qpositive_mult (Q_tail (Qplus (Qplus (Qplus (Qmult (Qmult a (Qpos p1)) (Qpos p2)) (Qmult b (Qpos p1))) (Qmult c (Qpos p2))) d)) (Qpositive_inv (Q_tail (Qplus (Qplus (Qplus (Qmult (Qmult e (Qpos p1)) (Qpos p2)) (Qmult f (Qpos p1))) (Qmult g (Qpos p2))) h))).
imports: Coq(FunInd) QArithSternBrocot(Field_Theory_Q)