{ 
[A:Top]. (rec-case(A) of [] => 0 | _::as' => _.||as'|| + 1 ~ ||A||) }
{ Proof }
Definitions occuring in Statement :
length: ||as||,
uall: [x:A]. B[x],
top: Top,
list_ind: list_ind def,
add: n + m,
natural_number: $n,
sqequal: s ~ t
Definitions :
uall: [x:A]. B[x],
length: ||as||,
ycomb: Y,
member: t 
T
Lemmas :
top_wf
\mforall{}[A:Top]. (rec-case(A) of [] => 0 | $_{}$::as' => $_{}$.||as\000C'|| + 1 \msim{} ||A||)
Date html generated:
2011_08_10-AM-07_52_58
Last ObjectModification:
2011_06_18-AM-08_14_54
Home
Index