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

Lemma Qquadratic_Qpositive_to_Qpositive_2 :
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 ->
~ quadratic_top_more a b c d e f g h ->
quadratic_top_more e f g h a b c d ->
forall hyp_rec : quadraticAcc a b c d (e - a) (f - b) (g - c) (h - d) p1 p2,
Qquadratic_Qpositive_to_Qpositive a b c d e f g h p1 p2 hyp =
dL
(Qquadratic_Qpositive_to_Qpositive a b c d (e - a)
(f - b) (g - c) (h - d) p1 p2 hyp_rec).