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

Lemma Qhomographic_denom_nonzero_always_Zero : forall (c : Z) (s : Q) (H_nonzero_s : s <> Zero :>Q), c <> 0%Z -> Qhomographic_denom_nonzero c 0 s.