Commit b0775274 authored by POTTIER Francois's avatar POTTIER Francois

Added [CompletedNatWitness.to_int].

parent f5fd06e5
......@@ -103,3 +103,11 @@ let print conv p =
String.concat " " (List.map conv (Seq.elements xs))
| Infinity ->
"infinity"
let to_int p =
match p with
| Finite (i, _) ->
i
| Infinity ->
max_int
......@@ -27,3 +27,4 @@ val add_cutoff: (* cutoff: *) int -> 'a t -> (int -> 'a t) -> 'a t
val until_finite: 'a t -> (unit -> 'a t) -> 'a t
val print: ('a -> string) -> 'a t -> string
val to_int: 'a t -> int
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment