Changed logic of entrypoint in Lambda4

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

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index cbaf41c156e18d681b2c88de791812046f44347f..d8148d5399aea9ba3d3ac582506f0dea47eace94 100644 (file)
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1 +1,9 @@
-include Discriminator.Discriminator\r
+type problem\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
+val solve: problem -> result\r