Functional Scheme Qquadratic_Qpositive_to_Q_ind :=
Induction for Qquadratic_Qpositive_to_Q Sort Prop.

Lemma Qquadratic_Qpositive_to_Q_0 :
forall (a b c d e f g h : Z) (p1 p2 : Qpositive)
(H_Qquadratic_sg_denom_nonzero : Qquadratic_sg_denom_nonzero e f g h p1 p2)
(Hh : h <> 0%Z),
same_ratio a b c d e f g h ->
Qquadratic_Qpositive_to_Q a b c d e f g h p1 p2
H_Qquadratic_sg_denom_nonzero = fraction_encoding d h Hh.