Loading module Cryptol
(\(x : Bit) (y : Bit) -> x < y) False True = True
Q.E.D.