{ [es:EO]. [e,e':E].  [e, e'] ~ [e, pred(e')] @ [e'] supposing (e <loc e') }

{ Proof }



Definitions occuring in Statement :  es-interval: [e, e'] es-locl: (e <loc e') es-pred: pred(e) es-E: E event_ordering: EO append: as @ bs uimplies: b supposing a uall: [x:A]. B[x] cons: [car / cdr] nil: [] sqequal: s ~ t
Definitions :  es-le: e loc e'  iff: P  Q le: A  B ge: i  j  less_than: a < b limited-type: LimitedType btrue: tt uiff: uiff(P;Q) 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 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_str: Error :eq_str,  eq_id: a = b eq_lnk: a = b es-eq-E: e = e' es-bless: e <loc e' bimplies: p  q band: p  q bor: p q bnot: b int: unit: Unit union: left + right guard: {T} bfalse: ff subtype_rel: A r B sq_type: SQType(T) bool: void: Void implies: P  Q false: False decide: case b of inl(x) =s[x] | inr(y) =t[y] ifthenelse: if b then t else f fi  es-before: before(e) list: type List es-ble: e loc e' lambda: x.A[x] dep-isect: Error :dep-isect,  eq_atom: x =a y eq_atom: eq_atom$n(x;y) record+: record+ set: {x:A| B[x]}  apply: f a record-select: r.x infix_ap: x f y pair: <a, b> universe: Type Id: Id es-causl: (e < e') product: x:A  B[x] and: P  Q es-pred: pred(e) append: as @ bs nil: [] cons: [car / cdr] filter: filter(P;l) es-interval: [e, e'] function: x:A  B[x] all: x:A. B[x] equal: s = t event_ordering: EO prop: es-locl: (e <loc e') sqequal: s ~ t uall: [x:A]. B[x] es-E: E uimplies: b supposing a isect: x:A. B[x] member: t  T Try: Error :Try,  CollapseTHEN: Error :CollapseTHEN,  THENL_cons: Error :THENL_nil,  THENL_cons: Error :THENL_cons,  es-first: first(e) assert: b not: A CollapseTHENA: Error :CollapseTHENA,  THENL_v2: Error :THENL,  tactic: Error :tactic,  strong-subtype: strong-subtype(A;B) or: P  Q MaAuto: Error :MaAuto
Lemmas :  es-le_weakening assert_wf false_wf not_wf bnot_wf bool_wf es-first_wf assert_of_bnot eqff_to_assert uiff_transitivity eqtt_to_assert es-E_wf es-locl-first bool_subtype_base subtype_base_sq es-pred_wf es-before_wf es-ble_wf filter_append event_ordering_wf es-locl_wf btrue_neq_bfalse assert_elim es-le_wf iff_transitivity iff_weakening_uiff assert-es-ble not_functionality_wrt_iff

\mforall{}[es:EO].  \mforall{}[e,e':E].    [e,  e']  \msim{}  [e,  pred(e')]  @  [e']  supposing  (e  <loc  e')


Date html generated: 2011_08_16-AM-10_40_16
Last ObjectModification: 2011_06_18-AM-09_18_40

Home Index