X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flibrary%2FlibrarySync.mli;h=b29a0aa0342b33442b57272f144556029cc24d46;hb=e8f64678cc425f19336ff4f905f9b2f00acd6627;hp=812685c5361816b701eb3fabae9b816ab3453eee;hpb=185bfc8f9c9ba49308477ee6769701f3e2977115;p=helm.git

diff --git a/helm/software/components/library/librarySync.mli b/helm/software/components/library/librarySync.mli
index 812685c53..b29a0aa03 100644
--- a/helm/software/components/library/librarySync.mli
+++ b/helm/software/components/library/librarySync.mli
@@ -25,12 +25,15 @@
 
 exception AlreadyDefined of UriManager.uri
 
+(* this is a pointer to the function which builds the inversion principle *)
+val build_inversion_principle: (UriManager.uri-> Cic.obj -> (UriManager.uri * Cic.obj) option) ref
+
 (* adds an object to the library together with all auxiliary lemmas on it *)
 (* (e.g. elimination principles, projections, etc.)                       *)
 (* it returns the list of the uris of the auxiliary lemmas generated      *)
 val add_obj: 
   RefinementTool.kit -> 
-  UriManager.uri -> Cic.obj -> basedir:string -> 
+  UriManager.uri -> Cic.obj -> 
     UriManager.uri list
 
 (* inverse of add_obj;                                                   *)
@@ -43,7 +46,7 @@ val remove_obj: UriManager.uri -> unit
 (* is true are added to the library.                                     *)
 (* The list of added objects is returned.                                *)
 val add_coercion: 
-  basedir:string -> add_composites:bool -> 
+  add_composites:bool -> 
   RefinementTool.kit -> UriManager.uri -> 
     UriManager.uri list