Migrate to the new type substitution API (3/3).

types/types.mli

@@ -154,13 +154,8 @@ module Positive : sig
   val times: v -> v -> v
   val xml: v -> v -> v
   val solve: v -> Node.t
-
-  val substitute : t -> (Var.var * t) -> t
-  (*val substitute_list : t -> (Var.var * t) list -> t *)
-  val solve_rectype : t -> Var.var -> t
- (*  val substitute_free : Var.Set.t -> t -> t *)
-  val clean_type : Var.Set.t -> t -> t
 end
+
 module Substitution : sig
   val full : t -> (Var.var * t) list -> t
   val single : t -> (Var.var * t) -> t