functor (Empty : sig  end) -> Global_intf