X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flibrary%2FlibrarySync.mli;h=13a6479bd6c1a312550b5e197c995e3bd267841f;hb=82f61808091c59aa884eb232b96ee1c655dcb39a;hp=96e9231009b58cb4b7df425d6eee90db73f073fa;hpb=686ad41d7c9431094c12dae0fa6b84a898c38e84;p=helm.git

diff --git a/helm/software/components/library/librarySync.mli b/helm/software/components/library/librarySync.mli
index 96e923100..13a6479bd 100644
--- a/helm/software/components/library/librarySync.mli
+++ b/helm/software/components/library/librarySync.mli
@@ -25,6 +25,8 @@
 
 exception AlreadyDefined of UriManager.uri
 
+val set_object_declaration_hook : (UriManager.uri -> Cic.obj -> unit) -> unit
+
 (* 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
 
@@ -48,13 +50,15 @@ val remove_obj: UriManager.uri -> unit
 val add_coercion: 
   add_composites:bool -> 
   RefinementTool.kit -> UriManager.uri -> int (* arity *) ->
-   string (* baseuri *) ->
-    (UriManager.uri * int) list (* URI and arity *)
+   int (* saturations *) -> string (* baseuri *) ->
+    (UriManager.uri * int * int * int) list (* URI, arity, saturations, cpos *)
 
 (* inverse of add_coercion, removes both the eventually created composite   *)
 (* coercions and the information that [uri] and the composites are coercion *)
 val remove_coercion: UriManager.uri -> unit
 
-(* mh... *)
+(* this is used when resetting, but the more gracefull push/pop can be used to
+ * suspend/resume an execution *)
 val remove_all_coercions: unit -> unit
-
+val push: unit -> unit
+val pop: unit -> unit