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