(** Proof independence of Qquadratic_Qpositive_to_Qpositive: *)

Scheme quadraticAcc_ind_dep := Induction for quadraticAcc Sort Prop.

Lemma Qquadratic_Qpositive_to_Qpositive_0 : forall (a b c d e f g h : Z) (p1 p2 : Qpositive) (hyp : quadraticAcc a b c d e f g h p1 p2), p1 = One -> forall hyp_ni : homographicAcc (a + c) (b + d) (e + g) (f + h) p2, Qquadratic_Qpositive_to_Qpositive a b c d e f g h p1 p2 hyp = Qhomographic_Qpositive_to_Qpositive (a + c) (b + d) (e + g) (f + h) p2 hyp_ni.