Proof spec_Qquadratic_Qpositive_to_Q_dL_dL.

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