---

Step * 3 1 3 1 1 1 1 of Lemma consensus-ts5-true-knowledge

.....equality..... 
1. V : Type
2. A : Id List@i
3. W : {a:Id| (a ∈ A)}  List List@i
4. x1 : ConsensusState@i
5. x2 : Knowledge(ConsensusState)@i
6. ts-init(consensus-ts5(V;A;W)) (ts-rel(consensus-ts5(V;A;W))^*) <x1, x2>@i
7. y1 : ConsensusState@i
8. y2 : Knowledge(ConsensusState)@i
9. ts-init(consensus-ts5(V;A;W)) (ts-rel(consensus-ts5(V;A;W))^*) <y1, y2>@i
10. ∀a,b:{a:Id| (a ∈ A)} .
      let I,z = Knowledge(x2;a)(b) 
      in (I ≤ Inning(x1;b))
         ∧ case z
            of inl(p) =>
            let k,v = p 
            in k < I
               ∧ (↑k ∈ dom(Estimate(x1;b)))
               ∧ (Estimate(x1;b)(k) = v ∈ V)
               ∧ (∀i:ℤ. ¬↑i ∈ dom(Estimate(x1;b)) supposing k < i ∧ i < I)
            | inr(p) =>
            ∀i:ℤ. ¬↑i ∈ dom(Estimate(x1;b)) supposing i < I 
      supposing ↑b ∈ dom(Knowledge(x2;a))@i
11. a1 : {a:Id| (a ∈ A)} @i
12. ∀b:{a:Id| (a ∈ A)} 
      ((¬(b = a1 ∈ Id))
      ⇒ ((Inning(y1;b) = Inning(x1;b) ∈ ℤ)
         ∧ (Estimate(y1;b) = Estimate(x1;b) ∈ i:ℤ fp-> V)
         ∧ (Knowledge(y2;b) = Knowledge(x2;b) ∈ b:Id fp-> ℤ × (ℤ × V + Top))))@i
13. Inning(y1;a1) = Inning(x1;a1) ∈ ℤ@i
14. Estimate(y1;a1) = Estimate(x1;a1) ∈ i:ℤ fp-> V@i
15. b1 : {a:Id| (a ∈ A)} @i
16. i : ℤ@i
17. i ≤ Inning(x1;b1)@i
18. ∀j:ℤ. (j < i ⇒ (¬↑j ∈ dom(Estimate(x1;b1))))@i
19. Knowledge(y2;a1) = b1 : <i, inr ⋅ > ⊕ Knowledge(x2;a1) ∈ b:Id fp-> ℤ × (ℤ × V + Top)@i
20. a : Id@i
21. (a ∈ A)@i
22. b : Id@i
23. (b ∈ A)@i
24. ↑b ∈ dom(Knowledge(y2;a))
25. a = a1 ∈ Id
26. b = b1 ∈ Id
⊢ Knowledge(y2;a1)(b) = <i, inr ⋅ > ∈ (ℤ × (ℤ × V + Top))
BY
{ (HypSubst' -1 0 THEN DVar `b1') }

1
1. V : Type
2. A : Id List@i
3. W : {a:Id| (a ∈ A)}  List List@i
4. x1 : ConsensusState@i
5. x2 : Knowledge(ConsensusState)@i
6. ts-init(consensus-ts5(V;A;W)) (ts-rel(consensus-ts5(V;A;W))^*) <x1, x2>@i
7. y1 : ConsensusState@i
8. y2 : Knowledge(ConsensusState)@i
9. ts-init(consensus-ts5(V;A;W)) (ts-rel(consensus-ts5(V;A;W))^*) <y1, y2>@i
10. ∀a,b:{a:Id| (a ∈ A)} .
      let I,z = Knowledge(x2;a)(b) 
      in (I ≤ Inning(x1;b))
         ∧ case z
            of inl(p) =>
            let k,v = p 
            in k < I
               ∧ (↑k ∈ dom(Estimate(x1;b)))
               ∧ (Estimate(x1;b)(k) = v ∈ V)
               ∧ (∀i:ℤ. ¬↑i ∈ dom(Estimate(x1;b)) supposing k < i ∧ i < I)
            | inr(p) =>
            ∀i:ℤ. ¬↑i ∈ dom(Estimate(x1;b)) supposing i < I 
      supposing ↑b ∈ dom(Knowledge(x2;a))@i
11. a1 : {a:Id| (a ∈ A)} @i
12. ∀b:{a:Id| (a ∈ A)} 
      ((¬(b = a1 ∈ Id))
      ⇒ ((Inning(y1;b) = Inning(x1;b) ∈ ℤ)
         ∧ (Estimate(y1;b) = Estimate(x1;b) ∈ i:ℤ fp-> V)
         ∧ (Knowledge(y2;b) = Knowledge(x2;b) ∈ b:Id fp-> ℤ × (ℤ × V + Top))))@i
13. Inning(y1;a1) = Inning(x1;a1) ∈ ℤ@i
14. Estimate(y1;a1) = Estimate(x1;a1) ∈ i:ℤ fp-> V@i
15. b1 : Id@i
16. (b1 ∈ A)@i
17. i : ℤ@i
18. i ≤ Inning(x1;b1)@i
19. ∀j:ℤ. (j < i ⇒ (¬↑j ∈ dom(Estimate(x1;b1))))@i
20. Knowledge(y2;a1) = b1 : <i, inr ⋅ > ⊕ Knowledge(x2;a1) ∈ b:Id fp-> ℤ × (ℤ × V + Top)@i
21. a : Id@i
22. (a ∈ A)@i
23. b : Id@i
24. (b ∈ A)@i
25. ↑b ∈ dom(Knowledge(y2;a))
26. a = a1 ∈ Id
27. b = b1 ∈ Id
⊢ Knowledge(y2;a1)(b1) = <i, inr ⋅ > ∈ (ℤ × (ℤ × V + Top))

---

Latex:


.....equality..... 
1.  V  :  Type
2.  A  :  Id  List@i
3.  W  :  \{a:Id|  (a  \mmember{}  A)\}    List  List@i
4.  x1  :  ConsensusState@i
5.  x2  :  Knowledge(ConsensusState)@i
6.  ts-init(consensus-ts5(V;A;W)) 
      (ts-rel(consensus-ts5(V;A;W))\^{}*) 
      <x1,  x2>@i
7.  y1  :  ConsensusState@i
8.  y2  :  Knowledge(ConsensusState)@i
9.  ts-init(consensus-ts5(V;A;W)) 
      (ts-rel(consensus-ts5(V;A;W))\^{}*) 
      <y1,  y2>@i
10.  \mforall{}a,b:\{a:Id|  (a  \mmember{}  A)\}  .
            let  I,z  =  Knowledge(x2;a)(b) 
            in  (I  \mleq{}  Inning(x1;b))
                  \mwedge{}  case  z
                        of  inl(p)  =>
                        let  k,v  =  p 
                        in  k  <  I
                              \mwedge{}  (\muparrow{}k  \mmember{}  dom(Estimate(x1;b)))
                              \mwedge{}  (Estimate(x1;b)(k)  =  v)
                              \mwedge{}  (\mforall{}i:\mBbbZ{}.  \mneg{}\muparrow{}i  \mmember{}  dom(Estimate(x1;b))  supposing  k  <  i  \mwedge{}  i  <  I)
                        |  inr(p)  =>
                        \mforall{}i:\mBbbZ{}.  \mneg{}\muparrow{}i  \mmember{}  dom(Estimate(x1;b))  supposing  i  <  I 
            supposing  \muparrow{}b  \mmember{}  dom(Knowledge(x2;a))@i
11.  a1  :  \{a:Id|  (a  \mmember{}  A)\}  @i
12.  \mforall{}b:\{a:Id|  (a  \mmember{}  A)\} 
            ((\mneg{}(b  =  a1))
            {}\mRightarrow{}  ((Inning(y1;b)  =  Inning(x1;b))
                  \mwedge{}  (Estimate(y1;b)  =  Estimate(x1;b))
                  \mwedge{}  (Knowledge(y2;b)  =  Knowledge(x2;b))))@i
13.  Inning(y1;a1)  =  Inning(x1;a1)@i
14.  Estimate(y1;a1)  =  Estimate(x1;a1)@i
15.  b1  :  \{a:Id|  (a  \mmember{}  A)\}  @i
16.  i  :  \mBbbZ{}@i
17.  i  \mleq{}  Inning(x1;b1)@i
18.  \mforall{}j:\mBbbZ{}.  (j  <  i  {}\mRightarrow{}  (\mneg{}\muparrow{}j  \mmember{}  dom(Estimate(x1;b1))))@i
19.  Knowledge(y2;a1)  =  b1  :  <i,  inr  \mcdot{}  >  \moplus{}  Knowledge(x2;a1)@i
20.  a  :  Id@i
21.  (a  \mmember{}  A)@i
22.  b  :  Id@i
23.  (b  \mmember{}  A)@i
24.  \muparrow{}b  \mmember{}  dom(Knowledge(y2;a))
25.  a  =  a1
26.  b  =  b1
\mvdash{}  Knowledge(y2;a1)(b)  =  <i,  inr  \mcdot{}  >


By

(HypSubst'  -1  0  THEN  DVar  `b1')

---

Home Index