X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FoCicTypeChecker.ml;h=396144a5d3c9b499dd7fb6829e282292e5a0a16b;hb=d9037e385e4cb12eccd8a734f4a9fc1a5a0f8b62;hp=100e572af90db06f63e7b5892c08734b80f27156;hpb=a3ba13b9503a2c0dd89b89b489899362d17b3f3a;p=helm.git

diff --git a/helm/software/components/ng_kernel/oCicTypeChecker.ml b/helm/software/components/ng_kernel/oCicTypeChecker.ml
index 100e572af..396144a5d 100644
--- a/helm/software/components/ng_kernel/oCicTypeChecker.ml
+++ b/helm/software/components/ng_kernel/oCicTypeChecker.ml
@@ -1,7 +1,8 @@
 
-let typecheck_obj obj =
+let typecheck_obj uri obj =
   try 
-    NCicTypeChecker.typecheck_obj (OCic2NCic.convert_obj obj); true
+    NCicTypeChecker.typecheck_obj (HExtlib.list_last (OCic2NCic.convert_obj uri
+    obj)); true
   with 
     | NCicTypeChecker.TypeCheckerFailure _
     | NCicTypeChecker.AssertFailure _ -> false