fact: Definition new_c (a b c d : Z) (p : Qpositive) (H_Qhomographic_sg_denom_nonzero : Qhomographic_sg_denom_nonzero c d p) := fst (snd (snd (fst (snd (Qhomographic_sign a b c d p H_Qhomographic_sg_denom_nonzero))))).