(* composition *)

Definition Comp_FSC (i j l : I) :
  Map2 (FSC_mor_setoid i j) (FSC_mor_setoid j l) (FSC_mor_setoid i l) :=
  Op_comp (a i) (a j) (a l).

(* Specifications: *)
Lemma Assoc_FSC : Assoc_law Comp_FSC.