1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
open! Import
module Stable = struct
module V1 = struct
module T = struct
include Base.Int
type t = int [@@deriving hash, bin_io, sexp]
end
include T
include Comparable.Stable.V1.Make (T)
end
end
include Identifiable.Extend
(Base.Int)
(struct
type t = int [@@deriving bin_io]
end)
module Replace_polymorphic_compare = Base.Int
include Base.Int
type t = int [@@deriving typerep]
module Hex = struct
include Hex
type nonrec t = t [@@deriving typerep, bin_io]
end
let quickcheck_generator = Base_quickcheck.Generator.int
let quickcheck_observer = Base_quickcheck.Observer.int
let quickcheck_shrinker = Base_quickcheck.Shrinker.int
let gen_incl = Base_quickcheck.Generator.int_inclusive
let gen_uniform_incl = Base_quickcheck.Generator.int_uniform_inclusive
let gen_log_incl = Base_quickcheck.Generator.int_log_inclusive
let gen_log_uniform_incl = Base_quickcheck.Generator.int_log_uniform_inclusive