Proof spec_Qquadratic_Qpositive_to_Q_p_One.

Lemma spec_Qquadratic_Qpositive_to_Q_One_p :
forall (a b c d e f g h : Z) (p : Qpositive),
spec_Qquadratic_Qpositive_to_Q a b c d e f g h One p =
spec_Qhomographic_Qpositive_to_Q (a + c) (b + d) (e + g) (f + h) p.