]> matita.cs.unibo.it Git - helm.git/commitdiff
removed debug pps
authorEnrico Tassi <enrico.tassi@inria.fr>
Thu, 4 Sep 2008 10:41:45 +0000 (10:41 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Thu, 4 Sep 2008 10:41:45 +0000 (10:41 +0000)
helm/software/components/content_pres/termContentPres.ml

index 0c83dd0bbb602334227444f8b0788811adb76e9f..29845af1ded26666ec2467cd0e1bf22d17862364 100644 (file)
@@ -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 :: [] ->