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

Lemma Qhomographic_sg_denom_nonzero_always_1 : forall (d k k' : Z) (p : Qpositive), d <> 0%Z -> (0 < k)%Z -> (0 < k')%Z -> Qhomographic_sg_denom_nonzero (k * d) (k' * d) p.