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

(* Specifications: *)
Lemma Fn_scmult_r_lin :
forall (F : ring) (n : Nat), op_lin_right (Fn_scmult F n).