{ [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