From 2a3041e0fd388bf1279e2e05eef8b5f3439925ef Mon Sep 17 00:00:00 2001 From: acondolu Date: Thu, 14 Jun 2018 14:03:44 +0200 Subject: [PATCH] One garbage --- ocaml/simple.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/simple.ml b/ocaml/simple.ml index 4e93965..a7a8d7a 100644 --- a/ocaml/simple.ml +++ b/ocaml/simple.ml @@ -358,7 +358,7 @@ let problem_of (label, div, convs, ps, var_names) = | `N _ | `Match _ -> assert false in assert (List.length ps = 0); let convs = List.rev convs in - let conv = List.fold_left (fun x y -> mk_app x (aux (y :> Num.nf))) (V (List.length var_names)) convs in + let conv = if List.length convs = 1 then aux (List.hd convs :> Num.nf) else List.fold_left (fun x y -> mk_app x (aux (y :> Num.nf))) (V (List.length var_names)) convs in let var_names = "@" :: var_names in let div = match div with | Some div -> aux (div :> Num.nf) -- 2.39.2