method with_constr =
fun wc ->
match super#with_constr wc with
| Ast.WcAnd (_, (Ast.WcNil _), wc) |
Ast.WcAnd (_, wc, (Ast.WcNil _)) -> wc
| wc -> wc