12 lines
424 B
Text
12 lines
424 B
Text
-- BEGINWAIT
|
|
-- ENDWAIT
|
|
-- BEGINFINDP
|
|
le.rec_on|le ?a ?a → (Π a, ?C a a) → ?C ?a ?a
|
|
nat.rec_on|Π n, ?C 0 → (Π a, ?C a → ?C (succ a)) → ?C n
|
|
bool.rec_on|Π n, ?C bool.ff → ?C bool.tt → ?C n
|
|
-- ENDFINDP
|
|
-- BEGINFINDP
|
|
nat.le.rec_on|nat.le ?a ?a → (Π a, ?C a a) → ?C ?a ?a
|
|
nat.rec_on|Π n, ?C 0 → (Π a, ?C a → ?C (nat.succ a)) → ?C n
|
|
bool.rec_on|Π n, ?C bool.ff → ?C bool.tt → ?C n
|
|
-- ENDFINDP
|