Definition Qhomographic (a b c d : Z) (s : Q)
  (H_Qhomographic_denom_nonzero : Qhomographic_denom_nonzero c d s) : Q.

Lemma always_nonzero_Qhomographic_sg_denom_nonzero : forall (d : Z) (p : Qpositive), Qhomographic_sg_denom_nonzero 0 d p -> d <> 0%Z.