Nuprl Lemma : mu_ex_v5_token-between-2sends
[es:EO']. [m1,m2,init,p1,p2,i,j:Id]. [e1,e2:E].
(<i, make-Msg([token];Unit;
)> 
mu_ex_v5_main(init;m1;m2;p1;p2)(e1)
<j, make-Msg([token];Unit;)> mu_ex_v5_main(init;m1;m2;p1;p2)(e2)
(e1 <loc e2)
(
e:E. ((e1 <loc e) 
(e <loc e2) mu_ex_v5_Token()(e))))
Proof not projected
Definitions occuring in Statement :
mu_ex_v5_main: mu_ex_v5_main(initial_token;m1;m2;proc1;proc2),
mu_ex_v5_Token: mu_ex_v5_Token(),
make-Msg: make-Msg(hdr;typ;val),
Message: Message,
classrel: v X(e),
event-ordering+: EO+(Info),
es-locl: (e <loc e'),
es-E: E,
Id: Id,
it: ,
uall: [x:A]. B[x],
exists: x:A. B[x],
squash: T,
implies: P Q,
and: P Q,
unit: Unit,
pair: <a, b>,
product: x:A 
B[x],
cons: [car / cdr],
nil: [],
token: "$token"
Definitions :
prop: 
,
true: True,
member: t T,
squash: T,
unit: Unit,
and: P Q,
exists: x:A. B[x],
Id: Id,
all: x:A. B[x],
or: P 
Q,
implies: P Q,
uall: [x:A]. B[x],
iff: P 
Q,
es-locl: (e <loc e'),
uimplies: b supposing a,
false: False,
not: 
A,
guard: {T},
sq_type: SQType(T),
subtype: S 
T
Lemmas :
event-ordering+_wf,
es-E_wf,
it_wf,
valueall-type_wf,
equal-valueall-type,
unit_wf2,
make-Msg_wf,
mu_ex_v5_main_wf,
Id_wf,
classrel_wf,
Message_wf,
event-ordering+_inc,
es-locl_wf,
mu_ex_v5_send-token-received-or-born,
es-locl-trichotomy,
assert_elim,
btrue_neq_bfalse,
bfalse_wf,
mu_ex_v5_send-token-state,
es-le_weakening,
mu_ex_v5_send-token-not-token,
mu_ex_v5_Token_wf,
and_wf,
atom2_subtype_base,
subtype_base_sq,
es-le-loc,
es-first-le
\mforall{}[es:EO']. \mforall{}[m1,m2,init,p1,p2,i,j:Id]. \mforall{}[e1,e2:E].
(<i, make-Msg([token];Unit;\mcdot{})> \mmember{} mu\_ex\_v5\_main(init;m1;m2;p1;p2)(e1)
{}\mRightarrow{} <j, make-Msg([token];Unit;\mcdot{})> \mmember{} mu\_ex\_v5\_main(init;m1;m2;p1;p2)(e2)
{}\mRightarrow{} (e1 <loc e2)
{}\mRightarrow{} (\mdownarrow{}\mexists{}e:E. ((e1 <loc e) \mwedge{} (e <loc e2) \mwedge{} \mcdot{} \mmember{} mu\_ex\_v5\_Token()(e))))
Date html generated:
2012_02_20-PM-07_03_04
Last ObjectModification:
2012_02_02-PM-03_02_51
Home
Index