proposition: Lemma new_c_equal : forall (a b c d : Z) (p : Qpositive) (H_Qhomographic_sg_denom_nonzero1 H_Qhomographic_sg_denom_nonzero2 : Qhomographic_sg_denom_nonzero c d p), new_c a b c d p H_Qhomographic_sg_denom_nonzero1 = new_c a b c d p H_Qhomographic_sg_denom_nonzero2.
proof: Proof. abstract (intros a b c d p H_Qhomographic_sg_denom_nonzero1 H_Qhomographic_sg_denom_nonzero2; unfold new_c in |- *; apply f_equal with (Z * Z)%type; apply f_equal with (Z * (Z * Z))%type; apply f_equal with (Z * (Z * (Z * Z)))%type; apply f_equal with (Z * (Z * (Z * Z)) * Qpositive)%type; apply f_equal with (Z * (Z * (Z * (Z * Z)) * Qpositive))%type; apply Qhomographic_sign_equal). Defined.
imports: Coq(FunInd)