static IPred contains$(Cl l) { ret a -> contains(l, a); }