red in |- *.
intros c c' v.
simpl in |- *.
red in |- *.
intro i.
simpl in |- *.
intros.
apply RING_dist_r.
Qed.

Lemma func_scmult_r_lin :
forall (A : Setoid) (B : ring),
op_lin_right (Mod:=func_abgp A B) (func_scmult A B).