4 | `CompleteSeparable of string
\r
5 | `CompleteUnseparable of string
\r
10 `Complete | `Uncomplete
\r
12 | `Separable of (int * Num.nf) list
\r
13 | `Unseparable of string
\r
16 val problem_of: div:(string option) -> conv:string list -> nums:string list -> problem * response
\r
17 (* the following will soon replace the one above *)
\r
18 val tmp: (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