Proof spec_Qquadratic_Qpositive_to_Q_nR_nR.

Lemma spec_Qquadratic_Qpositive_to_Q_nR_dL :
forall (a b c d e f g h : Z) (p1 p2 : Qpositive),
spec_Qquadratic_Qpositive_to_Q a b c d e f g h (nR p1) (dL p2) =
spec_Qquadratic_Qpositive_to_Q (a + b) b (a + b + c + d)
(b + d) (e + f) f (e + f + g + h) (f + h) p1 p2.