X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fnum.ml;fp=ocaml%2Fnum.ml;h=66e8a2df7ccb6ebd3e3cf98f741b043d910c5bbe;hb=bab00fe499c57f97474a689deaac787cab90ba51;hp=4f3c5757d431373c95a6fbf23ce2f846181e45f0;hpb=4d05020ff5c49852b872fbcbfb9f65aa51c3ac65;p=fireball-separation.git

diff --git a/ocaml/num.ml b/ocaml/num.ml
index 4f3c575..66e8a2d 100644
--- a/ocaml/num.ml
+++ b/ocaml/num.ml
@@ -127,7 +127,7 @@ let rec string_of_term =
   | `Lam _ as t -> "(" ^ string_of_term_no_pars_lam lev l t ^ ")"
   | `Match(t,(v,ar),bs_lift,bs,args) ->
       (* assert (bs_lift = lev); *)
-     "["^ varname lev l v ^ (if debug_display_arities then ":"^ string_of_int ar else "") ^",match " ^ string_of_term_no_pars lev l (t :> nf) ^
+     "(["^ varname lev l v ^ (if debug_display_arities then ":"^ string_of_int ar else "") ^",match " ^ string_of_term_no_pars lev l (t :> nf) ^
      " with " ^ String.concat " | " (List.map (fun (n,t) -> string_of_int n ^ " => " ^ string_of_term l (t :> nf)) !bs) ^ "] " ^
      String.concat " " (List.map (string_of_term l) (args :> nf list)) ^ ")"
  and string_of_term_no_pars_app lev l  = function