proposition: Lemma isrdistr_CCDRplus_CCDRmult : ∏ x y z : X, (x + y) * z = x * z + y * z.
proof: Proof. intros x y z. rewrite !(iscomm_CCDRmult _ z). now apply rigdistraxs. Qed.
imports: UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.Apartness UniMath.MoreFoundations.Tactics