fact: Definition anti_literals (l : lit) : seq lit := let: ((x, y), z) := l in let rx1 := x %/ h * h in let ry1 := y %/ w * w in [seq ((x, y1), z) | y1 <- indexes & y != y1 ] ++ [seq ((x1, y), z) | x1 <- indexes & x != x1 ] ++ [seq (shift p rx1 ry1, z) | p <- cross & (x, y) != shift p rx1 ry1].
imports: mathcomp(all_ssreflect) mathcomp(zify)