X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmetadata%2FmetadataTypes.ml;h=3f55b886f8b2b0ea19ddbbec115b1427a5f3499d;hb=b41886e9d21d756279bd6a2ec3f19c17b1a64401;hp=5542825893d65369c9099bb36579d51abdb98d31;hpb=4c4d129e76feb5a393d4fed36a55300f7ef13534;p=helm.git

diff --git a/helm/ocaml/metadata/metadataTypes.ml b/helm/ocaml/metadata/metadataTypes.ml
index 554282589..3f55b886f 100644
--- a/helm/ocaml/metadata/metadataTypes.ml
+++ b/helm/ocaml/metadata/metadataTypes.ml
@@ -97,4 +97,13 @@ let ownerize_tables owner =
   name_tbl_real := ( name_tbl_original ^ "_" ^ owner) 
 ;;
 
+let library_sort_tbl =   sort_tbl_original
+let library_rel_tbl = rel_tbl_original
+let library_obj_tbl = obj_tbl_original
+let library_conclno_tbl = conclno_tbl_original
+let library_conclno_hyp_tbl = conclno_hyp_tbl_original
+let library_name_tbl = name_tbl_original
 
+let are_tables_ownerized () =
+  sort_tbl () <> library_sort_tbl
+