X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteEngine.ml;h=71ac2939a7c8d6a7ab94c17a584871c19ec6eabc;hb=46b29739a529f639c3f34b038a6070a3a573db41;hp=d78610c3744ed054c3d242c4e41f926439b0b82e;hpb=c18e280d198b15aaa0598b1520ba1c457a56983e;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index d78610c37..71ac2939a 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -536,7 +536,7 @@ let index_obj_for_auto status (uri, height, _, _, kind) =
   | NCic.Constant (_,_,Some _, ty, _) ->
      let ty,_,_ = NCicMetaSubst.saturate [] [] [] ty 0 in
       [ty,NCic.Const(NReference.reference_of_spec uri (NReference.Def height))]
-  | NCic.Constant (_,_,None _, ty, _) ->
+  | NCic.Constant (_,_,None, ty, _) ->
      let ty,_,_ = NCicMetaSubst.saturate [] [] [] ty 0 in
       [ty,NCic.Const(NReference.reference_of_spec uri (NReference.Decl))]
  in