functor (M : Accessors3-> sig  end