From b44b8db1c78fd4278845e443c8cca24a885111ed Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 8 Apr 2008 16:59:26 +0000 Subject: [PATCH] ... --- helm/software/components/ng_kernel/nCicPp.ml | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml index 454cc9b58..2c46fef6f 100644 --- a/helm/software/components/ng_kernel/nCicPp.ml +++ b/helm/software/components/ng_kernel/nCicPp.ml @@ -37,7 +37,8 @@ let trivial_pp_term ~context ~subst ~metasenv = let ppobj = function | (u,_,metasenv,subst,NCic.Fixpoint (b, fl, _)) -> - "let rec "^NUri.string_of_uri u^"\n"^ + NUri.string_of_uri u^"\n"^ + "let rec "^ String.concat "\nand " (List.map (fun (_,name,n,ty,bo) -> name ^ " on " ^ string_of_int n ^ " : " ^ @@ -52,6 +53,3 @@ let ppobj = function ppterm ~metasenv ~subst ~context:[] ty ^ ":=\n"^ ppterm ~metasenv ~subst ~context:[] bo ^ "\n" ;; - - - -- 2.39.2