locations check fails for "let open" patterns

[ceastlund]

let () = match () with Core.[] -> () fails, reporting Core.[] as having an identifier overlapping a pattern. I believe this is ultimately a parser bug in the source locations, but for now the easiest solution is for ppxlib to work around this, as it does with other similar instances.