4 lines
No EOL
123 B
OCaml
4 lines
No EOL
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] |