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