module type Pred = sig .. end
sig
end
type p
val p : p Specification.predicate
p Specification.predicate
p