X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FproofChecker%2FproofChecker.ml;h=7659e57dd2a6553128909b21689ad59082547d7e;hb=6912a028bef118d8e9d7c2847200510a9b055c6a;hp=a04e782e1fb63102b86bf6f9f32e201690382cad;hpb=8efe0bd61c215608ad2a7df5a12be81fae2eaf59;p=helm.git

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
index a04e782e1..7659e57dd 100644
--- a/helm/proofChecker/proofChecker.ml
+++ b/helm/proofChecker/proofChecker.ml
@@ -107,7 +107,8 @@ let callback (req : Http_types.request) outchan' =
           fprintf outchan' "%s" (html_preamble uri);
           flush outchan';
           (try
-            ignore (CicTypeChecker.typecheck (UriManager.uri_of_string uri));
+            ignore (CicTypeChecker.typecheck (UriManager.uri_of_string uri)
+              CicUniv.empty_ugraph);
            with e ->
             fprintf outchan' "%s\n" (Printexc.to_string e);
             flush outchan');
@@ -127,5 +128,7 @@ in
 
 printf "Proof Checker started and listening on port %d\n" port;
 flush stdout;
+CicEnvironment.set_trust (fun _ -> false);
 Http_daemon.start' ~port ~mode:`Fork callback ;
 printf "Proof Checker is terminating, bye!\n"
+