X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=ocaml%2Flambda4.mli;h=d8148d5399aea9ba3d3ac582506f0dea47eace94;hb=5991691df6dc3d096a08397712040c93d7f873b5;hp=c8a571ea825781a0e9db687b3c9c8e868cf54270;hpb=b609e8cfc37360748de4fcbc4e80bba556fadc87;p=fireball-separation.git

diff --git a/ocaml/lambda4.mli b/ocaml/lambda4.mli
index c8a571e..d8148d5 100644
--- a/ocaml/lambda4.mli
+++ b/ocaml/lambda4.mli
@@ -1,4 +1,9 @@
-type t
-val magic: string list -> string list -> t
-val magic_conv: div:(string option) -> conv:string list -> nums:string list -> string list -> t
-val main: t list -> unit
+type problem
+
+type result = [
+ | `Separable of (int * Num.nf) list
+ | `Unseparable of string
+]
+
+val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem
+val solve: problem -> result