Nuprl Lemma : length-normal-form
∀[A:Top]. (rec-case(A) of [] => 0 | _::as' => _.||as'|| + 1 ~ ||A||)
Proof
Definitions occuring in Statement :
length: ||as||,
list_ind: list_ind,
uall: ∀[x:A]. B[x],
top: Top,
add: n + m,
natural_number: $n,
sqequal: s ~ t
Lemmas :
top_wf
\mforall{}[A:Top]. (rec-case(A) of [] => 0 | $_{}$::as' => $_{}$.||as\000C'|| + 1 \msim{} ||A||)
Date html generated:
2015_07_17-AM-09_15_17
Last ObjectModification:
2015_01_28-AM-07_53_02
Home
Index