Nuprl Lemma : State-loc-comb-invariant-sv1
∀[Info,A,S:Type]. ∀[P:S ─→ ℙ].
∀init:Id ─→ bag(S). ∀f:Id ─→ A ─→ S ─→ S. ∀X:EClass(A). ∀es:EO+(Info). ∀e:E. ∀v:S.
(single-valued-bag(init loc(e);S)
⇒ single-valued-classrel(es;X;A)
⇒ (∀s:S. (s ↓∈ init loc(e) ⇒ P[s]))
⇒ (∀a:A. ∀e':E. ∀s:S.
(e' ≤loc e
⇒ a ∈ X(e')
⇒ if first(e') then s ↓∈ init loc(e') else s ∈ State-loc-comb(init;f;X)(pred(e')) fi
⇒ P[s]
⇒ P[f loc(e') a s]))
⇒ v ∈ State-loc-comb(init;f;X)(e)
⇒ P[v])
Proof
Definitions occuring in Statement :
State-loc-comb: State-loc-comb(init;f;X),
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-first: first(e),
es-pred: pred(e),
es-loc: loc(e),
es-E: E,
Id: Id,
ifthenelse: if b then t else f fi ,
uall: ∀[x:A]. B[x],
prop: ℙ,
so_apply: x[s],
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-member: x ↓∈ bs,
bag: bag(T)
Lemmas :
iterated-classrel-invariant,
es-le-loc,
es-first_wf2,
bool_wf,
eqtt_to_assert,
eqff_to_assert,
equal_wf,
bool_cases_sqequal,
subtype_base_sq,
bool_subtype_base,
assert-bnot,
State-loc-comb-classrel2,
es-pred_wf,
es-loc-pred,
and_wf,
Id_wf,
iterated-classrel_wf,
event-ordering+_subtype,
prior-iterated-classrel_wf,
classrel_wf,
es-le_wf,
sq_stable__single-valued-iterated-classrel,
State-loc-comb_wf,
all_wf,
es-E_wf,
bag-member_wf,
es-loc_wf,
single-valued-classrel_wf,
single-valued-bag_wf,
event-ordering+_wf,
eclass_wf,
bag_wf
Latex:
\mforall{}[Info,A,S:Type]. \mforall{}[P:S {}\mrightarrow{} \mBbbP{}].
\mforall{}init:Id {}\mrightarrow{} bag(S). \mforall{}f:Id {}\mrightarrow{} A {}\mrightarrow{} S {}\mrightarrow{} S. \mforall{}X:EClass(A). \mforall{}es:EO+(Info). \mforall{}e:E. \mforall{}v:S.
(single-valued-bag(init loc(e);S)
{}\mRightarrow{} single-valued-classrel(es;X;A)
{}\mRightarrow{} (\mforall{}s:S. (s \mdownarrow{}\mmember{} init loc(e) {}\mRightarrow{} P[s]))
{}\mRightarrow{} (\mforall{}a:A. \mforall{}e':E. \mforall{}s:S.
(e' \mleq{}loc e
{}\mRightarrow{} a \mmember{} X(e')
{}\mRightarrow{} if first(e') then s \mdownarrow{}\mmember{} init loc(e') else s \mmember{} State-loc-comb(init;f;X)(pred(e')) fi
{}\mRightarrow{} P[s]
{}\mRightarrow{} P[f loc(e') a s]))
{}\mRightarrow{} v \mmember{} State-loc-comb(init;f;X)(e)
{}\mRightarrow{} P[v])
Date html generated:
2015_07_22-PM-00_24_32
Last ObjectModification:
2015_01_28-AM-10_09_32
Home
Index