package bonsai
Module Bonsai_quickcheck.WitnessSource
Source
type ('a, 'cmp) t = | Unit : (unit, Core.Unit.comparator_witness) t| Int : (int, Core.Int.comparator_witness) t| Either : ('a, 'cmp_a) t * ('b, 'cmp_b) t -> (('a, 'b) Core.Either.t, ('cmp_a, 'cmp_b) Core.Either.comparator_witness) t| Tuple : ('a, 'cmp_a) t * ('b, 'cmp_b) t -> (('a, 'b) Core.Tuple2.t, ('cmp_a, 'cmp_b) Core.Tuple2.comparator_witness) t| Map : ('k, 'k_cmp) t * ('v, 'v_cmp) t -> (('k, 'v, 'k_cmp) Core.Map.t, ('k_cmp, 'v_cmp) Map_comparator.comparator_witness) t| Effect_func : ('a, 'cmp) t -> ('a -> unit Bonsai.Effect.t, 'cmp Effect_func_comparator.comparator_witness) t