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

{ Proof }



Definitions occuring in Statement :  es-prior-interface: prior(X) es-interface-history: es-interface-history(es;X;e) es-E-interface: E(X) eclass-val: X(e) in-eclass: e  X eclass: EClass(A[eo; e]) event-ordering+: EO+(Info) append: as @ bs ifthenelse: if b then t else f fi  uall: [x:A]. B[x] list: type List universe: Type equal: s = t
Definitions :  uall: [x:A]. B[x] es-interface-history: es-interface-history(es;X;e) member: t  T top: Top so_lambda: x y.t[x; y] all: x:A. B[x] implies: P  Q prop: ifthenelse: if b then t else f fi  btrue: tt bfalse: ff es-E-interface: E(X) exists: x:A. B[x] cand: A c B not: A and: P  Q false: False assert: b subtype: S  T true: True squash: T mapfilter: mapfilter(f;P;L) map: map(f;as) ycomb: Y es-le: e loc e'  or: P  Q guard: {T} l_all: (xL.P[x]) so_apply: x[s] rev_implies: P  Q iff: P  Q so_lambda: x.t[x] append: as @ bs filter: filter(P;l) reduce: reduce(f;k;as) concat: concat(ll) es-le-before: loc(e) so_apply: x[s1;s2] uimplies: b supposing a bool: unit: Unit sq_type: SQType(T) it: es-interface-sublist: es-interface-sublist(X;z)
Lemmas :  es-E-interface_wf eclass_wf es-E_wf event-ordering+_wf event-ordering+_inc in-eclass_wf es-prior-interface_wf es-interface-subtype_rel2 top_wf bool_wf assert_wf not_wf bnot_wf iff_weakening_uiff eqtt_to_assert uiff_transitivity eqff_to_assert assert_of_bnot es-next es-interface-top eclass-val_wf2 es-prior-interface-locl es-first_wf es-le_wf es-pred_wf es-le-before-partition2 length_wf_nat es-le-before_wf Id_wf es-loc_wf nat_wf concat_wf mapfilter_wf eclass-val_wf subtype_base_sq bool_subtype_base append_wf member_wf assert_elim mapfilter-append es-interval_wf2 l_member_wf concat_append es-interval_wf squash_wf true_wf map_wf es-locl_wf es-interval-partition filter_append false_wf es-locl-first filter_is_nil all_functionality_wrt_iff implies_functionality_wrt_iff member-es-interval es-prior-interface-val es-pred-locl es-locl_transitivity1 es-locl-iff not_assert_elim es-locl_transitivity2 es-interval-eq ifthenelse_wf es-interface-sublist_wf es-interval-eq2 append-nil es-before_wf member-es-before es-is-prior-interface btrue_neq_bfalse

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


Date html generated: 2011_08_16-PM-05_15_47
Last ObjectModification: 2011_06_20-AM-01_18_04

Home Index