| Step | Hyp | Ref
| Expression |
| 1 | | mvrf.v |
. . 3
⊢ 𝑉 = (𝐼 mVar 𝑅) |
| 2 | | eqid 2238 |
. . 3
⊢ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} = {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} |
| 3 | | eqid 2238 |
. . 3
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 4 | | eqid 2238 |
. . 3
⊢
(1r‘𝑅) = (1r‘𝑅) |
| 5 | | mvrffi.i |
. . 3
⊢ (𝜑 → 𝐼 ∈ Fin) |
| 6 | | mvrf.r |
. . 3
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 7 | 1, 2, 3, 4, 5, 6 | mvrfval 15210 |
. 2
⊢ (𝜑 → 𝑉 = (𝑥 ∈ 𝐼 ↦ (𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅))))) |
| 8 | | eqid 2238 |
. . . . . . . . 9
⊢
(Base‘𝑅) =
(Base‘𝑅) |
| 9 | 8, 4 | ringidcl 14433 |
. . . . . . . 8
⊢ (𝑅 ∈ Ring →
(1r‘𝑅)
∈ (Base‘𝑅)) |
| 10 | 6, 9 | syl 14 |
. . . . . . 7
⊢ (𝜑 → (1r‘𝑅) ∈ (Base‘𝑅)) |
| 11 | 10 | ad2antrr 492 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) →
(1r‘𝑅)
∈ (Base‘𝑅)) |
| 12 | 8, 3 | ring0cl 14434 |
. . . . . . . 8
⊢ (𝑅 ∈ Ring →
(0g‘𝑅)
∈ (Base‘𝑅)) |
| 13 | 6, 12 | syl 14 |
. . . . . . 7
⊢ (𝜑 → (0g‘𝑅) ∈ (Base‘𝑅)) |
| 14 | 13 | ad2antrr 492 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) →
(0g‘𝑅)
∈ (Base‘𝑅)) |
| 15 | 5 | ad2antrr 492 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐼 ∈ Fin) |
| 16 | | simpr 110 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}) |
| 17 | | 1nn0 9591 |
. . . . . . . . 9
⊢ 1 ∈
ℕ0 |
| 18 | 17 | a1i 9 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 1 ∈
ℕ0) |
| 19 | | simplr 533 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑥 ∈ 𝐼) |
| 20 | 2 | snifpsrbagfi 15170 |
. . . . . . . 8
⊢ ((𝐼 ∈ Fin ∧ 1 ∈
ℕ0 ∧ 𝑥
∈ 𝐼) → (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)) ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}) |
| 21 | 15, 18, 19, 20 | syl3anc 1278 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)) ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}) |
| 22 | 2 | psrbagdceq 15169 |
. . . . . . 7
⊢ ((𝐼 ∈ Fin ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∧ (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)) ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) →
DECID 𝑓 =
(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0))) |
| 23 | 15, 16, 21, 22 | syl3anc 1278 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) →
DECID 𝑓 =
(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0))) |
| 24 | 11, 14, 23 | ifcldcd 3678 |
. . . . 5
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐼) ∧ 𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅)) ∈ (Base‘𝑅)) |
| 25 | 24 | fmpttd 5866 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅))):{ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}⟶(Base‘𝑅)) |
| 26 | | basfn 13470 |
. . . . . . 7
⊢ Base Fn
V |
| 27 | 6 | elexd 2835 |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ V) |
| 28 | | funfvex 5715 |
. . . . . . . 8
⊢ ((Fun
Base ∧ 𝑅 ∈ dom
Base) → (Base‘𝑅)
∈ V) |
| 29 | 28 | funfni 5486 |
. . . . . . 7
⊢ ((Base Fn
V ∧ 𝑅 ∈ V) →
(Base‘𝑅) ∈
V) |
| 30 | 26, 27, 29 | sylancr 418 |
. . . . . 6
⊢ (𝜑 → (Base‘𝑅) ∈ V) |
| 31 | 30 | adantr 276 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (Base‘𝑅) ∈ V) |
| 32 | | fnmap 6933 |
. . . . . . . 8
⊢
↑𝑚 Fn (V × V) |
| 33 | | nn0ex 9581 |
. . . . . . . 8
⊢
ℕ0 ∈ V |
| 34 | 5 | elexd 2835 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 ∈ V) |
| 35 | | fnovex 6121 |
. . . . . . . 8
⊢ ((
↑𝑚 Fn (V × V) ∧ ℕ0 ∈ V
∧ 𝐼 ∈ V) →
(ℕ0 ↑𝑚 𝐼) ∈ V) |
| 36 | 32, 33, 34, 35 | mp3an12i 1382 |
. . . . . . 7
⊢ (𝜑 → (ℕ0
↑𝑚 𝐼) ∈ V) |
| 37 | 2, 36 | rabexd 4283 |
. . . . . 6
⊢ (𝜑 → {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈
V) |
| 38 | 37 | adantr 276 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈
V) |
| 39 | 31, 38 | elmapd 6940 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ((𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅))) ∈ ((Base‘𝑅) ↑𝑚
{ℎ ∈
(ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ↔ (𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅))):{ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin}⟶(Base‘𝑅))) |
| 40 | 25, 39 | mpbird 167 |
. . 3
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅))) ∈ ((Base‘𝑅) ↑𝑚
{ℎ ∈
(ℕ0 ↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin})) |
| 41 | | mvrf.s |
. . . . 5
⊢ 𝑆 = (𝐼 mPwSer 𝑅) |
| 42 | | mvrf.b |
. . . . 5
⊢ 𝐵 = (Base‘𝑆) |
| 43 | 41, 8, 2, 42, 5, 6 | psrbasg 15183 |
. . . 4
⊢ (𝜑 → 𝐵 = ((Base‘𝑅) ↑𝑚 {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin})) |
| 44 | 43 | adantr 276 |
. . 3
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝐵 = ((Base‘𝑅) ↑𝑚 {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈
Fin})) |
| 45 | 40, 44 | eleqtrrd 2318 |
. 2
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑓 ∈ {ℎ ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑥, 1, 0)), (1r‘𝑅), (0g‘𝑅))) ∈ 𝐵) |
| 46 | 7, 45 | fmpt3d 5867 |
1
⊢ (𝜑 → 𝑉:𝐼⟶𝐵) |