From: acondolu <andrea.condoluci@unibo.it>
Date: Thu, 14 Jun 2018 12:03:44 +0000 (+0200)
Subject: One garbage
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=2a3041e0fd388bf1279e2e05eef8b5f3439925ef;p=fireball-separation.git

One garbage
---

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)