Revert subst in branches of matches

[fireball-separation.git] / ocaml / lambda4.mli

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index 4af50606788f0f79e8f54b9b6742fc2e2ef35b0c..8e89903e92a1c322b890e94538f367f7f35f722b 100644 (file)
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,11 +1,15 @@
 type problem\r
 \r
+val label_of_problem : problem -> string\r
+\r
 type result = [\r
  | `Separable of (int * Num.nf) list\r
  | `Unseparable of string\r
 ]\r
 \r
-val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem\r
-(* the following will soon replace the one above *)\r
-val problem_of_string_tmp: string -> problem\r
+val problem_of: (string (* problem label *)\r
+* Num.i_var option (* div *)\r
+* Num.i_n_var list (* conv *)\r
+* Num.i_n_var list (* ps *)\r
+* string list (* names of free variables *)) -> problem\r
 val solve: problem -> result\r