From: acondolu Date: Tue, 25 Jul 2017 14:49:11 +0000 (+0200) Subject: Fix in pretty-printing of match X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=730255ecc324e0d5f5d6f82def8eeeec3243d650;p=fireball-separation.git Fix in pretty-printing of match --- diff --git a/ocaml/num.ml b/ocaml/num.ml index aa9338c..485b56e 100644 --- a/ocaml/num.ml +++ b/ocaml/num.ml @@ -132,7 +132,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 0 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)) ^ ")" | `Bottom -> "BOT"