X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flibrary%2FlibrarySync.mli;h=a836dfd5788df205ac27ffd35ef539bd80dc05f0;hb=d7227b93729c13636d297b959b7d8c178dfe3aaf;hp=d063b3282734b354c6b822467329e7a558149f14;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/library/librarySync.mli b/components/library/librarySync.mli
index d063b3282..a836dfd57 100644
--- a/components/library/librarySync.mli
+++ b/components/library/librarySync.mli
@@ -25,12 +25,16 @@
 
 exception AlreadyDefined of UriManager.uri
 
-val merge_coercions: Cic.term -> Cic.term
+(* this is a pointer to the function which builds the inversion principle *)
+val build_inversion_principle: (UriManager.uri-> Cic.obj -> (UriManager.uri * Cic.obj) list) 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: UriManager.uri -> Cic.obj -> basedir:string -> UriManager.uri list
+val add_obj: 
+  RefinementTool.kit -> 
+  UriManager.uri -> Cic.obj -> 
+    UriManager.uri list
 
 (* inverse of add_obj;                                                   *)
 (* Warning: it does not remove the dependencies on the object and on its *)
@@ -42,7 +46,9 @@ 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 -> UriManager.uri -> 
+  add_composites:bool -> 
+  RefinementTool.kit -> UriManager.uri -> int (* arity *) ->
+   string (* baseuri *) ->
     UriManager.uri list
 
 (* inverse of add_coercion, removes both the eventually created composite   *)