{ 
es:EO
    
[T:Type]
      
i:Id
        
[P:T 
 
]
          
L:T List
            
[Q:E 
 {x:T| (x 
 L)}  
 
]
              ((
x:T. Dec(P[x]))
              
 (
x
L.P[x] 
 (
e:E. Q[e;x]))
                 
 
e'@i.True supposing 
(
x
L. P[x])
                 
 
e'@i.(
x
L.P[x] 
 (
e:E. (e 
loc e'  
 Q[e;x]))) 
                 supposing (
x
L.
e:E. (Q[e;x] 
 (loc(e) = i)))) }
{ Proof }
Definitions occuring in Statement : 
existse-at:
e@i.P[e], 
es-le: e 
loc e' , 
es-loc: loc(e), 
es-E: E, 
event_ordering: EO, 
Id: Id, 
decidable: Dec(P), 
uimplies: b supposing a, 
uall:
[x:A]. B[x], 
prop:
, 
so_apply: x[s1;s2], 
so_apply: x[s], 
all:
x:A. B[x], 
exists:
x:A. B[x], 
not:
A, 
implies: P 
 Q, 
and: P 
 Q, 
true: True, 
set: {x:A| B[x]} , 
function: x:A 
 B[x], 
list: type List, 
universe: Type, 
equal: s = t, 
l_exists: (
x
L. P[x]), 
l_all: (
x
L.P[x]), 
l_member: (x 
 l)
Definitions : 
all:
x:A. B[x], 
uall:
[x:A]. B[x], 
prop:
, 
implies: P 
 Q, 
so_apply: x[s], 
uimplies: b supposing a, 
l_all: (
x
L.P[x]), 
so_apply: x[s1;s2], 
exists:
x:A. B[x], 
not:
A, 
member: t 
 T, 
subtype: S 
 T, 
suptype: suptype(S; T), 
false: False, 
so_lambda: 
x.t[x], 
l_member: (x 
 l), 
cand: A c
 B, 
le: A 
 B, 
l_exists: (
x
L. P[x]), 
and: P 
 Q, 
true: True, 
squash:
T, 
existse-at:
e@i.P[e], 
nat:
Lemmas : 
l_member_wf, 
es-E_wf, 
list-set-type, 
es-bound-list, 
l_exists_wf, 
not_wf, 
existse-at_wf, 
true_wf, 
es-loc_wf, 
l_all_wf2, 
decidable_wf, 
Id_wf, 
event_ordering_wf, 
nat_wf, 
length_wf1, 
select_wf, 
es-le_wf
\mforall{}es:EO
    \mforall{}[T:Type]
        \mforall{}i:Id
            \mforall{}[P:T  {}\mrightarrow{}  \mBbbP{}]
                \mforall{}L:T  List
                    \mforall{}[Q:E  {}\mrightarrow{}  \{x:T|  (x  \mmember{}  L)\}    {}\mrightarrow{}  \mBbbP{}]
                        ((\mforall{}x:T.  Dec(P[x]))
                        {}\mRightarrow{}  (\mforall{}x\mmember{}L.P[x]  {}\mRightarrow{}  (\mexists{}e:E.  Q[e;x]))
                              {}\mRightarrow{}  \mexists{}e'@i.True  supposing  \mneg{}(\mexists{}x\mmember{}L.  P[x])
                              {}\mRightarrow{}  \mexists{}e'@i.(\mforall{}x\mmember{}L.P[x]  {}\mRightarrow{}  (\mexists{}e:E.  (e  \mleq{}loc  e'    \mwedge{}  Q[e;x]))) 
                              supposing  (\mforall{}x\mmember{}L.\mforall{}e:E.  (Q[e;x]  {}\mRightarrow{}  (loc(e)  =  i))))
Date html generated:
2011_08_16-AM-10_51_44
Last ObjectModification:
2011_06_18-AM-09_26_34
Home
Index