Detect unused results from List.partition

[emillon]

Pattern:

let (x, _) = List.partition f l
let (_, y) = List.partition f l

That could be extended to Map.S.partition and Set.S.partition, or maybe even all functions named partition.