type t = Type.t Map.Make(Identifier).t
val apply : t -> Type.t -> Type.t
(* compose s2 s1 : first s1, then s2 *)
val compose : t -> t -> t
val empty : t
val singleton : Identifier.t -> Type.t -> t
val find : Identifier.t -> t -> Type.t option
