]> matita.cs.unibo.it Git - helm.git/commitdiff
Axioms were not indexed.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 24 Mar 2010 14:33:55 +0000 (14:33 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 24 Mar 2010 14:33:55 +0000 (14:33 +0000)
From: sacerdot <sacerdot@c2b2084f-9a08-0410-b176-e24b037a169a>

helm/software/components/ng_paramodulation/nCicParamod.ml

index 0fff20b4f262badef61d0af0404b5069a83fece1..16ae66e5da45f76259420625ebd2311247899987 100644 (file)
@@ -115,6 +115,9 @@ let index_obj s uri =
   debug (lazy ("indexing : " ^ (NUri.string_of_uri uri)));
   debug (lazy ("no : " ^ (string_of_int (fst (Obj.magic uri)))));
   match obj with
+    | (_,_,[],[],NCic.Constant(_,_,None,ty,_)) ->
+        let nref = NReference.reference_of_spec uri NReference.Decl in
+       forward_infer_step s (NCic.Const nref) 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