nat0.ml
bin_prot
bin_prot.shape
bin_prot.xen
1 2 3 4 5 6 7 8 9 10 (* Nat0: natural numbers (including zero) *) type t = int let of_int n = if n < 0 then failwith "Bin_prot.Nat0.of_int: n < 0"; n ;; external unsafe_of_int : int -> t = "%identity"
1 2 3 4 5 6 7 8 9 10
(* Nat0: natural numbers (including zero) *) type t = int let of_int n = if n < 0 then failwith "Bin_prot.Nat0.of_int: n < 0"; n ;; external unsafe_of_int : int -> t = "%identity"