functor (X : Named_intf.S1) ->
  sig
    val named :
      'a Std_internal.Typerep.t -> 'a X.t Std_internal.Typerep.Named.t
    val typename_of_t : 'a Typename.t -> 'a X.t Typename.t
  end