X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=ocaml%2Flambda4.mli;h=bbfd13b990dd2f32b263f9e49a0b3bd2162ef3ac;hb=605ae9159149e42a17f044bbfad94f7dc2de79c2;hp=cbaf41c156e18d681b2c88de791812046f44347f;hpb=e4aa4a66dd0a4946607245a0f43eab803f2770c4;p=fireball-separation.git

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index cbaf41c..bbfd13b 100644
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1 +1,23 @@
-include Discriminator.Discriminator
+type problem
+
+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: div:(string option) -> conv:string list -> nums:string list -> problem * response
+(* the following will soon replace the one above *)
+val tmp: (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