2 ms·

Actually, this is wrong. Reductio ad absurdum should be: ((~x) -> x) -> x or: ((x -> _|_) -> x) -> x Which is not constructible in Coq/Idris.