Detection of divergents

[fireball-separation.git] / ocaml / pure.mli

diff --git a/ocaml/pure.mli b/ocaml/pure.mli
index a6b90acf7e16c6be71967352756223cbefb70f6d..1b60c09d269ca93716450608bcc7c6d4e4a2ff37 100644 (file)
--- a/ocaml/pure.mli
+++ b/ocaml/pure.mli
@@ -3,8 +3,9 @@ module Pure :
     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
   end
 
 module Scott :