Proof spec_Qquadratic_Qpositive_to_Q_dL_nR.

(* Specifications: *)
Lemma spec_Qquadratic_Qpositive_to_Q_dL_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 (dL p1) (dL p2) =
spec_Qquadratic_Qpositive_to_Q (a + b + c + d) (b + d)
(c + d) d (e + f + g + h) (f + h) (g + h) h p1 p2.
Lemma spec_Qquadratic_Qpositive_to_Q_dL_dL_unfolded :
forall (a b c d e f g h : Z) (p1 p2 : Qpositive),
Qmult
(Qplus
(Qplus
(Qplus (Qmult (Qmult a (Qpos (dL p1))) (Qpos (dL p2)))
(Qmult b (Qpos (dL p1)))) (Qmult c (Qpos (dL p2)))) d)
(Qinv
(Qplus
(Qplus
(Qplus (Qmult (Qmult e (Qpos (dL p1))) (Qpos (dL p2)))
(Qmult f (Qpos (dL p1)))) (Qmult g (Qpos (dL p2)))) h)) =
Qmult
(Qplus
(Qplus
(Qplus (Qmult (Qmult (a + b + c + d)%Z (Qpos p1)) (Qpos p2))
(Qmult (b + d)%Z (Qpos p1))) (Qmult (c + d)%Z (Qpos p2))) d)
(Qinv
(Qplus
(Qplus
(Qplus (Qmult (Qmult (e + f + g + h)%Z (Qpos p1)) (Qpos p2))
(Qmult (f + h)%Z (Qpos p1))) (Qmult (g + h)%Z (Qpos p2))) h)).