Proof spec_Qquadratic_Qpositive_to_Q_dL_dL.

Lemma spec_Qquadratic_Qpositive_to_Qpositive2_nR_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 (a - e)%Z (Qpos p1)) (Qpos p2))
(Qmult (b - f)%Z (Qpos p1))) (Qmult (c - g)%Z (Qpos p2)))
(d - h)%Z) ->
nR
(spec_Qquadratic_Qpositive_to_Qpositive2 (a - e)
(b - f) (c - g) (d - h) e f g h p1 p2) =
spec_Qquadratic_Qpositive_to_Qpositive2 a b c d e f g h p1 p2.