Using C instead of @ to combine more convergents in p.conv

diff --git a/ocaml/simple.ml b/ocaml/simple.ml
index 34f9f72efa14cd7cf614eb316be2f5c1894c3578..34b2a7f5168d34427d42b46e1d81de3b25219d9c 100644 (file)
--- a/ocaml/simple.ml
+++ b/ocaml/simple.ml
@@ -395,8 +395,7 @@ let problem_of (label, div, convs, ps, var_names) =
  | `N _ | `Match _ -> assert false in\r
  assert (List.length ps = 0);\r
  let convs = List.rev convs in\r
- let conv = List.fold_left (fun x y -> fst (mk_app x (aux 0 (y :> Num.nf)))) (V (List.length var_names)) convs in\r
- let var_names = "@" :: var_names in\r
+ let conv = List.fold_left (fun x y -> fst (mk_app x (aux 0 (y :> Num.nf)))) C convs in\r
  let div = match div with\r
  | Some div -> aux 0 (div :> Num.nf)\r
  | None -> assert false in\r