Step
*
1
1
of Lemma
new_23_sig_progress-step6
1. Cmd : {T:Type| valueall-type(T)} 
2. eq : EqDecider(Cmd)
3. reps : bag(Id)
4. clients : bag(Id)
5. coeff : {2...}
6. flrs : ℕ
7. propose : Atom List
8. notify : Atom List
9. slots : set-sig{i:l}(ℤ)
10. f : new_23_sig_headers_type{i:l}(Cmd;notify;propose)
11. (f propose) = (ℤ × Cmd) ∈ Type
12. (f notify) = (ℤ × Cmd) ∈ Type
13. (f ``new_23_sig decided``) = (ℤ × Cmd) ∈ Type
14. (f ``new_23_sig retry``) = (ℤ × ℤ × Cmd) ∈ Type
15. (f ``new_23_sig vote``) = (ℤ × ℤ × Cmd × Id) ∈ Type
16. f ∈ Name ─→ Type
17. es : EO+(Message(f))
18. e : E
19. n : ℤ
20. c : Cmd
21. faulty : bag(Id)
22. msgs-interface-delivered-with-omissions(f;es;new_23_sig_main();faulty;flrs;reps)@i
23. bag-no-repeats(Id;reps)@i
24. #(reps) = ((coeff * flrs) + flrs + 1) ∈ ℤ@i
25. loc(e) ↓∈ reps@i
26. ¬loc(e) ↓∈ faulty@i
27. <n, c> ∈ new_23_sig_Proposal(Cmd;notify;propose;f)(e)@i
28. ¬↑(set-sig-member(slots) n new_23_sig_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29. ↓∃bs:(Id × E × Cmd) List
      ((bag-map(λi.(fst(i));bs) = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id))
      ∧ (∀x∈bs.(loc(fst(snd(x))) = loc(e) ∈ Id)
           ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x)))))
⊢ ↓∃bs:(Id × E × Cmd) List
    ((bag-map(λi.(fst(i));bs) = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id))
    ∧ (∀x∈bs.(loc(fst(snd(x))) = loc(e) ∈ Id)
         ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x))))
    ∧ l-ordered(Id × E × Cmd;x,y.(fst(snd(x)) <loc fst(snd(y)));bs))
BY
{ (SquashExRepD
   THEN (InstLemma `l-ordered-reorder` [⌈Id × E × Cmd⌉;⌈λ2x.λ2y.fst(snd(x)) ≤loc fst(snd(y))⌉;⌈bs⌉]⋅
         THENA (Reduce 0
                THEN Auto
                THEN (RW assert_pushdownC 0 THENA Auto)
                THEN Try (Complete ((D 0 THEN Auto)))
                THEN Repeat ((RWO "l_all_iff" 0 THENA Auto))
                THEN Auto
                THEN (FLemma `l_all_fwd` [-6;-4] THENA Auto)
                THEN (FLemma `l_all_fwd` [-7;-3] THENA Auto)
                THEN UseLoclTri ⌈es⌉⌈fst(snd(y))⌉⌈fst(snd(x))⌉⋅)
         )
   THEN D 0
   THEN ParallelLast
   THEN Auto) }
1
1. Cmd : {T:Type| valueall-type(T)} 
2. eq : EqDecider(Cmd)
3. reps : bag(Id)
4. clients : bag(Id)
5. coeff : {2...}
6. flrs : ℕ
7. propose : Atom List
8. notify : Atom List
9. slots : set-sig{i:l}(ℤ)
10. f : new_23_sig_headers_type{i:l}(Cmd;notify;propose)
11. (f propose) = (ℤ × Cmd) ∈ Type
12. (f notify) = (ℤ × Cmd) ∈ Type
13. (f ``new_23_sig decided``) = (ℤ × Cmd) ∈ Type
14. (f ``new_23_sig retry``) = (ℤ × ℤ × Cmd) ∈ Type
15. (f ``new_23_sig vote``) = (ℤ × ℤ × Cmd × Id) ∈ Type
16. f ∈ Name ─→ Type
17. es : EO+(Message(f))
18. e : E
19. n : ℤ
20. c : Cmd
21. faulty : bag(Id)
22. msgs-interface-delivered-with-omissions(f;es;new_23_sig_main();faulty;flrs;reps)@i
23. bag-no-repeats(Id;reps)@i
24. #(reps) = ((coeff * flrs) + flrs + 1) ∈ ℤ@i
25. loc(e) ↓∈ reps@i
26. ¬loc(e) ↓∈ faulty@i
27. <n, c> ∈ new_23_sig_Proposal(Cmd;notify;propose;f)(e)@i
28. ¬↑(set-sig-member(slots) n new_23_sig_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29. bs : (Id × E × Cmd) List
30. bag-map(λi.(fst(i));bs) = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id)
31. (∀x∈bs.(loc(fst(snd(x))) = loc(e) ∈ Id)
       ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x))))
32. L' : (Id × E × Cmd) List
33. l-ordered(Id × E × Cmd;x,y.↑((λy.fst(snd(x)) ≤loc fst(snd(y))) y);L')
34. permutation(Id × E × Cmd;bs;L')
⊢ bag-map(λi.(fst(i));L') = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id)
2
1. Cmd : {T:Type| valueall-type(T)} 
2. eq : EqDecider(Cmd)
3. reps : bag(Id)
4. clients : bag(Id)
5. coeff : {2...}
6. flrs : ℕ
7. propose : Atom List
8. notify : Atom List
9. slots : set-sig{i:l}(ℤ)
10. f : new_23_sig_headers_type{i:l}(Cmd;notify;propose)
11. (f propose) = (ℤ × Cmd) ∈ Type
12. (f notify) = (ℤ × Cmd) ∈ Type
13. (f ``new_23_sig decided``) = (ℤ × Cmd) ∈ Type
14. (f ``new_23_sig retry``) = (ℤ × ℤ × Cmd) ∈ Type
15. (f ``new_23_sig vote``) = (ℤ × ℤ × Cmd × Id) ∈ Type
16. f ∈ Name ─→ Type
17. es : EO+(Message(f))
18. e : E
19. n : ℤ
20. c : Cmd
21. faulty : bag(Id)
22. msgs-interface-delivered-with-omissions(f;es;new_23_sig_main();faulty;flrs;reps)@i
23. bag-no-repeats(Id;reps)@i
24. #(reps) = ((coeff * flrs) + flrs + 1) ∈ ℤ@i
25. loc(e) ↓∈ reps@i
26. ¬loc(e) ↓∈ faulty@i
27. <n, c> ∈ new_23_sig_Proposal(Cmd;notify;propose;f)(e)@i
28. ¬↑(set-sig-member(slots) n new_23_sig_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29. bs : (Id × E × Cmd) List
30. bag-map(λi.(fst(i));bs) = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id)
31. (∀x∈bs.(loc(fst(snd(x))) = loc(e) ∈ Id)
       ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x))))
32. L' : (Id × E × Cmd) List
33. l-ordered(Id × E × Cmd;x,y.↑((λy.fst(snd(x)) ≤loc fst(snd(y))) y);L')
34. permutation(Id × E × Cmd;bs;L')
35. bag-map(λi.(fst(i));L') = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id)
⊢ (∀x∈L'.(loc(fst(snd(x))) = loc(e) ∈ Id)
     ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x))))
3
1. Cmd : {T:Type| valueall-type(T)} 
2. eq : EqDecider(Cmd)
3. reps : bag(Id)
4. clients : bag(Id)
5. coeff : {2...}
6. flrs : ℕ
7. propose : Atom List
8. notify : Atom List
9. slots : set-sig{i:l}(ℤ)
10. f : new_23_sig_headers_type{i:l}(Cmd;notify;propose)
11. (f propose) = (ℤ × Cmd) ∈ Type
12. (f notify) = (ℤ × Cmd) ∈ Type
13. (f ``new_23_sig decided``) = (ℤ × Cmd) ∈ Type
14. (f ``new_23_sig retry``) = (ℤ × ℤ × Cmd) ∈ Type
15. (f ``new_23_sig vote``) = (ℤ × ℤ × Cmd × Id) ∈ Type
16. f ∈ Name ─→ Type
17. es : EO+(Message(f))
18. e : E
19. n : ℤ
20. c : Cmd
21. faulty : bag(Id)
22. msgs-interface-delivered-with-omissions(f;es;new_23_sig_main();faulty;flrs;reps)@i
23. bag-no-repeats(Id;reps)@i
24. #(reps) = ((coeff * flrs) + flrs + 1) ∈ ℤ@i
25. loc(e) ↓∈ reps@i
26. ¬loc(e) ↓∈ faulty@i
27. <n, c> ∈ new_23_sig_Proposal(Cmd;notify;propose;f)(e)@i
28. ¬↑(set-sig-member(slots) n new_23_sig_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29. bs : (Id × E × Cmd) List
30. bag-map(λi.(fst(i));bs) = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id)
31. (∀x∈bs.(loc(fst(snd(x))) = loc(e) ∈ Id)
       ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x))))
32. L' : (Id × E × Cmd) List
33. l-ordered(Id × E × Cmd;x,y.↑((λy.fst(snd(x)) ≤loc fst(snd(y))) y);L')
34. permutation(Id × E × Cmd;bs;L')
35. bag-map(λi.(fst(i));L') = [x∈reps|¬bbag-deq-member(IdDeq;x;faulty)] ∈ bag(Id)
36. (∀x∈L'.(loc(fst(snd(x))) = loc(e) ∈ Id)
       ∧ <<<n, 0>, snd(snd(x))>, fst(x)> ∈ new_23_sig_vote'base(Cmd;notify;propose;f)(fst(snd(x))))
⊢ l-ordered(Id × E × Cmd;x,y.(fst(snd(x)) <loc fst(snd(y)));L')
Latex:
Latex:
1.  Cmd  :  \{T:Type|  valueall-type(T)\} 
2.  eq  :  EqDecider(Cmd)
3.  reps  :  bag(Id)
4.  clients  :  bag(Id)
5.  coeff  :  \{2...\}
6.  flrs  :  \mBbbN{}
7.  propose  :  Atom  List
8.  notify  :  Atom  List
9.  slots  :  set-sig\{i:l\}(\mBbbZ{})
10.  f  :  new\_23\_sig\_headers\_type\{i:l\}(Cmd;notify;propose)
11.  (f  propose)  =  (\mBbbZ{}  \mtimes{}  Cmd)
12.  (f  notify)  =  (\mBbbZ{}  \mtimes{}  Cmd)
13.  (f  ``new\_23\_sig  decided``)  =  (\mBbbZ{}  \mtimes{}  Cmd)
14.  (f  ``new\_23\_sig  retry``)  =  (\mBbbZ{}  \mtimes{}  \mBbbZ{}  \mtimes{}  Cmd)
15.  (f  ``new\_23\_sig  vote``)  =  (\mBbbZ{}  \mtimes{}  \mBbbZ{}  \mtimes{}  Cmd  \mtimes{}  Id)
16.  f  \mmember{}  Name  {}\mrightarrow{}  Type
17.  es  :  EO+(Message(f))
18.  e  :  E
19.  n  :  \mBbbZ{}
20.  c  :  Cmd
21.  faulty  :  bag(Id)
22.  msgs-interface-delivered-with-omissions(f;es;new\_23\_sig\_main();faulty;flrs;reps)@i
23.  bag-no-repeats(Id;reps)@i
24.  \#(reps)  =  ((coeff  *  flrs)  +  flrs  +  1)@i
25.  loc(e)  \mdownarrow{}\mmember{}  reps@i
26.  \mneg{}loc(e)  \mdownarrow{}\mmember{}  faulty@i
27.  <n,  c>  \mmember{}  new\_23\_sig\_Proposal(Cmd;notify;propose;f)(e)@i
28.  \mneg{}\muparrow{}(set-sig-member(slots)  n  new\_23\_sig\_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29.  \mdownarrow{}\mexists{}bs:(Id  \mtimes{}  E  \mtimes{}  Cmd)  List
            ((bag-map(\mlambda{}i.(fst(i));bs)  =  [x\mmember{}reps|\mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)])
            \mwedge{}  (\mforall{}x\mmember{}bs.(loc(fst(snd(x)))  =  loc(e))
                      \mwedge{}  <<<n,  0>,  snd(snd(x))>,  fst(x)>  \mmember{}  new\_23\_sig\_vote'base(Cmd;notify;propose;f)(
                                                                                              fst(snd(x)))))
\mvdash{}  \mdownarrow{}\mexists{}bs:(Id  \mtimes{}  E  \mtimes{}  Cmd)  List
        ((bag-map(\mlambda{}i.(fst(i));bs)  =  [x\mmember{}reps|\mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)])
        \mwedge{}  (\mforall{}x\mmember{}bs.(loc(fst(snd(x)))  =  loc(e))
                  \mwedge{}  <<<n,  0>,  snd(snd(x))>,  fst(x)>  \mmember{}  new\_23\_sig\_vote'base(Cmd;notify;propose;f)(
                                                                                          fst(snd(x))))
        \mwedge{}  l-ordered(Id  \mtimes{}  E  \mtimes{}  Cmd;x,y.(fst(snd(x))  <loc  fst(snd(y)));bs))
By
Latex:
(SquashExRepD
  THEN  (InstLemma  `l-ordered-reorder`  [\mkleeneopen{}Id  \mtimes{}  E  \mtimes{}  Cmd\mkleeneclose{};\mkleeneopen{}\mlambda{}\msubtwo{}x.\mlambda{}\msubtwo{}y.fst(snd(x))  \mleq{}loc  fst(snd(y))\mkleeneclose{};\mkleeneopen{}bs\mkleeneclose{}]\mcdot{}
              THENA  (Reduce  0
                            THEN  Auto
                            THEN  (RW  assert\_pushdownC  0  THENA  Auto)
                            THEN  Try  (Complete  ((D  0  THEN  Auto)))
                            THEN  Repeat  ((RWO  "l\_all\_iff"  0  THENA  Auto))
                            THEN  Auto
                            THEN  (FLemma  `l\_all\_fwd`  [-6;-4]  THENA  Auto)
                            THEN  (FLemma  `l\_all\_fwd`  [-7;-3]  THENA  Auto)
                            THEN  UseLoclTri  \mkleeneopen{}es\mkleeneclose{}\mkleeneopen{}fst(snd(y))\mkleeneclose{}\mkleeneopen{}fst(snd(x))\mkleeneclose{}\mcdot{})
              )
  THEN  D  0
  THEN  ParallelLast
  THEN  Auto)
Home
Index