type t = Type.t Map.Make(Identifier).t

let apply _t _tt = failwith "TODO"
let compose _s2 _s1 = failwith "TODO"