Monoid_with_involution loading ...