17 lines
234 B
Text
17 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
|