{ 
[P:Pi_term]. 
[choice:{c:pi_prefix() 
 Pi_term| (c 
 pi-choices(P))} ].
    (pi-rank(snd(choice)) < pi-rank(P)) }
{ Proof }
Definitions occuring in Statement : 
pi-choices: pi-choices(t), 
pi-rank: pi-rank(p), 
pi_term: Pi_term, 
pi_prefix: pi_prefix(), 
uall:
[x:A]. B[x], 
pi2: snd(t), 
less_than: a < b, 
set: {x:A| B[x]} , 
product: x:A 
 B[x], 
l_member: (x 
 l)
Definitions : 
proper-iseg: L1 < L2, 
iseg: l1 
 l2, 
gt: i > j, 
union: left + right, 
or: P 
 Q, 
pi2: snd(t), 
length: ||as||, 
strong-subtype: strong-subtype(A;B), 
exists:
x:A. B[x], 
le: A 
 B, 
ge: i 
 j , 
natural_number: $n, 
not:
A, 
uimplies: b supposing a, 
and: P 
 Q, 
uiff: uiff(P;Q), 
subtype_rel: A 
r B, 
pi-rank: pi-rank(p), 
axiom: Ax, 
less_than: a < b, 
pi-choices: pi-choices(t), 
universe: Type, 
prop:
, 
isect:
x:A. B[x], 
all:
x:A. B[x], 
function: x:A 
 B[x], 
uall:
[x:A]. B[x], 
l_member: (x 
 l), 
pi_prefix: pi_prefix(), 
rec: rec(x.A[x]), 
set: {x:A| B[x]} , 
equal: s = t, 
pi_term: Pi_term, 
product: x:A 
 B[x], 
member: t 
 T, 
name: Name, 
pi_term_ind_pinew: pi_term_ind_pinew_compseq_tag_def, 
pi_term_ind_pirep: pi_term_ind_pirep_compseq_tag_def, 
pi_term_ind_pipar: pi_term_ind_pipar_compseq_tag_def, 
cand: A c
 B, 
pi_term_ind_pioption: pi_term_ind_pioption_compseq_tag_def, 
IdLnk: IdLnk, 
Id: Id, 
append: as @ bs, 
locl: locl(a), 
Knd: Knd, 
sq_stable: SqStable(P), 
pair: <a, b>, 
cons: [car / cdr], 
tl: tl(l), 
hd: hd(l), 
add: n + m, 
pi_term_ind_picomm: pi_term_ind_picomm_compseq_tag_def, 
void: Void, 
apply: f a, 
so_apply: x[s], 
false: False, 
iff: P 

 Q, 
assert:
b, 
list: type List, 
nil: [], 
pi_term_ind_pizero: pi_term_ind_pizero_compseq_tag_def, 
real:
, 
grp_car: |g|, 
subtype: S 
 T, 
int:
, 
nat:
, 
so_lambda: 
x.t[x], 
implies: P 
 Q, 
guard: {T}, 
lambda:
x.A[x], 
D: Error :D, 
CollapseTHEN: Error :CollapseTHEN, 
MaAuto: Error :MaAuto, 
Try: Error :Try, 
Unfolds: Error :Unfolds, 
Auto: Error :Auto, 
CollapseTHENA: Error :CollapseTHENA, 
tactic: Error :tactic, 
atom: Atom, 
sq_type: SQType(T), 
THENM: Error :THENM, 
eclass: EClass(A[eo; e]), 
fpf: a:A fp-> B[a], 
Complete: Error :Complete, 
AllHyps: Error :AllHyps
Lemmas : 
subtype_rel_wf, 
member_wf, 
member_append, 
subtype_base_sq, 
union_subtype_base, 
product_subtype_base, 
list_subtype_base, 
atom_subtype_base, 
nil_member, 
nat_wf, 
pi2_wf, 
pi_term-induction, 
uiff_inversion, 
member_singleton, 
append_wf, 
name_wf, 
l_member_wf, 
pi_prefix_wf, 
pi_term_wf, 
pi-choices_wf, 
pi-rank_wf
\mforall{}[P:Pi\_term].  \mforall{}[choice:\{c:pi\_prefix()  \mtimes{}  Pi\_term|  (c  \mmember{}  pi-choices(P))\}  ].
    (pi-rank(snd(choice))  <  pi-rank(P))
Date html generated:
2011_08_17-PM-06_52_31
Last ObjectModification:
2011_06_18-PM-12_26_35
Home
Index