{ [Info:Type]. [es:EO+(Info)]. [X:EClass(Top)]. [f:Top]. [e:E].
    (e  es-interface-map(f;X) ~ e  X  (bag-size(f X(e) e) = 1)) }

{ Proof }



Definitions occuring in Statement :  es-interface-map: es-interface-map(f;X) eclass-val: X(e) in-eclass: e  X eclass: EClass(A[eo; e]) event-ordering+: EO+(Info) es-E: E eq_int: (i = j) band: p  q uall: [x:A]. B[x] top: Top apply: f a natural_number: $n universe: Type sqequal: s ~ t bag-size: bag-size(bs)
Definitions :  bag_size_empty: bag_size_empty{bag_size_empty_compseq_tag_def:o} false: False lt_int: i <z j le_int: i z j bfalse: ff set: {x:A| B[x]}  real: grp_car: |g| nat: limited-type: LimitedType btrue: tt prop: uimplies: b supposing a product: x:A  B[x] and: P  Q uiff: uiff(P;Q) 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 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 bor: p q assert: b bnot: b int: unit: Unit union: left + right implies: P  Q bool: let: let lambda: x.A[x] natural_number: $n eclass-val: X(e) bag-size: bag-size(bs) eq_int: (i = j) band: p  q es-interface-map: es-interface-map(f;X) in-eclass: e  X subtype: S  T subtype_rel: A r B atom: Atom apply: f a es-base-E: es-base-E(es) token: "$token" ifthenelse: if b then t else f fi  record-select: r.x all: x:A. B[x] dep-isect: Error :dep-isect,  eq_atom: x =a y eq_atom: eq_atom$n(x;y) record+: record+ bag: bag(T) function: x:A  B[x] void: Void equal: s = t universe: Type sqequal: s ~ t so_lambda: x y.t[x; y] eclass: EClass(A[eo; e]) top: Top event_ordering: EO es-E: E member: t  T event-ordering+: EO+(Info) uall: [x:A]. B[x] isect: x:A. B[x] CollapseTHEN: Error :CollapseTHEN,  MaAuto: Error :MaAuto,  CollapseTHENA: Error :CollapseTHENA
Lemmas :  bnot_wf assert_wf bool_wf assert_of_eq_int not_functionality_wrt_uiff assert_of_bnot uiff_transitivity not_wf eqff_to_assert nat_wf top_wf bag-size_wf eqtt_to_assert event-ordering+_wf event-ordering+_inc subtype_rel_self es-base-E_wf es-E_wf eclass_wf eq_int_wf

\mforall{}[Info:Type].  \mforall{}[es:EO+(Info)].  \mforall{}[X:EClass(Top)].  \mforall{}[f:Top].  \mforall{}[e:E].
    (e  \mmember{}\msubb{}  es-interface-map(f;X)  \msim{}  e  \mmember{}\msubb{}  X  \mwedge{}\msubb{}  (bag-size(f  X(e)  e)  =\msubz{}  1))


Date html generated: 2011_08_16-PM-04_17_37
Last ObjectModification: 2011_06_20-AM-00_45_42

Home Index