X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fcommon%2Fhierarchy.mli;h=19e94305453935e2641a95bcfce28c6fa9a90db1;hb=0920a5755553774f5b41d7603318ea997ecbdca5;hp=57413d909625e1b717d908d7dd86ce56c6f32a7b;hpb=c8011c7ad75be5d03c4d4bb2e6900af32ad65c07;p=helm.git

diff --git a/helm/software/lambda-delta/common/hierarchy.mli b/helm/software/lambda-delta/common/hierarchy.mli
index 57413d909..19e943054 100644
--- a/helm/software/lambda-delta/common/hierarchy.mli
+++ b/helm/software/lambda-delta/common/hierarchy.mli
@@ -11,14 +11,12 @@
 
 type graph
 
-val set_new_sorts: (int -> 'a) -> string list -> 'a
+val set_sorts: string list -> int -> int
 
-val get_sort: (string option -> 'a) -> int -> 'a
+val get_sort: (unit -> 'a) -> (string -> 'a) -> int -> 'a
 
-val graph_of_string: (graph option -> 'a) -> string -> 'a
+val graph_of_string: (unit -> 'a) -> (graph -> 'a) -> string -> 'a
 
-val string_of_graph: (string -> 'a) -> graph -> 'a
+val string_of_graph: graph -> string
 
-val apply: (int -> 'a) -> graph -> int -> 'a
-
-val graph: graph ref
+val apply: graph -> int -> int