let prop0 (f : 'a -> 'b) (xs : 'a List.t) : bool =
  List.length (List.map f xs) = 0

let mono_prop0 = [%monomorphic prop0]