{ [Info:Type]
    es:EO+(Info)
      [A,B:Type].
        X:EClass(A). Y:EClass(B). e:E.
          (e  X+Y  (e  X)  (e  Y)) }

{ Proof }



Definitions occuring in Statement :  es-interface-union: X+Y in-eclass: e  X eclass: EClass(A[eo; e]) event-ordering+: EO+(Info) es-E: E assert: b uall: [x:A]. B[x] all: x:A. B[x] iff: P  Q or: P  Q universe: Type
Definitions :  pair: <a, b> so_apply: x[s] guard: {T} l_member: (x  l) bag_size_empty: bag_size_empty{bag_size_empty_compseq_tag_def:o} fpf: a:A fp-B[a] inr: inr x  single-bag: {x} empty-bag: {} void: Void strong-subtype: strong-subtype(A;B) record-select: r.x decide: case b of inl(x) =s[x] | inr(y) =t[y] ifthenelse: if b then t else f fi  dep-isect: Error :dep-isect,  record+: record+ le: A  B ge: i  j  less_than: a < b axiom: Ax rev_implies: P  Q true: True bag_size_single: bag_size_single{bag_size_single_compseq_tag_def:o}(x) false: False lt_int: i <z j le_int: i z j bfalse: ff subtype_rel: A r B bag: bag(T) set: {x:A| B[x]}  real: grp_car: |g| nat: limited-type: LimitedType btrue: tt prop: uimplies: b supposing a uiff: uiff(P;Q) eq_atom: x =a y 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') not: A eq_atom: eq_atom$n(x;y) 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 natural_number: $n apply: f a bag-size: bag-size(bs) eq_int: (i = j) bnot: b int: unit: Unit bool: assert: b eclass-compose2: eclass-compose2(f;X;Y) in-eclass: e  X es-interface-union: X+Y lambda: x.A[x] subtype: S  T equal: s = t member: t  T event_ordering: EO event-ordering+: EO+(Info) uall: [x:A]. B[x] isect: x:A. B[x] iff: P  Q and: P  Q product: x:A  B[x] implies: P  Q or: P  Q union: left + right universe: Type eclass: EClass(A[eo; e]) so_lambda: x y.t[x; y] all: x:A. B[x] function: x:A  B[x] es-E: E MaAuto: Error :MaAuto,  Repeat: Error :Repeat,  CollapseTHEN: Error :CollapseTHEN,  Auto: Error :Auto,  CollapseTHENA: Error :CollapseTHENA,  tactic: Error :tactic
Lemmas :  event-ordering+_wf es-E_wf bag_wf member_wf nat_wf bag-size_wf not_wf bnot_wf assert_wf bool_wf assert_of_eq_int not_functionality_wrt_uiff assert_of_bnot uiff_transitivity eqff_to_assert eqtt_to_assert event-ordering+_inc eclass_wf eq_int_wf true_wf false_wf assert_witness subtype_rel_wf ifthenelse_wf rev_implies_wf iff_wf

\mforall{}[Info:Type]
    \mforall{}es:EO+(Info)
        \mforall{}[A,B:Type].    \mforall{}X:EClass(A).  \mforall{}Y:EClass(B).  \mforall{}e:E.    (\muparrow{}e  \mmember{}\msubb{}  X+Y  \mLeftarrow{}{}\mRightarrow{}  (\muparrow{}e  \mmember{}\msubb{}  X)  \mvee{}  (\muparrow{}e  \mmember{}\msubb{}  Y))


Date html generated: 2011_08_16-PM-04_20_16
Last ObjectModification: 2011_06_20-AM-00_48_30

Home Index