sig
  type ('a, 'b, 'c, 'd) poly
  val instantiate :
    'a Type.t ->
    'b Type.t ->
    'c Type.t ->
    'd Type.t -> ('a, 'b, 'c, 'd) Type.Polymorphic4.poly Type.t * bool
  val is_instance_of : 'a Type.t -> bool
  val get_instance :
    ('a, 'b, 'c, 'd) Type.Polymorphic4.poly Type.t ->
    'a Type.t * 'b Type.t * 'c Type.t * 'd Type.t
end