29 lines
1.3 KiB
Text
29 lines
1.3 KiB
Text
?m_1
|
||
nat.succ
|
||
(({fst := nat.rec
|
||
{fst := (λ (a : ℕ) (_F : nat.below a) (a_1 : ℕ),
|
||
(λ (a a_1 : ℕ) (_F : nat.below a_1),
|
||
nat.cases_on a_1 (λ (_F : nat.below 0), a)
|
||
(λ (a_1 : ℕ) (_F : nat.below (nat.succ a_1)), nat.succ ((_F^.fst)^.fst a))
|
||
_F)
|
||
a_1
|
||
a
|
||
_F)
|
||
0
|
||
punit.star,
|
||
snd := punit.star}
|
||
(λ (a : ℕ) (ih_1 : pprod ((λ (a : ℕ), ℕ → ℕ) a) (nat.below a)),
|
||
{fst := (λ (a : ℕ) (_F : nat.below a) (a_1 : ℕ),
|
||
(λ (a a_1 : ℕ) (_F : nat.below a_1),
|
||
nat.cases_on a_1 (λ (_F : nat.below 0), a)
|
||
(λ (a_1 : ℕ) (_F : nat.below (nat.succ a_1)), nat.succ ((_F^.fst)^.fst a))
|
||
_F)
|
||
a_1
|
||
a
|
||
_F)
|
||
(nat.succ a)
|
||
{fst := ih_1, snd := punit.star},
|
||
snd := {fst := ih_1, snd := punit.star}})
|
||
0,
|
||
snd := punit.star}^.fst)^.fst
|
||
1)
|