---

Step * 1 2 1 1 2 1 of Lemma bounded-expectation

.....assertion..... 
1. p : FinProbSpace@i
2. f : ℕ ─→ ℕ@i
3. X : n:ℕ ─→ RandomVariable(p;f[n])@i
4. B : ℚ@i
5. ∀n:ℕ. ∀i:ℕn.  f[i] < f[n]
6. ∀n:ℕ. ∀i:ℕn.  X[i] ≤ X[n]
7. 0 < B
8. ∀n:ℕ. (0 ≤ X[n] ∧ E(f[n];X[n]) < B)
9. ∀q:ℚ. (0 < q ⇒ (∃b:ℚ. ∀n:ℕ. E(f[n];b ≤ X[n]) < q))
10. q : ℚ@i
11. 0 < q@i
12. b : ℚ
13. ∀n:ℕ. E(f[n];b ≤ X[n]) < q
14. ∀n:ℕ. ∀s:ℕn ─→ Outcome.  Dec(∃i:ℕn. (f[i] < n c∧ (b ≤ (X[i] s))))
⊢ ∃g:(n:ℕ × (ℕn ─→ Outcome)) ─→ ℕ2. ∀n:ℕ. ∀s:ℕn ─→ Outcome.  ((g <n, s>) = 1 ∈ ℤ ⇐⇒ ∃i:ℕn. (f[i] < n c∧ (b ≤ (X[i] s)))\000C)
BY
{ (RenameVar `g' (-1) THEN InstConcl [⌈λp.case g (fst(p)) (snd(p)) of inl(x) => 1 | inr(x) => 0⌉]⋅) }

1
.....wf..... 
1. p : FinProbSpace@i
2. f : ℕ ─→ ℕ@i
3. X : n:ℕ ─→ RandomVariable(p;f[n])@i
4. B : ℚ@i
5. ∀n:ℕ. ∀i:ℕn.  f[i] < f[n]
6. ∀n:ℕ. ∀i:ℕn.  X[i] ≤ X[n]
7. 0 < B
8. ∀n:ℕ. (0 ≤ X[n] ∧ E(f[n];X[n]) < B)
9. ∀q:ℚ. (0 < q ⇒ (∃b:ℚ. ∀n:ℕ. E(f[n];b ≤ X[n]) < q))
10. q : ℚ@i
11. 0 < q@i
12. b : ℚ
13. ∀n:ℕ. E(f[n];b ≤ X[n]) < q
14. g : ∀n:ℕ. ∀s:ℕn ─→ Outcome.  Dec(∃i:ℕn. (f[i] < n c∧ (b ≤ (X[i] s))))
⊢ λp.case g (fst(p)) (snd(p)) of inl(x) => 1 | inr(x) => 0 ∈ (n:ℕ × (ℕn ─→ Outcome)) ─→ ℕ2

2
1. p : FinProbSpace@i
2. f : ℕ ─→ ℕ@i
3. X : n:ℕ ─→ RandomVariable(p;f[n])@i
4. B : ℚ@i
5. ∀n:ℕ. ∀i:ℕn.  f[i] < f[n]
6. ∀n:ℕ. ∀i:ℕn.  X[i] ≤ X[n]
7. 0 < B
8. ∀n:ℕ. (0 ≤ X[n] ∧ E(f[n];X[n]) < B)
9. ∀q:ℚ. (0 < q ⇒ (∃b:ℚ. ∀n:ℕ. E(f[n];b ≤ X[n]) < q))
10. q : ℚ@i
11. 0 < q@i
12. b : ℚ
13. ∀n:ℕ. E(f[n];b ≤ X[n]) < q
14. g : ∀n:ℕ. ∀s:ℕn ─→ Outcome.  Dec(∃i:ℕn. (f[i] < n c∧ (b ≤ (X[i] s))))
⊢ ∀n:ℕ. ∀s:ℕn ─→ Outcome.  (((λp.case g (fst(p)) (snd(p)) of inl(x) => 1 | inr(x) => 0) <n, s>) = 1 ∈ ℤ ⇐⇒ ∃i:ℕn. (f[i]\000C < n c∧ (b ≤ (X[i] s))))

3
.....wf..... 
1. p : FinProbSpace@i
2. f : ℕ ─→ ℕ@i
3. X : n:ℕ ─→ RandomVariable(p;f[n])@i
4. B : ℚ@i
5. ∀n:ℕ. ∀i:ℕn.  f[i] < f[n]
6. ∀n:ℕ. ∀i:ℕn.  X[i] ≤ X[n]
7. 0 < B
8. ∀n:ℕ. (0 ≤ X[n] ∧ E(f[n];X[n]) < B)
9. ∀q:ℚ. (0 < q ⇒ (∃b:ℚ. ∀n:ℕ. E(f[n];b ≤ X[n]) < q))
10. q : ℚ@i
11. 0 < q@i
12. b : ℚ
13. ∀n:ℕ. E(f[n];b ≤ X[n]) < q
14. g : ∀n:ℕ. ∀s:ℕn ─→ Outcome.  Dec(∃i:ℕn. (f[i] < n c∧ (b ≤ (X[i] s))))
15. g1 : (n:ℕ × (ℕn ─→ Outcome)) ─→ ℕ2
⊢ ∀n:ℕ. ∀s:ℕn ─→ Outcome.  ((g1 <n, s>) = 1 ∈ ℤ ⇐⇒ ∃i:ℕn. (f[i] < n c∧ (b ≤ (X[i] s)))) ∈ ℙ

---

Latex:


.....assertion..... 
1.  p  :  FinProbSpace@i
2.  f  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}@i
3.  X  :  n:\mBbbN{}  {}\mrightarrow{}  RandomVariable(p;f[n])@i
4.  B  :  \mBbbQ{}@i
5.  \mforall{}n:\mBbbN{}.  \mforall{}i:\mBbbN{}n.    f[i]  <  f[n]
6.  \mforall{}n:\mBbbN{}.  \mforall{}i:\mBbbN{}n.    X[i]  \mleq{}  X[n]
7.  0  <  B
8.  \mforall{}n:\mBbbN{}.  (0  \mleq{}  X[n]  \mwedge{}  E(f[n];X[n])  <  B)
9.  \mforall{}q:\mBbbQ{}.  (0  <  q  {}\mRightarrow{}  (\mexists{}b:\mBbbQ{}.  \mforall{}n:\mBbbN{}.  E(f[n];b  \mleq{}  X[n])  <  q))
10.  q  :  \mBbbQ{}@i
11.  0  <  q@i
12.  b  :  \mBbbQ{}
13.  \mforall{}n:\mBbbN{}.  E(f[n];b  \mleq{}  X[n])  <  q
14.  \mforall{}n:\mBbbN{}.  \mforall{}s:\mBbbN{}n  {}\mrightarrow{}  Outcome.    Dec(\mexists{}i:\mBbbN{}n.  (f[i]  <  n  c\mwedge{}  (b  \mleq{}  (X[i]  s))))
\mvdash{}  \mexists{}g:(n:\mBbbN{}  \mtimes{}  (\mBbbN{}n  {}\mrightarrow{}  Outcome))  {}\mrightarrow{}  \mBbbN{}2
      \mforall{}n:\mBbbN{}.  \mforall{}s:\mBbbN{}n  {}\mrightarrow{}  Outcome.    ((g  <n,  s>)  =  1  \mLeftarrow{}{}\mRightarrow{}  \mexists{}i:\mBbbN{}n.  (f[i]  <  n  c\mwedge{}  (b  \mleq{}  (X[i]  s))))


By

(RenameVar  `g'  (-1)  THEN  InstConcl  [\mkleeneopen{}\mlambda{}p.case  g  (fst(p))  (snd(p))  of  inl(x)  =>  1  |  inr(x)  =>  0\mkleeneclose{}]\mcdot{})

---

Home Index