Nuprl Lemma : iterated_classrel_mem2

[Info,A,S:Type]. [init:Id  bag(S)]. [f:A  S  S]. [X:EClass(A)].
  es:EO+(Info). R:A  S  S  . e1,e2:E. v1,v2:S. a:A.
    (single-valued-classrel(es;X;A)
     single-valued-bag(init loc(e1);S)
     (s1,s2:S. a:A.  SqStable(R[a;s1;s2]))
     (a:A. s:S. e:E.  (e1 loc e   e loc e2   a  X(e)  s  prior(X*(f,init,e))  R[a;s;f a s]))
     (a1,a2:A. s1,s2:S. e,e':E.
          (e1 loc e 
           (e <loc e')
           e' loc e2 
           a1  X(e)
           s1  prior(X*(f,init,e))
           a2  X(e')
           s2  X*(f,init,pred(e'))
           R[a1;s1;s2]
           R[a1;s1;f a2 s2]))
     e1 loc e2 
     a  X(e1)
     v1  prior(X*(f,init,e1))
     v2  X*(f,init,e2)
     R[a;v1;v2])


Proof not projected




Definitions occuring in Statement :  prior_iterated_classrel: s  prior(X*(f,init,e)) iterated_classrel: v  X*(f,init,e) single-valued-classrel: single-valued-classrel(es;X;T) classrel: v  X(e) eclass: EClass(A[eo; e]) event-ordering+: EO+(Info) es-le: e loc e'  es-locl: (e <loc e') es-pred: pred(e) es-loc: loc(e) es-E: E Id: Id sq_stable: SqStable(P) uall: [x:A]. B[x] prop: so_apply: x[s1;s2;s3] all: x:A. B[x] implies: P  Q apply: f a function: x:A  B[x] universe: Type single-valued-bag: single-valued-bag(b;T) bag: bag(T)
Definitions :  uall: [x:A]. B[x] all: x:A. B[x] prop: implies: P  Q so_apply: x[s1;s2;s3] member: t  T nat: ge: i  j  le: A  B not: A false: False squash: T true: True ifthenelse: if b then t else f fi  so_lambda: x.t[x] assert: b bfalse: ff so_lambda: x y.t[x; y] prior_iterated_classrel: s  prior(X*(f,init,e)) or: P  Q and: P  Q cand: A c B btrue: tt es-le: e loc e'  guard: {T} iff: P  Q rev_implies: P  Q sq_stable: SqStable(P) iterated_classrel: v  X*(f,init,e) strongwellfounded: SWellFounded(R[x; y]) exists: x:A. B[x] ycomb: Y so_apply: x[s] uimplies: b supposing a sq_type: SQType(T) so_apply: x[s1;s2] uiff: uiff(P;Q) single-valued-classrel: single-valued-classrel(es;X;T) single-valued-bag: single-valued-bag(b;T) subtype: S  T !hyp_hide: x
Lemmas :  es-causl-swellfnd nat_properties ge_wf less_than_wf nat_wf le_wf es-causl_wf iterated_classrel_wf prior_iterated_classrel_wf classrel_wf es-le_wf event-ordering+_inc all_wf es-E_wf es-locl_wf es-pred_wf subtype_base_sq bool_wf bool_subtype_base false_wf sq_stable_wf single-valued-bag_wf es-loc_wf single-valued-classrel_wf equal_wf eclass_wf event-ordering+_wf Id_wf bag_wf es-first_wf assert_wf bnot_wf not_wf es-locl-first bool_cases eqtt_to_assert uiff_transitivity eqff_to_assert assert_of_bnot btrue_neq_bfalse es-le-first assert_elim es-le-loc not_assert_elim and_wf ifthenelse_wf bag-member_wf es-pred-causl es-causl_weakening es-pred-locl es-locl_transitivity1 es-le_weakening implies-es-le-pred member_wf squash_wf true_wf event_ordering_wf iterated_classrel-single-val es-loc-pred

\mforall{}[Info,A,S:Type].  \mforall{}[init:Id  {}\mrightarrow{}  bag(S)].  \mforall{}[f:A  {}\mrightarrow{}  S  {}\mrightarrow{}  S].  \mforall{}[X:EClass(A)].
    \mforall{}es:EO+(Info).  \mforall{}R:A  {}\mrightarrow{}  S  {}\mrightarrow{}  S  {}\mrightarrow{}  \mBbbP{}.  \mforall{}e1,e2:E.  \mforall{}v1,v2:S.  \mforall{}a:A.
        (single-valued-classrel(es;X;A)
        {}\mRightarrow{}  single-valued-bag(init  loc(e1);S)
        {}\mRightarrow{}  (\mforall{}s1,s2:S.  \mforall{}a:A.    SqStable(R[a;s1;s2]))
        {}\mRightarrow{}  (\mforall{}a:A.  \mforall{}s:S.  \mforall{}e:E.
                    (e1  \mleq{}loc  e    {}\mRightarrow{}  e  \mleq{}loc  e2    {}\mRightarrow{}  a  \mmember{}  X(e)  {}\mRightarrow{}  s  \mmember{}  prior(X*(f,init,e))  {}\mRightarrow{}  R[a;s;f  a  s]))
        {}\mRightarrow{}  (\mforall{}a1,a2:A.  \mforall{}s1,s2:S.  \mforall{}e,e':E.
                    (e1  \mleq{}loc  e 
                    {}\mRightarrow{}  (e  <loc  e')
                    {}\mRightarrow{}  e'  \mleq{}loc  e2 
                    {}\mRightarrow{}  a1  \mmember{}  X(e)
                    {}\mRightarrow{}  s1  \mmember{}  prior(X*(f,init,e))
                    {}\mRightarrow{}  a2  \mmember{}  X(e')
                    {}\mRightarrow{}  s2  \mmember{}  X*(f,init,pred(e'))
                    {}\mRightarrow{}  R[a1;s1;s2]
                    {}\mRightarrow{}  R[a1;s1;f  a2  s2]))
        {}\mRightarrow{}  e1  \mleq{}loc  e2 
        {}\mRightarrow{}  a  \mmember{}  X(e1)
        {}\mRightarrow{}  v1  \mmember{}  prior(X*(f,init,e1))
        {}\mRightarrow{}  v2  \mmember{}  X*(f,init,e2)
        {}\mRightarrow{}  R[a;v1;v2])


Date html generated: 2012_01_23-PM-12_21_54
Last ObjectModification: 2012_01_20-PM-10_44_51

Home Index