X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmetadata%2FsqlStatements.ml;h=a08073965fcb2211e2d7ec63caeefdf96dda6c0a;hb=727d6939c3f3ff1769ac1d11cad11d2e06433295;hp=2e0e5e6a660ebaca8e18cd8dd9a16e7b4f2366b7;hpb=a911a4b33d3eaa19c1787be3c59143d159dcd8fe;p=helm.git

diff --git a/helm/ocaml/metadata/sqlStatements.ml b/helm/ocaml/metadata/sqlStatements.ml
index 2e0e5e6a6..a08073965 100644
--- a/helm/ocaml/metadata/sqlStatements.ml
+++ b/helm/ocaml/metadata/sqlStatements.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 open Printf;;
 type tbl = [ `RefObj| `RefSort| `RefRel| `ObjectName| `Hits| `Count]
 
@@ -86,7 +88,8 @@ let sprintf_count_drop name = [sprintf "DROP TABLE %s;" name]
 (* INDEXES *)
 
 let sprintf_refObj_index name = [
-sprintf "CREATE INDEX %s_index ON %s (source(219),h_occurrence(219),h_position);" name name ]
+sprintf "CREATE INDEX %s_index ON %s (source(219),h_occurrence(219),h_position);" name name;
+sprintf "CREATE INDEX %s_occurrence ON %s (h_occurrence);" name name ]
 
 let sprintf_refSort_index name = [
 sprintf "CREATE INDEX %s_index ON %s (source,h_sort,h_position,h_depth);" name name]
@@ -99,7 +102,6 @@ sprintf "CREATE INDEX %s_source ON %s (source);" name name ;
 sprintf "CREATE INDEX %s_no ON %s (no);" name name] 
 
 let sprintf_count_index name = [
-sprintf "CREATE INDEX %s_source ON %s (source);" name name;
 sprintf "CREATE INDEX %s_conclusion ON %s (conclusion);" name name;
 sprintf "CREATE INDEX %s_hypothesis ON %s (hypothesis);" name name;
 sprintf "CREATE INDEX %s_statement ON %s (statement);" name name]