lean4-htt/tests/compiler/qsortBadLt.lean

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