Proof of Nuprl Lemma : rsc4-validity-property

Step * 3 1 1 of Lemma rsc4-validity-property

1. Cmd : {T:Type| valueall-type(T)}
2. cmdeq : EqDecider(Cmd)
3. locs : bag(Id)
4. clients : bag(Id)
5. coeff : {2...}
6. flrs :

7. es : EO'
8. StandardAssumptions(rsc4_Main) es
9. e : E
10.

e1:E
((e1 < e)

((

v:

Cmd. (v

rsc4_decided'base(Cmd)(e1)

(

e':E. ((e' < e1)

v

rsc4_propose'base(Cmd)(e')))))

(

v:

Cmd

Id
(v

rsc4_vote'base(Cmd)(e1)

(

e':E. ((e' < e1)

<fst(fst(fst(v))), snd(fst(v))>

rsc4_propose'base(Cmd)(e')))))

(

v:

Cmd
(v

rsc4_retry'base(Cmd)(e1)

(

e':E. ((e' < e1)

<fst(fst(v)), snd(v)>

rsc4_propose'base(Cmd)(e')))))

(

e2:E
(e2 c

e1

(

cs:Cmd List.

L:Id List.

n,rnd:

.

c:Cmd.
(<cs, L>

rsc4_QuorumState(Cmd) <n, rnd>(e1)

(c

cs)

(

e':E. ((e' < e1)

<n, c>

rsc4_propose'base(Cmd)(e')))))))))
11. n1 :

12. n :

13. c2 : Cmd
14. <<n1, n>, c2>

rsc4_retry'base(Cmd)(e)
15. e' : E
16. (e' < e)
17. loc(e')

locs
18. loc(e) = loc(e')
19. e1 : {e1:E| e1

loc e' }
20. a :

21. a2 :

22. b2 :

List
23. <a2, b2>

Memory-class(rsc4_update_replica(Cmd);rsc4_init() <0, []>;rsc4_Proposal(Cmd))(e1)
24. (a2 < a)

(a

b2)
25. c1 : Cmd
26. True
27. <a, c1>

Base([propose];

Cmd)(e1)

(

b1:

.

b3:Id. <<<a, b1>, c1>, b3>

Base(``rsc4 vote``;

Cmd

Id)(e1))
28. b1 :

29. n = (b1 + 1)
30. cmd : Cmd
31. loc : Id
32. <<<n1, b1>, cmd>, loc>

Base(``rsc4 vote``;

Cmd

Id)(e')
33. cs : Cmd List
34. ||cs|| = (coeff * flrs)
35.

((fst(poss-maj(cmdeq;[cmd / cs];cmd))) = ((coeff * flrs) + 1))
36. c2 = (snd(poss-maj(cmdeq;[cmd / cs];cmd)))
37. L : Id List
38. <cs, L>

rsc4_QuorumState(Cmd) <a, 0>(e')
39.

(rsc4_newvote(Cmd) <a, 0> <<<n1, b1>, cmd>, loc> <cs, L>)
40. (no rsc4_Quorum(Cmd;cmdeq;coeff;flrs) <a, 0> between e1 and e')
41. (c2 = cmd)

(c2

cs)

e':E. ((e' < e)

<n1, c2>

rsc4_propose'base(Cmd)(e'))
BY
{ (AllHyps h.((Unfold `rsc4_newvote` h THEN Reduce h) THEN RW assert_pushdownC h THEN Auto)
THEN ((InstHyp [

e'

] 10

THENM ExRepD) THENA MaAuto)
THEN (D -5
THEN Try (((InstHyp [

e1

;

cs

;

L

;

a

;

0

;

c2

] (-1)

THENA MaAuto)
                    THEN RepeatFor 3 (ParallelLast)
                    THEN MaAuto))
         THEN RepUR ``rsc4_vote'base`` -3
         THEN OnMaybeHyp 30 (\h. ((FHyp (-3) [h] THENA Auto)
                                  THEN Reduce (-1)
                                  THEN RepeatFor 3 (ParallelLast)
                                  THEN Complete (MaAuto))))

)

}

1. Cmd : \{T:Type| valueall-type(T)\} 2. cmdeq : EqDecider(Cmd) 3. locs : bag(Id) 4. clients : bag(Id) 5. coeff : \{2...\} 6. flrs : \mBbbN{} 7. es : EO' 8. StandardAssumptions(rsc4\_Main) es 9. e : E 10. \mforall{}e1:E ((e1 < e) {}\mRightarrow{} ((\mforall{}v:\mBbbZ{} \mtimes{} Cmd (v \mmember{} rsc4\_decided'base(Cmd)(e1) {}\mRightarrow{} (\mdownarrow{}\mexists{}e':E. ((e' < e1) \mwedge{} v \mmember{} rsc4\_propose'base(Cmd)(e'))))) \mwedge{} (\mforall{}v:\mBbbZ{} \mtimes{} \mBbbZ{} \mtimes{} Cmd \mtimes{} Id (v \mmember{} rsc4\_vote'base(Cmd)(e1) {}\mRightarrow{} (\mdownarrow{}\mexists{}e':E ((e' < e1) \mwedge{} <fst(fst(fst(v))), snd(fst(v))> \mmember{} rsc4\_propose'base(Cmd)(e'))))) \mwedge{} (\mforall{}v:\mBbbZ{} \mtimes{} \mBbbZ{} \mtimes{} Cmd (v \mmember{} rsc4\_retry'base(Cmd)(e1) {}\mRightarrow{} (\mdownarrow{}\mexists{}e':E. ((e' < e1) \mwedge{} <fst(fst(v)), snd(v)> \mmember{} rsc4\_propose'base(Cmd)(e'))))) \mwedge{} (\mforall{}e2:E (e2 c\mleq{} e1 {}\mRightarrow{} (\mforall{}cs:Cmd List. \mforall{}L:Id List. \mforall{}n,rnd:\mBbbZ{}. \mforall{}c:Cmd. (<cs, L> \mmember{} rsc4\_QuorumState(Cmd) <n, rnd>(e1) {}\mRightarrow{} (c \mmember{} cs) {}\mRightarrow{} (\mdownarrow{}\mexists{}e':E. ((e' < e1) \mwedge{} <n, c> \mmember{} rsc4\_propose'base(Cmd)(e'))))))))) 11. n1 : \mBbbZ{} 12. n : \mBbbZ{} 13. c2 : Cmd 14. <<n1, n>, c2> \mmember{} rsc4\_retry'base(Cmd)(e) 15. e' : E 16. (e' < e) 17. loc(e') \mdownarrow{}\mmember{} locs 18. loc(e) = loc(e') 19. e1 : \{e1:E| e1 \mleq{}loc e' \} 20. a : \mBbbZ{} 21. a2 : \mBbbZ{} 22. b2 : \mBbbZ{} List 23. <a2, b2> \mmember{} Memory-class(rsc4\_update\_replica(Cmd);rsc4\_init() ɘ, []>rsc4\_Proposal(Cmd))(e1) 24. (a2 < a) \mvee{} (a \mmember{} b2) 25. c1 : Cmd 26. True 27. <a, c1> \mmember{} Base([propose];\mBbbZ{} \mtimes{} Cmd)(e1) \mvee{} (\mexists{}b1:\mBbbZ{}. \mexists{}b3:Id. <<<a, b1>, c1>, b3> \mmember{} Base(``rsc4 vote``;\mBbbZ{} \mtimes{} \mBbbZ{} \mtimes{} Cmd \mtimes{} Id)(e1)) 28. b1 : \mBbbZ{} 29. n = (b1 + 1) 30. cmd : Cmd 31. loc : Id 32. <<<n1, b1>, cmd>, loc> \mmember{} Base(``rsc4 vote``;\mBbbZ{} \mtimes{} \mBbbZ{} \mtimes{} Cmd \mtimes{} Id)(e') 33. cs : Cmd List 34. ||cs|| = (coeff * flrs) 35. \mneg{}((fst(poss-maj(cmdeq;[cmd / cs];cmd))) = ((coeff * flrs) + 1)) 36. c2 = (snd(poss-maj(cmdeq;[cmd / cs];cmd))) 37. L : Id List 38. <cs, L> \mmember{} rsc4\_QuorumState(Cmd) <a, 0>(e') 39. \muparrow{}(rsc4\_newvote(Cmd) <a, 0> <<<n1, b1>, cmd>, loc> <cs, L>) 40. (no rsc4\_Quorum(Cmd;cmdeq;coeff;flrs) <a, 0> between e1 and e') 41. (c2 = cmd) \mvee{} (c2 \mmember{} cs) \mvdash{} \mdownarrow{}\mexists{}e':E. ((e' < e) \mwedge{} <n1, c2> \mmember{} rsc4\_propose'base(Cmd)(e')) By (AllHyps h.((Unfold `rsc4\_newvote` h THEN Reduce h) THEN RW assert\_pushdownC h THEN Auto) THEN ((InstHyp [\mkleeneopen{}e'\mkleeneclose{}] 10 \mcdot{} THENM ExRepD) THENA MaAuto) THEN (D -5 THEN Try (((InstHyp [\mkleeneopen{}e1\mkleeneclose{};\mkleeneopen{}cs\mkleeneclose{};\mkleeneopen{}L\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}0\mkleeneclose{};\mkleeneopen{}c2\mkleeneclose{}] (-1)\mcdot{} THENA MaAuto) THEN RepeatFor 3 (ParallelLast) THEN MaAuto)) THEN RepUR ``rsc4\_vote'base`` -3 THEN OnMaybeHyp 30 (\mbackslash{}h. ((FHyp (-3) [h] THENA Auto) THEN Reduce (-1) THEN RepeatFor 3 (ParallelLast) THEN Complete (MaAuto))))\mcdot{})\mcdot{} Home Index