ocaml 3.09 transition

[helm.git] / helm / matita / matitaSync.mli

diff --git a/helm/matita/matitaSync.mli b/helm/matita/matitaSync.mli
index 06807a1e4960a68e7bf0eac404e640a86d4af1b3..f3906fb8bc1febcf7de9f0735d2ab352d0fa9635 100644 (file)
--- a/helm/matita/matitaSync.mli
+++ b/helm/matita/matitaSync.mli
@@ -24,7 +24,8 @@
  *)
 
 val add_obj:
-  UriManager.uri -> Cic.obj -> MatitaTypes.status -> MatitaTypes.status
+  UriManager.uri -> Cic.obj -> 
+    MatitaTypes.status -> MatitaTypes.status
 
 val time_travel: 
   present:MatitaTypes.status -> past:MatitaTypes.status -> unit
@@ -33,16 +34,19 @@ val time_travel:
     * that the second one can only have more aliases than the first one
     * @return the list of aliases that should be added to aliases of from in
     * order to be equal to aliases of the second argument *)
-val alias_diff: from:MatitaTypes.status -> MatitaTypes.status ->
-  DisambiguateTypes.environment
+val alias_diff:
+ from:MatitaTypes.status -> MatitaTypes.status ->
+  (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list
 
   (** set the proof aliases enriching the moo_content *)
 val set_proof_aliases :
-  MatitaTypes.status -> DisambiguateTypes.environment -> MatitaTypes.status
+  MatitaTypes.status ->
+  (DisambiguateTypes.domain_item * DisambiguateTypes.codomain_item) list ->
+  MatitaTypes.status
 
-
-  (* removes the object from DB, Disk, CoercionsDB, getter 
+  (* removes the object from DB, Disk, CoercionsDB, CicEnvironment, getter 
    * asserts the uri is resolved to file:// so it is only for 
-   * user's objects *)
-val remove: UriManager.uri -> unit
+   * user's objects
+   * @param verbose defaults to false *)
+val remove: ?verbose:bool -> UriManager.uri -> unit