Add opt Elemwise[EQ](Subtensor(Shape(x)), -N) -> Elemwise[zeros](X) that work around this comment by removing the re-inserted scan: https://github.com/Theano/Theano/pull/4356/files#r61901454