(** Here we expand the fixpoint equations of "Qquadratic_Qpositive_to_Qpositive" function *)

Lemma Qquadratic_Qpositive_to_Qpositive_0 :
forall (a b c d e f g h : Z) (p1 p2 : Qpositive)
(hyp : quadraticAcc a b c d e f g h p1 p2),
p1 = One ->
forall hyp_ni : homographicAcc (a + c) (b + d) (e + g) (f + h) p2,
Qquadratic_Qpositive_to_Qpositive a b c d e f g h p1 p2 hyp =
Qhomographic_Qpositive_to_Qpositive (a + c) (b + d)
(e + g) (f + h) p2 hyp_ni.