Definition Fn_abgp (F : abelian_group) (n : Nat) : ABELIAN_GROUP :=
  Build_abelian_group (Fn_group_is_abelian F n).(*******************************)
(* Alle modulen werden brueder *)
(*******************************)

Definition Fn_scmult_fun :
  forall (F : ring) (n : Nat), F -> Fn_set F n -> Fn_set F n.Definition Fn_scmult :
  forall (F : ring) (n : Nat),
  operation (Build_monoid (ring_monoid F)) (Fn_abgp F n).

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