{ [T,A,B:Type].  EClass(A) r EClass(B) supposing A r B }

{ Proof }



Definitions occuring in Statement :  eclass: EClass(A[eo; e]) subtype_rel: A r B uimplies: b supposing a uall: [x:A]. B[x] universe: Type
Definitions :  uall: [x:A]. B[x] uimplies: b supposing a eclass: EClass(A[eo; e]) member: t  T all: x:A. B[x] so_lambda: x.t[x] so_apply: x[s]
Lemmas :  subtype_rel_dep_function subtype_rel_self subtype_rel_function top_wf subtype_rel_sum event-ordering+_wf

\mforall{}[T,A,B:Type].    EClass(A)  \msubseteq{}r  EClass(B)  supposing  A  \msubseteq{}r  B


Date html generated: 2011_08_16-AM-11_28_30
Last ObjectModification: 2011_06_20-AM-00_28_18

Home Index