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