transfer Aggregation : Abstract -> Abstract = {

  transfer S : S -> S = aggreg ;

}