Added [CompletedNatWitness.to_int].

src/CompletedNatWitness.ml

@@ -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
+

src/CompletedNatWitness.mli

@@ -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