{ [Info:Type]. [es:EO+(Info)]. [X:EClass(Top)]. [b:Top]. [e:E].
    (Prior(X)?b es e ~ if first(e) then b loc(e)
    if 0 <z bag-size(X es pred(e)) then X es pred(e)
    else Prior(X)?b es pred(e)
    fi ) }

{ Proof }



Definitions occuring in Statement :  primed-class-opt: Prior(X)?b,  eclass: EClass(A[eo; e]),  event-ordering+: EO+(Info),  es-pred: pred(e),  es-first: first(e),  es-loc: loc(e),  es-E: E,  lt_int: i <z j,  ifthenelse: if b then t else f fi ,  uall: [x:A]. B[x],  top: Top,  apply: f a,  natural_number: $n,  universe: Type,  sqequal: s ~ t,  bag-size: bag-size(bs)
Lemmas :  es-E_wf,  nat_wf,  ge_wf,  nat_properties,  event-ordering+_inc,  es-causl-swellfnd,  event-ordering+_wf,  top_wf,  eclass_wf,  subtype_base_sq,  bag_wf,  primed-class-opt_wf,  le_wf,  member_wf,  es-causl_wf,  bool_wf,  eqtt_to_assert,  assert_wf,  not_wf,  uiff_transitivity,  eqff_to_assert,  assert_of_bnot,  bnot_wf,  es-first_wf,  es-local-pred_wf,  es-locl_wf,  ifthenelse_wf,  assert_of_lt_int,  bag-size_wf,  es-pred_wf,  assert_functionality_wrt_uiff,  bnot_of_lt_int,  assert_of_le_int,  le_int_wf,  lt_int_wf,  es-loc_wf,  Id_wf,  atom2_subtype_base,  es-loc-pred,  es-base-E_wf,  subtype_rel_self

\mforall{}[Info:Type].  \mforall{}[es:EO+(Info)].  \mforall{}[X:EClass(Top)].  \mforall{}[b:Top].  \mforall{}[e:E].
    (Prior(X)?b  es  e  \msim{}  if  first(e)  then  b  loc(e)
    if  0  <z  bag-size(X  es  pred(e))  then  X  es  pred(e)
    else  Prior(X)?b  es  pred(e)
    fi  )


Date html generated: 2011_08_16-PM-05_03_50
Last ObjectModification: 2011_07_22-PM-11_35_10

Home Index