proposition: Lemma CFmultapCFzero : ∏ x y : X, x * y ≠ 0 -> x ≠ 0 ∧ y ≠ 0.
proof: Proof. exact (CCDRmultapCCDRzero (X := ConstructiveField_ConstructiveCommutativeDivisionRig X)). Qed.
imports: UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.Apartness UniMath.MoreFoundations.Tactics