---

Step * 1 1 1 of Lemma pRun-System-invariant


1. [M] : Type ⟶ Type
2. Continuous+(P.M[P])
3. [Q] : ℕ ⟶ System(P.M[P]) ⟶ ℙ
4. nat2msg : ℕ ⟶ pMsg(P.M[P])@i
5. loc2msg : Id ⟶ pMsg(P.M[P])@i
6. S0 : System(P.M[P])@i
7. Q[0;S0]@i
8. ∀t:ℕ. ∀S:System(P.M[P]).
     (Q[t;S]
     ⇒ (∀env:pEnvType(P.M[P])
           let n,m,nm = env (t + 1) pRun(S0;env;nat2msg;loc2msg) in 
           Q[t + 1;snd(do-chosen-command(nat2msg;loc2msg;t + 1;S;n;m;nm))]))@i
9. env : pEnvType(P.M[P])@i
10. t : {1...}
11. ∀t:ℕt. Q[t;snd((pRun(S0;env;nat2msg;loc2msg) t))]@i
12. v : ℕ × ℕ × Id@i
13. (env t pRun(S0;env;nat2msg;loc2msg)) = v ∈ (ℕ × ℕ × Id)@i
⊢ let n,m,nm = v in 
Q[t;snd(do-chosen-command(nat2msg;loc2msg;t;snd((pRun(S0;env;nat2msg;loc2msg) (t - 1)));n;m;nm))]
⇒ Q[t;snd(let n,m,nm = v in 
   do-chosen-command(nat2msg;loc2msg;t;snd((pRun(S0;env;nat2msg;loc2msg) (t - 1)));n;m;nm))]
BY
{ ((RepeatFor 2 (D (-2)) THEN Reduce 0) THEN Auto)⋅ }

---

Latex:

---

Latex:

1.  [M]  :  Type  {}\mrightarrow{}  Type
2.  Continuous+(P.M[P])
3.  [Q]  :  \mBbbN{}  {}\mrightarrow{}  System(P.M[P])  {}\mrightarrow{}  \mBbbP{}
4.  nat2msg  :  \mBbbN{}  {}\mrightarrow{}  pMsg(P.M[P])@i
5.  loc2msg  :  Id  {}\mrightarrow{}  pMsg(P.M[P])@i
6.  S0  :  System(P.M[P])@i
7.  Q[0;S0]@i
8.  \mforall{}t:\mBbbN{}.  \mforall{}S:System(P.M[P]).
          (Q[t;S]
          {}\mRightarrow{}  (\mforall{}env:pEnvType(P.M[P])
                      let  n,m,nm  =  env  (t  +  1)  pRun(S0;env;nat2msg;loc2msg)  in 
                      Q[t  +  1;snd(do-chosen-command(nat2msg;loc2msg;t  +  1;S;n;m;nm))]))@i
9.  env  :  pEnvType(P.M[P])@i
10.  t  :  \{1...\}
11.  \mforall{}t:\mBbbN{}t.  Q[t;snd((pRun(S0;env;nat2msg;loc2msg)  t))]@i
12.  v  :  \mBbbN{}  \mtimes{}  \mBbbN{}  \mtimes{}  Id@i
13.  (env  t  pRun(S0;env;nat2msg;loc2msg))  =  v@i
\mvdash{}  let  n,m,nm  =  v  in 
Q[t;snd(do-chosen-command(nat2msg;loc2msg;t;snd((pRun(S0;env;nat2msg;loc2msg)  (t  -  1)));n;m;nm))]
{}\mRightarrow{}  Q[t;snd(let  n,m,nm  =  v  in 
      do-chosen-command(nat2msg;loc2msg;t;snd((pRun(S0;env;nat2msg;loc2msg)  (t  -  1)));n;m;nm))]


By

---

Latex:
((RepeatFor  2  (D  (-2))  THEN  Reduce  0)  THEN  Auto)\mcdot{}

---

Home Index