Proof spec_Qquadratic_Qpositive_to_Q_One_p.

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