X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FnCicParamod.ml;h=fad1aa41157a96cdaf31669b598ca246601dfe78;hb=b0f18f8992623be7c7dde1890d51c7404e9930ab;hp=59018a51719f16d7c2e954f9a1cade94affae8ad;hpb=2e55fd0b276071a142e523322a777fef8c9e5a3f;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/nCicParamod.ml b/helm/software/components/ng_paramodulation/nCicParamod.ml
index 59018a517..fad1aa411 100644
--- a/helm/software/components/ng_paramodulation/nCicParamod.ml
+++ b/helm/software/components/ng_paramodulation/nCicParamod.ml
@@ -111,8 +111,9 @@ let forward_infer_step s t ty =
 let index_obj s uri =
   let obj = NCicEnvironment.get_checked_obj uri in
   match obj with
-    | (_,_,[],[],NCic.Constant(_,_,Some(t),ty,_)) ->
-	forward_infer_step s t ty
+    | (_,d,[],[],NCic.Constant(_,_,Some(_),ty,_)) ->
+        let nref = NReference.reference_of_spec uri (NReference.Def d) in
+	forward_infer_step s (NCic.Const nref) ty
     | _ -> s
 ;;