ocaml/lambda4.mli

   1 type problem\r
   2 \r
   3 val label_of_problem : problem -> string\r
   4 \r
   5 type response = [\r
   6  | `CompleteSeparable of string\r
   7  | `CompleteUnseparable of string\r
   8  | `Uncomplete\r
   9 ]\r
  10 \r
  11 type result = [\r
  12  `Complete | `Uncomplete\r
  13 ] * [\r
  14  | `Separable of (int * Num.nf) list\r
  15  | `Unseparable of string\r
  16 ]\r
  17 \r
  18 val problem_of: (string (* problem label *)\r
  19 * Num.i_var option (* div *)\r
  20 * Num.i_n_var list (* conv *)\r
  21 * Num.i_n_var list (* ps *)\r
  22 * string list (* names of free variables *)) -> problem * response\r
  23 val solve: problem * response -> result\r