{ [Info:Type]. [es:EO+(Info)]. [A:Type]. [X:EClass(A List)]. [e:E].
    es-interface-history(es;X;e) = if e  X then X(e) else [] fi  
    supposing first(e) }

{ Proof }



Definitions occuring in Statement :  es-interface-history: es-interface-history(es;X;e) eclass-val: X(e) in-eclass: e  X eclass: EClass(A[eo; e]) event-ordering+: EO+(Info) es-first: first(e) es-E: E assert: b ifthenelse: if b then t else f fi  uimplies: b supposing a uall: [x:A]. B[x] nil: [] list: type List universe: Type equal: s = t
Definitions :  uall: [x:A]. B[x] uimplies: b supposing a es-interface-history: es-interface-history(es;X;e) es-le-before: loc(e) member: t  T so_lambda: x y.t[x; y] append: as @ bs es-before: before(e) ycomb: Y prop: ifthenelse: if b then t else f fi  all: x:A. B[x] implies: P  Q btrue: tt bfalse: ff concat: concat(ll) mapfilter: mapfilter(f;P;L) map: map(f;as) filter: filter(P;l) reduce: reduce(f;k;as) top: Top subtype: S  T so_apply: x[s1;s2] not: A false: False bool: unit: Unit iff: P  Q and: P  Q it:
Lemmas :  assert_wf es-first_wf event-ordering+_inc es-E_wf eclass_wf event-ordering+_wf bool_wf not_wf bnot_wf iff_weakening_uiff eqtt_to_assert uiff_transitivity eqff_to_assert assert_of_bnot in-eclass_wf es-interface-top append_nil_sq eclass-val_wf top_wf

\mforall{}[Info:Type].  \mforall{}[es:EO+(Info)].  \mforall{}[A:Type].  \mforall{}[X:EClass(A  List)].  \mforall{}[e:E].
    es-interface-history(es;X;e)  =  if  e  \mmember{}\msubb{}  X  then  X(e)  else  []  fi    supposing  \muparrow{}first(e)


Date html generated: 2011_08_16-PM-04_32_16
Last ObjectModification: 2011_06_20-AM-00_53_58

Home Index