X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcontent_pres%2FtermContentPres.ml;h=29845af1ded26666ec2467cd0e1bf22d17862364;hb=8dba6e7197dc2badcf0451acf64435dfb7eb5386;hp=0c83dd0bbb602334227444f8b0788811adb76e9f;hpb=794fe0432b14ca29e5dfd2e217cef72e9b0ff61a;p=helm.git

diff --git a/helm/software/components/content_pres/termContentPres.ml b/helm/software/components/content_pres/termContentPres.ml
index 0c83dd0bb..29845af1d 100644
--- a/helm/software/components/content_pres/termContentPres.ml
+++ b/helm/software/components/content_pres/termContentPres.ml
@@ -342,21 +342,16 @@ let instantiate21 idrefs env l1 =
   and subst_magic pos env = function
     | Ast.List0 (p, sep_opt)
     | Ast.List1 (p, sep_opt) ->
-        prerr_endline "1";
         let rec_decls = CicNotationEnv.declarations_of_term p in
-        prerr_endline "2";
         let rec_values =
           List.map (fun (n, _) -> CicNotationEnv.lookup_list env n) rec_decls
         in
-        prerr_endline "3";
         let values = CicNotationUtil.ncombine rec_values in
-        prerr_endline "4";
         let sep =
           match sep_opt with
             | None -> []
             | Some l -> [ Ast.Literal l; break; space ]
 	in
-        prerr_endline "5";
         let rec instantiate_list acc = function
           | [] -> List.rev acc
 	  | value_set :: [] ->