(** 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 ->
p2 = One ->
forall hyp_ni : homographicAcc (a + b) (c + d) (e + f) (g + h) p1,
Qquadratic_Qpositive_to_Qpositive a b c d e f g h p1 p2 hyp =
Qhomographic_Qpositive_to_Qpositive (a + b) (c + d)
(e + f) (g + h) p1 hyp_ni.