X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fcommon%2Fhierarchy.mli;h=a0bd1862ecff883a4bc469254955f77ad9f681b0;hb=689118326fbe47231865b26c66ae89144459be6a;hp=da15a64dd2dd62707d75504bd273d44be2a021f3;hpb=93205dc852fa208b48a05757d05d9910b7d45fa1;p=helm.git

diff --git a/helm/software/lambda-delta/common/hierarchy.mli b/helm/software/lambda-delta/common/hierarchy.mli
index da15a64dd..a0bd1862e 100644
--- a/helm/software/lambda-delta/common/hierarchy.mli
+++ b/helm/software/lambda-delta/common/hierarchy.mli
@@ -9,16 +9,14 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
-type graph
-
-val set_sorts: string list -> int -> int
+val set_sorts: int -> string list -> int
 
 val string_of_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: graph -> string
+val string_of_graph: unit -> string
 
-val apply: graph -> int -> int
+val apply: int -> int