impredicative set work around

diff --git a/helm/software/components/ng_kernel/check.ml b/helm/software/components/ng_kernel/check.ml
index 2540e408ef17488b952ec22798d569e1fc0574b7..5205274733494cda2585cbd6c59aafca03900c70 100644 (file)
--- 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