{ 
[P:Pi_term]. pi-rank(P) = (pi-rank(pinew-body(P)) + 1) supposing 
pinew?(P) }
{ Proof }
Definitions occuring in Statement :
pi-rank: pi-rank(p),
pinew-body: pinew-body(x),
pinew?: pinew?(x),
pi_term: Pi_term,
assert: b,
nat: 
,
uimplies: b supposing a,
uall: [x:A]. B[x],
add: n + m,
natural_number: $n,
equal: s = t
Definitions :
uall: [x:A]. B[x],
uimplies: b supposing a,
member: t 
T,
prop: 
,
and: P 
Q
Lemmas :
assert_wf,
pinew?_wf,
pi_term_wf,
pi-new-decompose,
rank-new,
pinew-name_wf,
pinew-body_wf,
pi-rank_wf,
nat_wf
\mforall{}[P:Pi\_term]. pi-rank(P) = (pi-rank(pinew-body(P)) + 1) supposing \muparrow{}pinew?(P)
Date html generated:
2011_08_17-PM-06_48_18
Last ObjectModification:
2011_06_18-PM-12_20_38
Home
Index