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