]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/ng_refiner/check.ml
first proof reconstruction attempt, still bugged since it
[helm.git] / helm / software / components / ng_refiner / check.ml
index 51f0482a525825451ec729a0f9ac14aad34929f8..6aba5a993e76ded2157c689c96a40a08b33e729e 100644 (file)
@@ -272,8 +272,9 @@ let _ =
           let bo = curryfy [] bo in
           (try 
             let rdb = { 
-                NRstatus.uhint_db = NCicUnifHint.empty_db; 
-                NRstatus.coerc_db = NCicCoercion.empty_db 
+               NRstatus.uhint_db = NCicUnifHint.empty_db; 
+               NRstatus.coerc_db = NCicCoercion.empty_db;
+               NRstatus.library_db = NCicLibrary.time0
             } in 
             let metasenv, subst, bo, infty = 
               NCicRefiner.typeof rdb [] [] [] bo None