Proof of Theorem cvmliftlem5
Step | Hyp | Ref
| Expression |
1 | | 0z 12313 |
. . . 4
⊢ 0 ∈
ℤ |
2 | | simpr 484 |
. . . . 5
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → 𝑀 ∈ ℕ) |
3 | | nnuz 12603 |
. . . . . 6
⊢ ℕ =
(ℤ≥‘1) |
4 | | 1e0p1 12461 |
. . . . . . 7
⊢ 1 = (0 +
1) |
5 | 4 | fveq2i 6771 |
. . . . . 6
⊢
(ℤ≥‘1) = (ℤ≥‘(0 +
1)) |
6 | 3, 5 | eqtri 2767 |
. . . . 5
⊢ ℕ =
(ℤ≥‘(0 + 1)) |
7 | 2, 6 | eleqtrdi 2850 |
. . . 4
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → 𝑀 ∈ (ℤ≥‘(0 +
1))) |
8 | | seqm1 13721 |
. . . 4
⊢ ((0
∈ ℤ ∧ 𝑀
∈ (ℤ≥‘(0 + 1))) → (seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘𝑀) = ((seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))((( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})‘𝑀))) |
9 | 1, 7, 8 | sylancr 586 |
. . 3
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → (seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘𝑀) = ((seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))((( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})‘𝑀))) |
10 | | cvmliftlem.q |
. . . 4
⊢ 𝑄 = seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})) |
11 | 10 | fveq1i 6769 |
. . 3
⊢ (𝑄‘𝑀) = (seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘𝑀) |
12 | 10 | fveq1i 6769 |
. . . 4
⊢ (𝑄‘(𝑀 − 1)) = (seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘(𝑀 − 1)) |
13 | 12 | oveq1i 7278 |
. . 3
⊢ ((𝑄‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))((( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})‘𝑀)) = ((seq0((𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))), (( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉}))‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))((( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})‘𝑀)) |
14 | 9, 11, 13 | 3eqtr4g 2804 |
. 2
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → (𝑄‘𝑀) = ((𝑄‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))((( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})‘𝑀))) |
15 | | 0nnn 11992 |
. . . . . 6
⊢ ¬ 0
∈ ℕ |
16 | | disjsn 4652 |
. . . . . 6
⊢ ((ℕ
∩ {0}) = ∅ ↔ ¬ 0 ∈ ℕ) |
17 | 15, 16 | mpbir 230 |
. . . . 5
⊢ (ℕ
∩ {0}) = ∅ |
18 | | fnresi 6557 |
. . . . . 6
⊢ ( I
↾ ℕ) Fn ℕ |
19 | | c0ex 10953 |
. . . . . . 7
⊢ 0 ∈
V |
20 | | snex 5357 |
. . . . . . 7
⊢ {〈0,
𝑃〉} ∈
V |
21 | 19, 20 | fnsn 6488 |
. . . . . 6
⊢ {〈0,
{〈0, 𝑃〉}〉}
Fn {0} |
22 | | fvun1 6853 |
. . . . . 6
⊢ ((( I
↾ ℕ) Fn ℕ ∧ {〈0, {〈0, 𝑃〉}〉} Fn {0} ∧ ((ℕ ∩
{0}) = ∅ ∧ 𝑀
∈ ℕ)) → ((( I ↾ ℕ) ∪ {〈0, {〈0, 𝑃〉}〉})‘𝑀) = (( I ↾
ℕ)‘𝑀)) |
23 | 18, 21, 22 | mp3an12 1449 |
. . . . 5
⊢
(((ℕ ∩ {0}) = ∅ ∧ 𝑀 ∈ ℕ) → ((( I ↾
ℕ) ∪ {〈0, {〈0, 𝑃〉}〉})‘𝑀) = (( I ↾ ℕ)‘𝑀)) |
24 | 17, 2, 23 | sylancr 586 |
. . . 4
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → ((( I ↾
ℕ) ∪ {〈0, {〈0, 𝑃〉}〉})‘𝑀) = (( I ↾ ℕ)‘𝑀)) |
25 | | fvresi 7039 |
. . . . 5
⊢ (𝑀 ∈ ℕ → (( I
↾ ℕ)‘𝑀) =
𝑀) |
26 | 25 | adantl 481 |
. . . 4
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → (( I ↾
ℕ)‘𝑀) = 𝑀) |
27 | 24, 26 | eqtrd 2779 |
. . 3
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → ((( I ↾
ℕ) ∪ {〈0, {〈0, 𝑃〉}〉})‘𝑀) = 𝑀) |
28 | 27 | oveq2d 7284 |
. 2
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → ((𝑄‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))((( I ↾ ℕ) ∪ {〈0,
{〈0, 𝑃〉}〉})‘𝑀)) = ((𝑄‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))𝑀)) |
29 | | fvexd 6783 |
. . 3
⊢ (𝜑 → (𝑄‘(𝑀 − 1)) ∈ V) |
30 | | simpr 484 |
. . . . . . . . 9
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → 𝑚 = 𝑀) |
31 | 30 | oveq1d 7283 |
. . . . . . . 8
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (𝑚 − 1) = (𝑀 − 1)) |
32 | 31 | oveq1d 7283 |
. . . . . . 7
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → ((𝑚 − 1) / 𝑁) = ((𝑀 − 1) / 𝑁)) |
33 | 30 | oveq1d 7283 |
. . . . . . 7
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (𝑚 / 𝑁) = (𝑀 / 𝑁)) |
34 | 32, 33 | oveq12d 7286 |
. . . . . 6
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) = (((𝑀 − 1) / 𝑁)[,](𝑀 / 𝑁))) |
35 | | cvmliftlem5.3 |
. . . . . 6
⊢ 𝑊 = (((𝑀 − 1) / 𝑁)[,](𝑀 / 𝑁)) |
36 | 34, 35 | eqtr4di 2797 |
. . . . 5
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) = 𝑊) |
37 | 30 | fveq2d 6772 |
. . . . . . . . . 10
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (𝑇‘𝑚) = (𝑇‘𝑀)) |
38 | 37 | fveq2d 6772 |
. . . . . . . . 9
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (2nd ‘(𝑇‘𝑚)) = (2nd ‘(𝑇‘𝑀))) |
39 | | simpl 482 |
. . . . . . . . . . 11
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → 𝑥 = (𝑄‘(𝑀 − 1))) |
40 | 39, 32 | fveq12d 6775 |
. . . . . . . . . 10
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (𝑥‘((𝑚 − 1) / 𝑁)) = ((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁))) |
41 | 40 | eleq1d 2824 |
. . . . . . . . 9
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → ((𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏 ↔ ((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏)) |
42 | 38, 41 | riotaeqbidv 7228 |
. . . . . . . 8
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏) = (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏)) |
43 | 42 | reseq2d 5888 |
. . . . . . 7
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏)) = (𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))) |
44 | 43 | cnveqd 5781 |
. . . . . 6
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → ◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏)) = ◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))) |
45 | 44 | fveq1d 6770 |
. . . . 5
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)) = (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))) |
46 | 36, 45 | mpteq12dv 5169 |
. . . 4
⊢ ((𝑥 = (𝑄‘(𝑀 − 1)) ∧ 𝑚 = 𝑀) → (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))) = (𝑧 ∈ 𝑊 ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))) |
47 | | eqid 2739 |
. . . 4
⊢ (𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))) = (𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))) |
48 | | ovex 7301 |
. . . . . 6
⊢ (((𝑀 − 1) / 𝑁)[,](𝑀 / 𝑁)) ∈ V |
49 | 35, 48 | eqeltri 2836 |
. . . . 5
⊢ 𝑊 ∈ V |
50 | 49 | mptex 7093 |
. . . 4
⊢ (𝑧 ∈ 𝑊 ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))) ∈ V |
51 | 46, 47, 50 | ovmpoa 7419 |
. . 3
⊢ (((𝑄‘(𝑀 − 1)) ∈ V ∧ 𝑀 ∈ ℕ) → ((𝑄‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))𝑀) = (𝑧 ∈ 𝑊 ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))) |
52 | 29, 51 | sylan 579 |
. 2
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → ((𝑄‘(𝑀 − 1))(𝑥 ∈ V, 𝑚 ∈ ℕ ↦ (𝑧 ∈ (((𝑚 − 1) / 𝑁)[,](𝑚 / 𝑁)) ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑚))(𝑥‘((𝑚 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧))))𝑀) = (𝑧 ∈ 𝑊 ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))) |
53 | 14, 28, 52 | 3eqtrd 2783 |
1
⊢ ((𝜑 ∧ 𝑀 ∈ ℕ) → (𝑄‘𝑀) = (𝑧 ∈ 𝑊 ↦ (◡(𝐹 ↾ (℩𝑏 ∈ (2nd ‘(𝑇‘𝑀))((𝑄‘(𝑀 − 1))‘((𝑀 − 1) / 𝑁)) ∈ 𝑏))‘(𝐺‘𝑧)))) |