sig
  type _ t
  val map : ('-> 'b) -> 'Functor.Basic.t -> 'Functor.Basic.t
end