Proof spec_Qquadratic_Qpositive_to_Q_dL_dL.

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