Parameter
  ALGEBRA_mult_lin_left :
    forall (x y : A) (a : R),
    Equal (algebra_mult (module_mult a x) y)
      (module_mult a (algebra_mult x y)).

(* Specifications: *)
Lemma RING_ALGEBRA_assoc : forall x y z : A, Equal (algebra_mult (algebra_mult x y) z) (algebra_mult x (algebra_mult y z)).
Lemma RING_ALGEBRA_unit_l : forall x : A, Equal (algebra_mult (ring_algebra_unit A) x) x.
Lemma RING_ALGEBRA_unit_r : forall x : A, Equal (algebra_mult x (ring_algebra_unit A)) x.