proposition: Lemma CFplus_apcompat_r : ∏ x y z : X, x + y ≠ x + z <-> y ≠ z.
proof: Proof. intros x y z. rewrite !(iscomm_CFplus x). now apply CFplus_apcompat_l. Qed.
imports: UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.Apartness UniMath.MoreFoundations.Tactics