Added label to problem

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

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index 0b92ad9688b95e8df21f424a06c92d1ff91ae1c7..1b6ec0db5d6d492ab76258067be684a75997fb7d 100644 (file)
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,5 +1,7 @@
 type problem\r
 \r
+val label_of_problem : problem -> string\r
+\r
 type response = [\r
  | `CompleteSeparable of string\r
  | `CompleteUnseparable of string\r
@@ -14,4 +16,10 @@ type result = [
 ]\r
 \r
 val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem * response\r
+(* the following will soon replace the one above *)\r
+val tmp: (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 * response\r
 val solve: problem * response -> result\r