From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 7 Oct 2009 13:57:57 +0000 (+0000)
Subject: terms indexed in the automation cache are saturated
X-Git-Tag: make_still_working~3356
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=c18e280d198b15aaa0598b1520ba1c457a56983e;p=helm.git

terms indexed in the automation cache are saturated
---

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index 33d0370f1..d78610c37 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -534,10 +534,10 @@ let index_obj_for_auto status (uri, height, _, _, kind) =
   | NCic.Fixpoint _ -> []
   | NCic.Inductive _ -> []
   | NCic.Constant (_,_,Some _, ty, _) ->
-      let ty = (* saturare *) ty in
+     let ty,_,_ = NCicMetaSubst.saturate [] [] [] ty 0 in
       [ty,NCic.Const(NReference.reference_of_spec uri (NReference.Def height))]
   | NCic.Constant (_,_,None _, ty, _) ->
-      let ty = (* saturare *) ty in
+     let ty,_,_ = NCicMetaSubst.saturate [] [] [] ty 0 in
       [ty,NCic.Const(NReference.reference_of_spec uri (NReference.Decl))]
  in
  let status = basic_index_obj data status in