Step
*
1
5
1
1
1
of Lemma
partition-refines-cons
1. I : Interval
2. icompact(I)
3. a : ℝ
4. bs : ℝ List
5. partitions(I;[a / bs])
6. partitions([left-endpoint(I), a];[])
7. partitions([a, right-endpoint(I)];bs)
8. left-endpoint(I) ≤ a
9. a ≤ right-endpoint(I)
10. partition-mesh([left-endpoint(I), a];[]) ≤ partition-mesh(I;[a / bs])
11. partition-mesh([a, right-endpoint(I)];bs) ≤ partition-mesh(I;[a / bs])
12. 0 < ||bs|| ⇒ (a < hd(bs))
13. p : partition(I)
14. p refines [a / bs]
15. i : ℕ||p||
16. a = p[i]
17. p ~ firstn(i;p) @ [p[i]] @ nth_tl(1 + i;p)
18. ||firstn(i;p)|| ≤ ||full-partition(I;p)||
19. icompact([a, right-endpoint(I)])
20. bs ∈ partition([a, right-endpoint(I)])
21. icompact([left-endpoint(I), a])
22. [] ∈ partition([left-endpoint(I), a])
23. firstn(i;p) ∈ partition([left-endpoint(I), a])
24. nth_tl(i + 1;p) ∈ partition([a, right-endpoint(I)])
25. firstn(i;p) refines []
26. nth_tl(i + 1;p) refines bs
27. ∃x:ℝ. ((x = a) ∧ (p = (firstn(i;p) @ [x / nth_tl(i + 1;p)]) ∈ (ℝ List)))
28. ||nth_tl(i + 1;p)|| + ||firstn(i;p)|| < ||p||
29. x : partition-choice(full-partition(I;p))
30. is-partition-choice(full-partition([left-endpoint(I), a];firstn(i;p));x)
31. is-partition-choice(full-partition(I;p);x)
32. ||full-partition([a, right-endpoint(I)];nth_tl(i + 1;p))|| = ((||p|| + 1) - i) ∈ ℤ
33. x ∈ ℕ||p|| + 1 ⟶ ℝ
34. ||full-partition(I;p)|| = (||p|| + 2) ∈ ℤ
⊢ is-partition-choice(full-partition([a, right-endpoint(I)];nth_tl(i + 1;p));λi@0.(x (i@0 + ||firstn(i;p)|| + 1)))
BY
{ (ParallelOp -4
THEN Reduce 0
THEN HypSubst' (-3) 0
THEN (D 0 THENA Auto)
THEN (RWO "length_firstn" 0 THENA Auto)
THEN RenameVar `j' (-1)
THEN (InstHyp [⌜j + i + 1⌝] (-5)⋅ THENA Auto)
THEN RepUR ``i-member`` -1
THEN ParallelLast) }
1
1. I : Interval
2. icompact(I)
3. a : ℝ
4. bs : ℝ List
5. partitions(I;[a / bs])
6. partitions([left-endpoint(I), a];[])
7. partitions([a, right-endpoint(I)];bs)
8. left-endpoint(I) ≤ a
9. a ≤ right-endpoint(I)
10. partition-mesh([left-endpoint(I), a];[]) ≤ partition-mesh(I;[a / bs])
11. partition-mesh([a, right-endpoint(I)];bs) ≤ partition-mesh(I;[a / bs])
12. 0 < ||bs|| ⇒ (a < hd(bs))
13. p : partition(I)
14. p refines [a / bs]
15. i : ℕ||p||
16. a = p[i]
17. p ~ firstn(i;p) @ [p[i]] @ nth_tl(1 + i;p)
18. ||firstn(i;p)|| ≤ ||full-partition(I;p)||
19. icompact([a, right-endpoint(I)])
20. bs ∈ partition([a, right-endpoint(I)])
21. icompact([left-endpoint(I), a])
22. [] ∈ partition([left-endpoint(I), a])
23. firstn(i;p) ∈ partition([left-endpoint(I), a])
24. nth_tl(i + 1;p) ∈ partition([a, right-endpoint(I)])
25. firstn(i;p) refines []
26. nth_tl(i + 1;p) refines bs
27. ∃x:ℝ. ((x = a) ∧ (p = (firstn(i;p) @ [x / nth_tl(i + 1;p)]) ∈ (ℝ List)))
28. ||nth_tl(i + 1;p)|| + ||firstn(i;p)|| < ||p||
29. x : partition-choice(full-partition(I;p))
30. is-partition-choice(full-partition([left-endpoint(I), a];firstn(i;p));x)
31. ∀i:ℕ||full-partition(I;p)|| - 1. (x i ∈ [full-partition(I;p)[i], full-partition(I;p)[i + 1]])
32. ||full-partition([a, right-endpoint(I)];nth_tl(i + 1;p))|| = ((||p|| + 1) - i) ∈ ℤ
33. x ∈ ℕ||p|| + 1 ⟶ ℝ
34. ||full-partition(I;p)|| = (||p|| + 2) ∈ ℤ
35. j : ℕ(||p|| + 1) - i - 1
36. (x (j + i + 1)) ≤ full-partition(I;p)[(j + i + 1) + 1]
37. full-partition(I;p)[j + i + 1] ≤ (x (j + i + 1))
⊢ full-partition([a, right-endpoint(I)];nth_tl(i + 1;p))[j] ≤ (x (j + i + 1))
2
1. I : Interval
2. icompact(I)
3. a : ℝ
4. bs : ℝ List
5. partitions(I;[a / bs])
6. partitions([left-endpoint(I), a];[])
7. partitions([a, right-endpoint(I)];bs)
8. left-endpoint(I) ≤ a
9. a ≤ right-endpoint(I)
10. partition-mesh([left-endpoint(I), a];[]) ≤ partition-mesh(I;[a / bs])
11. partition-mesh([a, right-endpoint(I)];bs) ≤ partition-mesh(I;[a / bs])
12. 0 < ||bs|| ⇒ (a < hd(bs))
13. p : partition(I)
14. p refines [a / bs]
15. i : ℕ||p||
16. a = p[i]
17. p ~ firstn(i;p) @ [p[i]] @ nth_tl(1 + i;p)
18. ||firstn(i;p)|| ≤ ||full-partition(I;p)||
19. icompact([a, right-endpoint(I)])
20. bs ∈ partition([a, right-endpoint(I)])
21. icompact([left-endpoint(I), a])
22. [] ∈ partition([left-endpoint(I), a])
23. firstn(i;p) ∈ partition([left-endpoint(I), a])
24. nth_tl(i + 1;p) ∈ partition([a, right-endpoint(I)])
25. firstn(i;p) refines []
26. nth_tl(i + 1;p) refines bs
27. ∃x:ℝ. ((x = a) ∧ (p = (firstn(i;p) @ [x / nth_tl(i + 1;p)]) ∈ (ℝ List)))
28. ||nth_tl(i + 1;p)|| + ||firstn(i;p)|| < ||p||
29. x : partition-choice(full-partition(I;p))
30. is-partition-choice(full-partition([left-endpoint(I), a];firstn(i;p));x)
31. ∀i:ℕ||full-partition(I;p)|| - 1. (x i ∈ [full-partition(I;p)[i], full-partition(I;p)[i + 1]])
32. ||full-partition([a, right-endpoint(I)];nth_tl(i + 1;p))|| = ((||p|| + 1) - i) ∈ ℤ
33. x ∈ ℕ||p|| + 1 ⟶ ℝ
34. ||full-partition(I;p)|| = (||p|| + 2) ∈ ℤ
35. j : ℕ(||p|| + 1) - i - 1
36. full-partition(I;p)[j + i + 1] ≤ (x (j + i + 1))
37. (x (j + i + 1)) ≤ full-partition(I;p)[(j + i + 1) + 1]
⊢ (x (j + i + 1)) ≤ full-partition([a, right-endpoint(I)];nth_tl(i + 1;p))[j + 1]
Latex:
Latex:
1. I : Interval
2. icompact(I)
3. a : \mBbbR{}
4. bs : \mBbbR{} List
5. partitions(I;[a / bs])
6. partitions([left-endpoint(I), a];[])
7. partitions([a, right-endpoint(I)];bs)
8. left-endpoint(I) \mleq{} a
9. a \mleq{} right-endpoint(I)
10. partition-mesh([left-endpoint(I), a];[]) \mleq{} partition-mesh(I;[a / bs])
11. partition-mesh([a, right-endpoint(I)];bs) \mleq{} partition-mesh(I;[a / bs])
12. 0 < ||bs|| {}\mRightarrow{} (a < hd(bs))
13. p : partition(I)
14. p refines [a / bs]
15. i : \mBbbN{}||p||
16. a = p[i]
17. p \msim{} firstn(i;p) @ [p[i]] @ nth\_tl(1 + i;p)
18. ||firstn(i;p)|| \mleq{} ||full-partition(I;p)||
19. icompact([a, right-endpoint(I)])
20. bs \mmember{} partition([a, right-endpoint(I)])
21. icompact([left-endpoint(I), a])
22. [] \mmember{} partition([left-endpoint(I), a])
23. firstn(i;p) \mmember{} partition([left-endpoint(I), a])
24. nth\_tl(i + 1;p) \mmember{} partition([a, right-endpoint(I)])
25. firstn(i;p) refines []
26. nth\_tl(i + 1;p) refines bs
27. \mexists{}x:\mBbbR{}. ((x = a) \mwedge{} (p = (firstn(i;p) @ [x / nth\_tl(i + 1;p)])))
28. ||nth\_tl(i + 1;p)|| + ||firstn(i;p)|| < ||p||
29. x : partition-choice(full-partition(I;p))
30. is-partition-choice(full-partition([left-endpoint(I), a];firstn(i;p));x)
31. is-partition-choice(full-partition(I;p);x)
32. ||full-partition([a, right-endpoint(I)];nth\_tl(i + 1;p))|| = ((||p|| + 1) - i)
33. x \mmember{} \mBbbN{}||p|| + 1 {}\mrightarrow{} \mBbbR{}
34. ||full-partition(I;p)|| = (||p|| + 2)
\mvdash{} is-partition-choice(full-partition([a, right-endpoint(I)];nth\_tl(i + 1;p));\mlambda{}i@0.(x
(i@0
+ ||firstn(i;p)||
+ 1)))
By
Latex:
(ParallelOp -4
THEN Reduce 0
THEN HypSubst' (-3) 0
THEN (D 0 THENA Auto)
THEN (RWO "length\_firstn" 0 THENA Auto)
THEN RenameVar `j' (-1)
THEN (InstHyp [\mkleeneopen{}j + i + 1\mkleeneclose{}] (-5)\mcdot{} THENA Auto)
THEN RepUR ``i-member`` -1
THEN ParallelLast)
Home
Index