X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Flambda4.mli;h=d6e42027db5c9545d6dcb1f7003933f897f13b2a;hb=704fd9d9db0c01619264527d4174afe74bdff53d;hp=8f6019e90d40b49d3a765f09cb9703b69973144e;hpb=0991fc5486c3158fc361e84cbba5aefa67893ba4;p=fireball-separation.git

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index 8f6019e..d6e4202 100644
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,4 +1,23 @@
 type problem
-val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem
-val solve: problem -> unit
-val should_fail: (unit -> problem) -> unit
+
+val label_of_problem : problem -> string
+
+type response = [
+ | `CompleteSeparable of string
+ | `CompleteUnseparable of string
+ | `Uncomplete
+]
+
+type result = [
+ `Complete | `Uncomplete
+] * [
+ | `Separable of (int * Num.nf) list
+ | `Unseparable of string
+]
+
+val problem_of: (string (* problem label *)
+* Num.i_var option (* div *)
+* Num.i_n_var list (* conv *)
+* Num.i_n_var list (* ps *)
+* string list (* names of free variables *)) -> problem * response
+val solve: problem * response -> result