16 lines
234 B
Text
16 lines
234 B
Text
VISIT num2.lean
|
|
WAIT
|
|
SET
|
|
pp.notation false
|
|
FINDP 39
|
|
pos_num.si
|
|
REPLACE 23
|
|
definition size (a : pos_num) : pos_num :=
|
|
WAIT
|
|
REPLACE 39
|
|
rec (pos pos_num.one) (λp, pos (pos_num.size p)) a
|
|
WAIT
|
|
FINDP 39
|
|
pos_num.si
|
|
FINDP 26
|
|
pos_num.si
|