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

e2b4e79c · Kim Nguyễn · 7cedb6e8 · e2b4e79c · e2b4e79c
Commit e2b4e79c authored Feb 26, 2015 by Kim Nguyễn
Expand all Hide whitespace changes
Inline Side-by-side

Showing with 222 additions and 600 deletions

types/types.ml types/types.ml +221 -594

types/types.mli types/types.mli +1 -6

No files found.
--- a/types/types.ml
+++ b/types/types.ml
--- a/types/types.mli
+++ b/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