]> matita.cs.unibo.it Git - fireball-separation.git/blobdiff - ocaml/lambda4.mli
Forgot one "Z"
[fireball-separation.git] / ocaml / lambda4.mli
index bbfd13b990dd2f32b263f9e49a0b3bd2162ef3ac..d6e42027db5c9545d6dcb1f7003933f897f13b2a 100644 (file)
@@ -1,5 +1,7 @@
 type problem\r
 \r
+val label_of_problem : problem -> string\r
+\r
 type response = [\r
  | `CompleteSeparable of string\r
  | `CompleteUnseparable of string\r
@@ -13,9 +15,7 @@ type result = [
  | `Unseparable of string\r
 ]\r
 \r
-val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem * response\r
-(* the following will soon replace the one above *)\r
-val tmp: (string (* problem label *)\r
+val problem_of: (string (* problem label *)\r
 * Num.i_var option (* div *)\r
 * Num.i_n_var list (* conv *)\r
 * Num.i_n_var list (* ps *)\r