Lemma CCDRmult_apcompat_r' : ∏ x y z : X, x ≠ 0 → y ≠ z → x * y ≠ x * z. Proof. exact (CDRmult_apcompat_r' (X := ConstructiveCommutativeDivisionRig_ConstructiveDivisionRig X)). Qed.
Require Import UniMath.MoreFoundations.Tactics.