{ [Info,A,B:Type]. [X:EClass(A)]. [Y:EClass(B)].
    ((X | Y)  EClass(one_or_both(A;B))) }

{ Proof }



Definitions occuring in Statement :  es-or-latest: (X | Y),  eclass: EClass(A[eo; e]),  uall: [x:A]. B[x],  member: t  T,  universe: Type,  one_or_both: one_or_both(A;B)
Definitions :  latest-pair: (X&Y),  es-interface-union: X+Y,  bool: ,  subtype: S  T,  subtype_rel: A r B,  eq_atom: eq_atom$n(x;y),  atom: Atom,  apply: f a,  top: Top,  es-base-E: es-base-E(es),  token: "$token",  eq_atom: x =a y,  ifthenelse: if b then t else f fi ,  record-select: r.x,  dep-isect: Error :dep-isect,  record+: record+,  event_ordering: EO,  es-E: E,  event-ordering+: EO+(Info),  lambda: x.A[x],  all: x:A. B[x],  bag: bag(T),  function: x:A  B[x],  axiom: Ax,  es-or-latest: (X | Y),  product: x:A  B[x],  union: left + right,  one_or_both: one_or_both(A;B),  universe: Type,  uall: [x:A]. B[x],  so_lambda: x y.t[x; y],  eclass: EClass(A[eo; e]),  isect: x:A. B[x],  member: t  T,  equal: s = t,  tactic: Error :tactic,  Unfold: Error :Unfold,  CollapseTHEN: Error :CollapseTHEN
Lemmas :  latest-pair_wf,  es-interface-union_wf,  event-ordering+_wf,  event-ordering+_inc,  subtype_rel_self,  es-base-E_wf,  es-E_wf,  eclass_wf

\mforall{}[Info,A,B:Type].  \mforall{}[X:EClass(A)].  \mforall{}[Y:EClass(B)].    ((X  |\msupminus{}  Y)  \mmember{}  EClass(one\_or\_both(A;B)))


Date html generated: 2011_08_16-PM-05_36_47
Last ObjectModification: 2011_06_20-AM-01_28_26

Home Index