{ 
es:EO. e1:E. e2:{e:E| loc(e) = loc(e1)} .
[p,q:{e:E| loc(e) = loc(e1)} 
{e:E| loc(e) = loc(e1)} 
].
(e1 
loc e2 
q[e1;e2] [e1;e2]~([a,b].p[a;b])*[a,b].q[a;b]) }
{ Proof }
Definitions occuring in Statement :
es-pstar-q: [e1;e2]~([a,b].p[a; b])*[a,b].q[a; b],
es-le: e loc e' ,
es-loc: loc(e),
es-E: E,
event_ordering: EO,
Id: Id,
uall: [x:A]. B[x],
prop: ,
so_apply: x[s1;s2],
all: x:A. B[x],
implies: P Q,
set: {x:A| B[x]} ,
function: x:A B[x],
equal: s = t
Definitions :
all: x:A. B[x],
uall: [x:A]. B[x],
prop: ,
implies: P Q,
so_apply: x[s1;s2],
es-pstar-q: [e1;e2]~([a,b].p[a; b])*[a,b].q[a; b],
exists: 
x:A. B[x],
member: t 
T,
nat_plus: 
,
and: P 
Q,
int_seg: {i..j
},
cand: A c B,
lelt: i j < k,
le: A B,
not: 
A,
false: False,
iff: P 
Q,
rev_implies: P Q,
squash: 
T,
true: True,
uimplies: b supposing a
Lemmas :
es-loc_wf,
Id_wf,
es-le_wf,
es-E_wf,
event_ordering_wf,
int_seg_wf,
le_wf,
es-locl_wf,
es-pred_wf,
nat_plus_properties,
es-locl-iff,
es-le-loc,
es-loc-pred
\mforall{}es:EO. \mforall{}e1:E. \mforall{}e2:\{e:E| loc(e) = loc(e1)\} .
\mforall{}[p,q:\{e:E| loc(e) = loc(e1)\} {}\mrightarrow{} \{e:E| loc(e) = loc(e1)\} {}\mrightarrow{} \mBbbP{}].
(e1 \mleq{}loc e2 {}\mRightarrow{} q[e1;e2] {}\mRightarrow{} [e1;e2]\msim{}([a,b].p[a;b])*[a,b].q[a;b])
Date html generated:
2011_08_16-AM-10_57_02
Last ObjectModification:
2011_06_18-AM-09_30_01
Home
Index