Section Lemmas.
Variable R : RING.
exact (sgroup_assoc_prf (E:=R) (ring_monoid R)).
Qed.
unfold ring_mult in |- *; auto with algebra.
Qed.
exact (monoid_unit_r_prf (ring_monoid R)).
Qed.
exact (monoid_unit_l_prf (ring_monoid R)).
Qed.

Lemma RING_dist_r :
forall x y z : R,
Equal (ring_mult (sgroup_law R x y) z)
(sgroup_law R (ring_mult x z) (ring_mult y z)).