{ [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