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