Class Concrete_ident.monoid