From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Sat, 19 Apr 2008 16:32:22 +0000 (+0000)
Subject: impredicative set work around
X-Git-Tag: make_still_working~5309
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=3dccb88099c632e5ee74c866d8449771c9d2418b;p=helm.git

impredicative set work around
---

diff --git a/helm/software/components/ng_kernel/check.ml b/helm/software/components/ng_kernel/check.ml
index 2540e408e..520527473 100644
--- a/helm/software/components/ng_kernel/check.ml
+++ b/helm/software/components/ng_kernel/check.ml
@@ -18,6 +18,7 @@ let logger =
 ;;
 
 let _ =
+  CicParser.impredicative_set := false;
   NCicTypeChecker.set_logger logger;
   NCicPp.set_ppterm NCicPp.trivial_pp_term;
   Helm_registry.load_from "conf.xml";
@@ -71,15 +72,18 @@ let _ =
  BARO!
   let roots_alluris = alluris in *)
   prerr_endline "generating Coq graphs...";
+  (* per barare *)
+   let roots_alluris = alluris in
+  (* /per barare *)
   CicEnvironment.set_trust (fun _ -> false);
   List.iter (fun u ->
-   prerr_endline (" - " ^ UriManager.string_of_uri u);
-   try
-   ignore(CicTypeChecker.typecheck u);
-   with 
-   | CicTypeChecker.AssertFailure s
-   | CicTypeChecker.TypeCheckerFailure s -> prerr_endline (Lazy.force s)
-   ) roots_alluris;
+          prerr_endline (" - " ^ UriManager.string_of_uri u);
+          try
+            ignore(CicTypeChecker.typecheck u);
+          with 
+          | CicTypeChecker.AssertFailure s
+          | CicTypeChecker.TypeCheckerFailure s -> prerr_endline (Lazy.force s)
+    ) roots_alluris;
   prerr_endline "loading...";
   List.iter 
     (fun u -> 
@@ -88,8 +92,8 @@ let _ =
     roots_alluris;
   prerr_endline "finished....";
   CicUniv.do_rank (NCicEnvironment.get_graph ());
-  prerr_endline "ranked....";
   prerr_endline "caching objects";
+  prerr_endline "ranked....";
   HExtlib.profiling_enabled := false;
   List.iter (fun uu ->
      let uu= NUri.nuri_of_ouri uu in