functor (F : INTERNAL) -> sig end