lean4-htt/tests/compiler/qsortBadLt.lean
2021-01-27 14:45:31 +01:00

6 lines
116 B
Text

def badLt (a b : Nat) : Bool :=
a != b
def main : IO Unit :=
let xs := [1, 2].toArray;
IO.println $ xs.qsort badLt