{ [Info:Type]. [n:]. [A:n  Type]. [X:i:n  EClass(A i)]. [T:Type].
  [f:i:n  bag(A i)  bag(T)  bag(T)].
    (f|X,(self)'|  EClass(T)) }

{ Proof }



Definitions occuring in Statement :  rec-combined-class: f|X,(self)'| eclass: EClass(A[eo; e]) int_seg: {i..j} nat: uall: [x:A]. B[x] member: t  T apply: f a function: x:A  B[x] natural_number: $n universe: Type bag: bag(T)
Definitions :  function: x:A  B[x] top: Top uall: [x:A]. B[x] member: t  T isect: x:A. B[x] universe: Type int_seg: {i..j} so_lambda: x y.t[x; y] eclass: EClass(A[eo; e]) nat: equal: s = t bag: bag(T) apply: f a rec-combined-class: f|X,(self)'| axiom: Ax set: {x:A| B[x]}  int: le: A  B not: A false: False implies: P  Q all: x:A. B[x] subtype_rel: A r B uiff: uiff(P;Q) and: P  Q product: x:A  B[x] uimplies: b supposing a less_than: a < b ge: i  j  strong-subtype: strong-subtype(A;B) fpf: a:A fp-B[a] natural_number: $n subtype: S  T grp_car: |g| real: lambda: x.A[x] event-ordering+: EO+(Info) es-E: E event_ordering: EO ycomb: Y void: Void record+: record+ dep-isect: Error :dep-isect,  eq_atom: eq_atom$n(x;y) eq_atom: x =a y primed-class: Prior(X) assert: b ifthenelse: if b then t else f fi  decide: case b of inl(x) =s[x] | inr(y) =t[y] record-select: r.x strongwellfounded: SWellFounded(R[x; y]) exists: x:A. B[x] prop: subtract: n - m add: n + m minus: -n limited-type: LimitedType es-causl: (e < e') squash: T true: True es-local-pred: last(P) tactic: Error :tactic,  CollapseTHENA: Error :CollapseTHENA,  es-locl: (e <loc e') sq_exists: x:{A| B[x]} union: left + right or: P  Q lt_int: i <z j bag-size: bag-size(bs) bool: infix_ap: x f y MaAuto: Error :MaAuto,  CollapseTHEN: Error :CollapseTHEN,  Auto: Error :Auto,  es-E-interface: E(X) l_member: (x  l) guard: {T} so_apply: x[s] Id: Id es-loc: loc(e) pair: <a, b> token: "$token" es-base-E: es-base-E(es) atom: Atom cand: A c B intensional-universe: IType inl: inl x  empty-bag: {} inr: inr x 
Lemmas :  empty-bag_wf false_wf intensional-universe_wf subtype_rel_self es-base-E_wf es-local-pred_wf2 bool_wf es-local-pred_wf subtype_rel_wf bag-size_wf lt_int_wf not_wf assert_wf es-locl_wf es-causl_wf le_wf ge_wf nat_properties es-causl-swellfnd eclass_wf event-ordering+_inc int_seg_wf nat_wf event-ordering+_wf top_wf es-E_wf member_wf bag_wf

\mforall{}[Info:Type].  \mforall{}[n:\mBbbN{}].  \mforall{}[A:\mBbbN{}n  {}\mrightarrow{}  Type].  \mforall{}[X:i:\mBbbN{}n  {}\mrightarrow{}  EClass(A  i)].  \mforall{}[T:Type].  \mforall{}[f:i:\mBbbN{}n  {}\mrightarrow{}  bag(A  i)
                                                                                                                                                                {}\mrightarrow{}  bag(T)
                                                                                                                                                                {}\mrightarrow{}  bag(T)].
    (f|X,(self)'|  \mmember{}  EClass(T))


Date html generated: 2011_08_16-PM-04_51_18
Last ObjectModification: 2011_06_20-AM-01_08_49

Home Index