4 lines
123 B
OCaml
4 lines
123 B
OCaml
|
let prop0 (f : 'a -> 'b) (xs : 'a List.t) : bool =
|
||
|
|
List.length (List.map f xs) = 0
|
||
|
|
|
||
|
|
let mono_prop0 = [%monomorphic prop0]
|