{ 
[Info,A,T:Type].
[X:EClass(T 
A)]. (MaxFst(X) 
EClass(T A)) supposing T 
r 
}
{ Proof }
Definitions occuring in Statement :
max-fst-class: MaxFst(X),
eclass: EClass(A[eo; e]),
subtype_rel: A r B,
uimplies: b supposing a,
uall: [x:A]. B[x],
member: t T,
product: x:A B[x],
int: ,
universe: Type
Definitions :
uall: [x:A]. B[x],
uimplies: b supposing a,
member: t T,
max-fst-class: MaxFst(X),
so_lambda: 
x.t[x],
top: Top,
all: x:A. B[x],
subtype: S T,
so_lambda: x y.t[x; y],
so_apply: x[s],
so_apply: x[s1;s2]
Lemmas :
max-f-class_wf,
pi1_wf_top,
eclass_wf,
es-E_wf,
event-ordering+_inc,
event-ordering+_wf
\mforall{}[Info,A,T:Type]. \mforall{}[X:EClass(T \mtimes{} A)]. (MaxFst(X) \mmember{} EClass(T \mtimes{} A)) supposing T \msubseteq{}r \mBbbZ{}
Date html generated:
2011_08_16-PM-04_37_34
Last ObjectModification:
2011_06_20-AM-01_00_03
Home
Index