Added label to problem

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

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index c8a571ea825781a0e9db687b3c9c8e868cf54270..c8a40bfa8c719694f0796ec429c13943ac3cf200 100644 (file)
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,4 +1,17 @@
-type t\r
-val magic: string list -> string list -> t\r
-val magic_conv: div:(string option) -> conv:string list -> nums:string list -> string list -> t\r
-val main: t list -> unit\r
+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 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\r
+val solve: problem -> result\r