Proof spec_Qquadratic_Qpositive_to_Q_dL_dL.

Lemma spec_Qquadratic_Qpositive_to_Qpositive2_dL_dL :
forall (a b c d e f g h : Z) (p1 p2 : Qpositive),
Qplus
(Qplus
(Qplus
(Qmult (Qmult (Qplus (Qplus (Qplus a b) c) d) (Qpos p1)) (Qpos p2))
(Qmult (Qplus b d) (Qpos p1))) (Qmult (Qplus c d) (Qpos p2))) d <>
Zero ->
Qplus
(Qplus
(Qplus
(Qmult (Qmult (Qplus (Qplus (Qplus e f) g) h) (Qpos p1)) (Qpos p2))
(Qmult (Qplus f h) (Qpos p1))) (Qmult (Qplus g h) (Qpos p2))) h <>
Zero ->
spec_Qquadratic_Qpositive_to_Qpositive2 a b c d e f g h (dL p1) (dL p2) =
spec_Qquadratic_Qpositive_to_Qpositive2 (a + b + c + d)
(b + d) (c + d) d (e + f + g + h) (f + h) (g + h) h p1 p2.