Canonical intmul_additive x := Additive (@mulrzBr x).

(* Specifications: *)
Lemma ffunMzE (I : finType) (M : zmodType) (f : {ffun I -> M}) z x : (f *~ z) x = f x *~ z.
Lemma mulrzAl n x y : (x *~ n) * y = (x * y) *~ n.
Lemma mulrzAr n x y : x * (y *~ n) = (x * y) *~ n.
Lemma mulNrNz n x : (-x) *~ (-n) = x *~ n.
Lemma mulrbz x (b : bool) : x *~ b = (if b then x else 0).