Changed logic of entrypoint in Lambda4

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

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index 8f6019e90d40b49d3a765f09cb9703b69973144e..0b92ad9688b95e8df21f424a06c92d1ff91ae1c7 100644 (file)
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,4 +1,17 @@
 type problem\r
-val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem\r
-val solve: problem -> unit\r
-val should_fail: (unit -> problem) -> unit\r
+\r
+type response = [\r
+ | `CompleteSeparable of string\r
+ | `CompleteUnseparable of string\r
+ | `Uncomplete\r
+]\r
+\r
+type result = [\r
+ `Complete | `Uncomplete\r
+] * [\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 * response\r
+val solve: problem * response -> result\r