16bd7ea455
This PR deprecates `List.iota`, which we make no essential use of. `iota n` can be replaced with `(range' 1 n).reverse`. The verification lemmas for `range'` already have better coverage than those for `iota`. Any downstream projects using it (I am not aware of any) are encouraged to adopt it.
17 lines
397 B
Text
17 lines
397 B
Text
import Lean.Data.PersistentArray
|
||
|
||
def check [BEq α] (as : List α) : Bool :=
|
||
as.toPArray'.foldr (.::.) [] == as
|
||
|
||
def tst1 : IO Unit := do
|
||
assert! check [1, 2, 3]
|
||
assert! check ([] : List Nat)
|
||
assert! check (List.range 17)
|
||
assert! check (List.range 533)
|
||
assert! check (List.range 1000)
|
||
assert! check (List.range 2600)
|
||
IO.println "done"
|
||
|
||
/-- info: done -/
|
||
#guard_msgs in
|
||
#eval tst1
|