Step * 1 1 1 1 1 of Lemma new_23_sig_progress-step9-v2


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. 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
19. : ℤ
20. 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) new_23_sig_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29. e' E
30. b_all(Id;[x∈reps|
              ¬bbag-deq-member(IdDeq;x;faulty)];i.(i
                                                    ∈ mapfilter(λe.(snd(msgval(e)));
                                                                λe.new_23_sig_vote_with_ballot(Cmd;...;...;f;es;e;n;0);
                                                                [e, e'])))
31. ((coeff flrs) 1) ≤ ||mapfilter(λe.<snd(msgval(e)), e, snd(fst(msgval(e)))>;
                                       λe.new_23_sig_vote_with_ballot(Cmd;notify;propose;f;es;e;n;0);
                                       [e, e'])||
32. 0 ≤ (coeff flrs)
33. ((coeff flrs) 1) ≤ #([x∈reps|¬bbag-deq-member(IdDeq;x;faulty)])
34. sub-bag(Id;[x∈reps|
                ¬bbag-deq-member(IdDeq;x;faulty)];mapfilter(λe.(snd(msgval(e)));
                                                            λe.new_23_sig_vote_with_ballot(Cmd;notify;...;f;es;e;n;0);
                                                            [e, e']))
35. sub-bag(Id;[x∈reps|
                ¬bbag-deq-member(IdDeq;x;faulty)];list-to-set(IdDeq;mapfilter(λe.(snd(msgval(e)));
                                                                              λe....;
                                                                              [e, e'])))
36. remove-repeats(IdDeq;mapfilter(λe.(snd(msgval(e)));
                                   λe.new_23_sig_vote_with_ballot(Cmd;notify;propose;f;es;e;n;0);
                                   [e, e']))
mapfilter(λe.(snd(msgval(e)));λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);[e, e'])
∈ (Id List)
37. #([x∈reps|¬bbag-deq-member(IdDeq;x;faulty)]) 
    ≤ #(list-to-set(IdDeq;mapfilter(λe.(snd(msgval(e)));
                                    λe.new_23_sig_vote_with_ballot(Cmd;notify;propose;f;es;e;n;0);
                                    [e, e'])))
⊢ ↓∃e':E
    (((coeff flrs) 1)
    ||mapfilter(λe.<snd(msgval(e)), e, snd(fst(msgval(e)))>;
                  λe'.new_23_sig_vote_with_ballot_first(Cmd;notify;propose;f;es.e;e';n;0);
                  [e, e'])||
    ∈ ℤ)
BY
(Fold `bag-remove-repeats` (-1)
   THEN (RWO "bag-remove-repeats-eq-remove-repeats" (-1)
         THENA (Auto
                THEN SubsumeC ⌈Id List⌉⋅
                THEN Auto
                THEN (Reduce (-1) THEN FLemma `new_23_sig_vote_with_ballot-assert-type` [-1] THEN Auto)⋅)
         )
   THEN HypSubst' (-2) (-1)
   THEN (Assert mapfilter(λe.(snd(msgval(e)));
                          λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);
                          [e, e']) ∈ bag(Id) BY
               (SubsumeC ⌈Id List⌉⋅ THEN Auto))
   THEN (Assert ⌈((coeff flrs) 1) 
                 ≤ #(mapfilter(λe.(snd(msgval(e)));
                               λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);
                               [e, e']))⌉⋅
         THENA 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. 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
19. : ℤ
20. 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) new_23_sig_ReplicaStateFun(Cmd;notify;propose;slots;f;es;e))@i
29. e' E
30. b_all(Id;[x∈reps|
              ¬bbag-deq-member(IdDeq;x;faulty)];i.(i
                                                    ∈ mapfilter(λe.(snd(msgval(e)));
                                                                λe.new_23_sig_vote_with_ballot(Cmd;...;...;f;es;e;n;0);
                                                                [e, e'])))
31. ((coeff flrs) 1) ≤ ||mapfilter(λe.<snd(msgval(e)), e, snd(fst(msgval(e)))>;
                                       λe.new_23_sig_vote_with_ballot(Cmd;notify;propose;f;es;e;n;0);
                                       [e, e'])||
32. 0 ≤ (coeff flrs)
33. ((coeff flrs) 1) ≤ #([x∈reps|¬bbag-deq-member(IdDeq;x;faulty)])
34. sub-bag(Id;[x∈reps|
                ¬bbag-deq-member(IdDeq;x;faulty)];mapfilter(λe.(snd(msgval(e)));
                                                            λe.new_23_sig_vote_with_ballot(Cmd;notify;...;f;es;e;n;0);
                                                            [e, e']))
35. sub-bag(Id;[x∈reps|
                ¬bbag-deq-member(IdDeq;x;faulty)];list-to-set(IdDeq;mapfilter(λe.(snd(msgval(e)));
                                                                              λe....;
                                                                              [e, e'])))
36. remove-repeats(IdDeq;mapfilter(λe.(snd(msgval(e)));
                                   λe.new_23_sig_vote_with_ballot(Cmd;notify;propose;f;es;e;n;0);
                                   [e, e']))
mapfilter(λe.(snd(msgval(e)));λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);[e, e'])
∈ (Id List)
37. #([x∈reps|¬bbag-deq-member(IdDeq;x;faulty)]) 
    ≤ #(mapfilter(λe.(snd(msgval(e)));
                  λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);
                  [e, e']))
38. mapfilter(λe.(snd(msgval(e)));λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);[e, e'])
    ∈ bag(Id)
39. ((coeff flrs) 1) ≤ #(mapfilter(λe.(snd(msgval(e)));
                                       λa.new_23_sig_vote_with_ballot_first_alt(Cmd;notify;propose;f;es;e;e';n;0;a);
                                       [e, e']))
⊢ ↓∃e':E
    (((coeff flrs) 1)
    ||mapfilter(λe.<snd(msgval(e)), e, snd(fst(msgval(e)))>;
                  λe'.new_23_sig_vote_with_ballot_first(Cmd;notify;propose;f;es.e;e';n;0);
                  [e, e'])||
    ∈ ℤ)


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.  e'  :  E
30.  b\_all(Id;[x\mmember{}reps|
                            \mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)];i.(i
                                                                                                        \mmember{}  mapfilter(\mlambda{}e.(snd(msgval(e)));
                                                                                                                                \mlambda{}e....;
                                                                                                                                [e,  e'])))
31.  ((coeff  *  flrs)  +  1) 
        \mleq{}  ||mapfilter(\mlambda{}e.<snd(msgval(e)),  e,  snd(fst(msgval(e)))>
                                    \mlambda{}e.new\_23\_sig\_vote\_with\_ballot(Cmd;notify;propose;f;es;e;n;0);
                                    [e,  e'])||
32.  0  \mleq{}  (coeff  *  flrs)
33.  ((coeff  *  flrs)  +  1)  \mleq{}  \#([x\mmember{}reps|\mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)])
34.  sub-bag(Id;[x\mmember{}reps|
                                \mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)];mapfilter(\mlambda{}e.(snd(msgval(e)));
                                                                                                                        \mlambda{}e....;
                                                                                                                        [e,  e']))
35.  sub-bag(Id;[x\mmember{}reps|
                                \mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)];list-to-set(IdDeq;mapfilter(\mlambda{}e.(snd(msgval(e)));
                                                                                                                                                            \mlambda{}e....;
                                                                                                                                                            [e,  e'])))
36.  remove-repeats(IdDeq;mapfilter(\mlambda{}e.(snd(msgval(e)));
                                                                      \mlambda{}e.new\_23\_sig\_vote\_with\_ballot(Cmd;notify;propose;f;es;e;n;0);
                                                                      [e,  e']))
=  mapfilter(\mlambda{}e.(snd(msgval(e)));
                        \mlambda{}a.new\_23\_sig\_vote\_with\_ballot\_first\_alt(Cmd;notify;propose;f;es;e;e';n;0;a);
                        [e,  e'])
37.  \#([x\mmember{}reps|\mneg{}\msubb{}bag-deq-member(IdDeq;x;faulty)]) 
        \mleq{}  \#(list-to-set(IdDeq;mapfilter(\mlambda{}e.(snd(msgval(e)));
                                                                        \mlambda{}e.new\_23\_sig\_vote\_with\_ballot(Cmd;notify;propose;f;es;e;n;0);
                                                                        [e,  e'])))
\mvdash{}  \mdownarrow{}\mexists{}e':E
        (((coeff  *  flrs)  +  1)
        =  ||mapfilter(\mlambda{}e.<snd(msgval(e)),  e,  snd(fst(msgval(e)))>
                                    \mlambda{}e'.new\_23\_sig\_vote\_with\_ballot\_first(Cmd;notify;propose;f;es.e;e';n;0);
                                    [e,  e'])||)


By


Latex:
(Fold  `bag-remove-repeats`  (-1)
  THEN  (RWO  "bag-remove-repeats-eq-remove-repeats"  (-1)
              THENA  (Auto
                            THEN  SubsumeC  \mkleeneopen{}Id  List\mkleeneclose{}\mcdot{}
                            THEN  Auto
                            THEN  (Reduce  (-1)
                                        THEN  FLemma  `new\_23\_sig\_vote\_with\_ballot-assert-type`  [-1]
                                        THEN  Auto)\mcdot{})
              )
  THEN  HypSubst'  (-2)  (-1)
  THEN  (Assert  mapfilter(\mlambda{}e.(snd(msgval(e)));
                                                ...;
                                                [e,  e'])  \mmember{}  bag(Id)  BY
                          (SubsumeC  \mkleeneopen{}Id  List\mkleeneclose{}\mcdot{}  THEN  Auto))
  THEN  (Assert 
              \mkleeneopen{}((coeff  *  flrs)  +  1) 
                \mleq{}  \#(mapfilter(\mlambda{}e.(snd(msgval(e)));
                                            \mlambda{}a.new\_23\_sig\_vote\_with\_ballot\_first\_alt(Cmd;notify;propose;f;es;e;e';n;0;a);
                                            [e,  e']))\mkleeneclose{}\mcdot{}
              THENA  Auto
              ))




Home Index