X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fpure.mli;h=9b683b33530ccadf28c87ad43dcb7af137e85541;hb=004af0d4267446f320a99dc9045e50c06f9a787d;hp=f36007498ca1556eeb20708641560cef3b725cc3;hpb=e4aa4a66dd0a4946607245a0f43eab803f2770c4;p=fireball-separation.git

diff --git a/ocaml/pure.mli b/ocaml/pure.mli
index f360074..9b683b3 100644
--- a/ocaml/pure.mli
+++ b/ocaml/pure.mli
@@ -1,10 +1,12 @@
 module Pure :
   sig
-    type t = V of int | A of t * t | L of t
+    type t = V of int | A of t * t | L of t | B
     val print : ?l:string list -> t -> string
     val lift : int -> t -> t
-    val unwind : ?tbl:('a list * t * 'a list as 'a, t) Hashtbl.t -> 'a -> t
     val mwhd : (('a * t * ('b list as 'c) as 'b) list as 'a) * t * 'c -> t
+    val omega : bool -> t
+    val diverged : t -> bool
+    val env_of_sigma : int -> (int * t) list -> (('a * t * ('b list as 'c) as 'b) list as 'a)
   end
 
 module Scott :