Fixpoint Qhomographic_sign (a b c d : Z) (p : Qpositive) {struct p} :
  forall (H_Qhomographic_sg_denom_nonzero : Qhomographic_sg_denom_nonzero c d p),
  Z * (Z * (Z * (Z * Z)) * Qpositive).Scheme Qhomographic_sg_denom_nonzero_inv_dep :=
  Induction for Qhomographic_sg_denom_nonzero Sort Prop.

Lemma Qhomographic_sign_equal : forall (a b c d : Z) (p : Qpositive) (H1 H2 : Qhomographic_sg_denom_nonzero c d p), Qhomographic_sign a b c d p H1 = Qhomographic_sign a b c d p H2.