2fe933cdf5
Instead of an abbreviation. It is easier to understand Pos operations in terms of 'push' and 'pop' rather than through arithmetic.
13 lines
417 B
Text
13 lines
417 B
Text
import Lean
|
|
open Lean.SubExpr
|
|
|
|
def ps := [#[], #[0], #[1], #[0,1], #[1,0] , #[0,0], #[1,2,3]]
|
|
theorem Pos.roundtrip :
|
|
true = ps.all fun x => x == (Pos.toArray <| Pos.ofArray <| x)
|
|
:= by native_decide
|
|
|
|
theorem Pos.append_roundtrip :
|
|
true = (List.all
|
|
(ps.bind fun p => ps.map fun q => (p,q))
|
|
(fun (x,y) => (x ++ y) == (Pos.toArray <| (Pos.append (Pos.ofArray x) (Pos.ofArray y))))
|
|
) := by native_decide
|