{ [Info:Type]. [es:EO+(Info)]. [T:Type]. [X:EClass(T  )]. [e:E].
    Tagged_tt(X)(e) ~ fst(X(e)) supposing e  Tagged_tt(X) }

{ Proof }



Definitions occuring in Statement :  es-tagged-true-class: Tagged_tt(X),  eclass-val: X(e),  in-eclass: e  X,  eclass: EClass(A[eo; e]),  event-ordering+: EO+(Info),  es-E: E,  assert: b,  bool: ,  uimplies: b supposing a,  uall: [x:A]. B[x],  pi1: fst(t),  product: x:A  B[x],  universe: Type,  sqequal: s ~ t
Definitions :  implies: P  Q,  filter: filter(P;l),  pi1: fst(t),  nil: [],  qabs: |r|,  append: as @ bs,  strong-subtype: strong-subtype(A;B),  le: A  B,  ge: i  j ,  not: A,  less_than: a < b,  and: P  Q,  uiff: uiff(P;Q),  sq_type: SQType(T),  eclass-val: X(e),  sqequal: s ~ t,  void: Void,  pair: <a, b>,  es-E-interface: E(X),  decide: case b of inl(x) => s[x] | inr(y) => t[y],  es-tagged-true-class: Tagged_tt(X),  in-eclass: e  X,  set: {x:A| B[x]} ,  prop: ,  assert: b,  uimplies: b supposing a,  bag: bag(T),  subtype: S  T,  subtype_rel: A r B,  atom: Atom,  apply: f a,  top: Top,  es-base-E: es-base-E(es),  token: "$token",  ifthenelse: if b then t else f fi ,  record-select: r.x,  bool: ,  product: x:A  B[x],  event_ordering: EO,  es-E: E,  lambda: x.A[x],  so_lambda: x y.t[x; y],  eclass: EClass(A[eo; e]),  dep-isect: Error :dep-isect,  eq_atom: x =a y,  eq_atom: eq_atom$n(x;y),  record+: record+,  all: x:A. B[x],  function: x:A  B[x],  isect: x:A. B[x],  uall: [x:A]. B[x],  universe: Type,  member: t  T,  event-ordering+: EO+(Info),  equal: s = t,  tactic: Error :tactic,  Unfold: Error :Unfold,  MaAuto: Error :MaAuto,  CollapseTHENA: Error :CollapseTHENA,  CollapseTHEN: Error :CollapseTHEN,  bag_only_single: bag_only_single{bag_only_single_compseq_tag_def:o}(x),  false: False,  limited-type: LimitedType,  bfalse: ff,  btrue: tt,  eq_bool: p =b q,  lt_int: i <z j,  le_int: i z j,  eq_int: (i = j),  null: null(as),  set_blt: a < b,  grp_blt: a < b,  infix_ap: x f y,  dcdr-to-bool: [d],  bl-all: (xL.P[x])_b,  bl-exists: (xL.P[x])_b,  b-exists: (i<n.P[i])_b,  eq_type: eq_type(T;T'),  qeq: qeq(r;s),  q_less: q_less(r;s),  q_le: q_le(r;s),  deq-member: deq-member(eq;x;L),  deq-disjoint: deq-disjoint(eq;as;bs),  deq-all-disjoint: deq-all-disjoint(eq;ass;bs),  eq_id: a = b,  eq_lnk: a = b,  es-eq-E: e = e',  es-bless: e <loc e',  es-ble: e loc e',  bimplies: p  q,  band: p  q,  bor: p q,  bnot: b,  int: ,  unit: Unit,  union: left + right,  so_lambda: x.t[x],  single-bag: {x},  empty-bag: {},  bag-only: only(bs),  pi2: snd(t),  fpf: a:A fp-> B[a],  es-filter-image: f[X],  Auto: Error :Auto,  THENM: Error :THENM,  D: Error :D
Lemmas :  is-tagged-true,  es-filter-image-val,  pi1_wf,  single-bag_wf,  bag_wf,  ifthenelse_wf,  bag-only_wf,  eqtt_to_assert,  uiff_transitivity,  eqff_to_assert,  assert_of_bnot,  bnot_wf,  not_wf,  pi2_wf,  assert_wf,  in-eclass_wf,  member_wf,  es-interface-top,  eclass_wf,  es-interface-subtype_rel2,  subtype_rel_wf,  top_wf,  bool_wf,  es-E_wf,  es-base-E_wf,  subtype_rel_self,  event-ordering+_inc,  event-ordering+_wf,  es-tagged-true-class_wf,  eclass-val_wf,  subtype_base_sq

\mforall{}[Info:Type].  \mforall{}[es:EO+(Info)].  \mforall{}[T:Type].  \mforall{}[X:EClass(T  \mtimes{}  \mBbbB{})].  \mforall{}[e:E].
    Tagged\_tt(X)(e)  \msim{}  fst(X(e))  supposing  \muparrow{}e  \mmember{}\msubb{}  Tagged\_tt(X)


Date html generated: 2011_08_16-PM-04_17_03
Last ObjectModification: 2011_06_20-AM-00_45_29

Home Index