X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Flambda-delta%2Fcommon%2Fhierarchy.mli;h=04feaf92981b1ab4ee3beae9a76e7b49d1cc6c3c;hb=2b1375e4b44e2ef351a6341a5bb0a4823e8daae5;hp=a0790321cefca7880b778b73f08cc416066c62e2;hpb=79684e8bd0f54b5c88fff981366bd8c78dd0fbe9;p=helm.git

diff --git a/helm/software/lambda-delta/common/hierarchy.mli b/helm/software/lambda-delta/common/hierarchy.mli
index a0790321c..04feaf929 100644
--- a/helm/software/lambda-delta/common/hierarchy.mli
+++ b/helm/software/lambda-delta/common/hierarchy.mli
@@ -9,14 +9,16 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
-type graph
+val set_sorts: int -> string list -> int
 
-val set_sorts: (int -> 'a) -> string list -> int -> 'a
+val string_of_sort: (unit -> 'a) -> (string -> 'a) -> int -> 'a
 
-val get_sort: (unit -> 'a) -> (string -> 'a) -> int -> 'a
+val sort_of_string: (unit -> 'a) -> (int -> 'a) -> string -> 'a
 
-val graph_of_string: (unit -> 'a) -> (graph -> 'a) -> string -> 'a
+val set_graph: string -> bool
 
-val string_of_graph: (string -> 'a) -> graph -> 'a
+val string_of_graph: unit -> string
 
-val apply: (int -> 'a) -> graph -> int -> 'a
+val apply: int -> int
+
+val clear: unit -> unit