| Step | Hyp | Ref
| Expression |
| 1 | | eqid 2238 |
. . 3
⊢ (𝐼 mPwSer 𝑅) = (𝐼 mPwSer 𝑅) |
| 2 | | mvrcl.v |
. . 3
⊢ 𝑉 = (𝐼 mVar 𝑅) |
| 3 | | eqid 2238 |
. . 3
⊢
(Base‘(𝐼
mPwSer 𝑅)) =
(Base‘(𝐼 mPwSer 𝑅)) |
| 4 | | mvrclfi.i |
. . 3
⊢ (𝜑 → 𝐼 ∈ Fin) |
| 5 | | mvrcl.r |
. . 3
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 6 | | mvrcl.x |
. . 3
⊢ (𝜑 → 𝑋 ∈ 𝐼) |
| 7 | 1, 2, 3, 4, 5, 6 | mvrcl2fi 15220 |
. 2
⊢ (𝜑 → (𝑉‘𝑋) ∈ (Base‘(𝐼 mPwSer 𝑅))) |
| 8 | 5 | ringgrpd 14415 |
. . . 4
⊢ (𝜑 → 𝑅 ∈ Grp) |
| 9 | | eqid 2238 |
. . . . 5
⊢
(Base‘𝑅) =
(Base‘𝑅) |
| 10 | | eqid 2238 |
. . . . 5
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 11 | 9, 10 | grpidcl 13892 |
. . . 4
⊢ (𝑅 ∈ Grp →
(0g‘𝑅)
∈ (Base‘𝑅)) |
| 12 | 8, 11 | syl 14 |
. . 3
⊢ (𝜑 → (0g‘𝑅) ∈ (Base‘𝑅)) |
| 13 | | eqid 2238 |
. . . . 5
⊢ {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} = {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈
Fin} |
| 14 | 1, 9, 13, 3, 7 | psrelbas 15188 |
. . . 4
⊢ (𝜑 → (𝑉‘𝑋):{𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈
Fin}⟶(Base‘𝑅)) |
| 15 | 14 | ffund 5540 |
. . 3
⊢ (𝜑 → Fun (𝑉‘𝑋)) |
| 16 | | 1nn0 9590 |
. . . . . . . 8
⊢ 1 ∈
ℕ0 |
| 17 | 16 | a1i 9 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → 1 ∈
ℕ0) |
| 18 | | 0nn0 9589 |
. . . . . . . 8
⊢ 0 ∈
ℕ0 |
| 19 | 18 | a1i 9 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → 0 ∈
ℕ0) |
| 20 | 4 | adantr 276 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → 𝐼 ∈ Fin) |
| 21 | | simpr 110 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → 𝑦 ∈ 𝐼) |
| 22 | 6 | adantr 276 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → 𝑋 ∈ 𝐼) |
| 23 | | fidceq 7177 |
. . . . . . . 8
⊢ ((𝐼 ∈ Fin ∧ 𝑦 ∈ 𝐼 ∧ 𝑋 ∈ 𝐼) → DECID 𝑦 = 𝑋) |
| 24 | 20, 21, 22, 23 | syl3anc 1278 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → DECID 𝑦 = 𝑋) |
| 25 | 17, 19, 24 | ifcldcd 3678 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐼) → if(𝑦 = 𝑋, 1, 0) ∈
ℕ0) |
| 26 | 25 | fmpttd 5866 |
. . . . 5
⊢ (𝜑 → (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)):𝐼⟶ℕ0) |
| 27 | | nn0ex 9580 |
. . . . . . 7
⊢
ℕ0 ∈ V |
| 28 | 27 | a1i 9 |
. . . . . 6
⊢ (𝜑 → ℕ0 ∈
V) |
| 29 | 28, 4 | elmapd 6941 |
. . . . 5
⊢ (𝜑 → ((𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)) ∈ (ℕ0
↑𝑚 𝐼) ↔ (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)):𝐼⟶ℕ0)) |
| 30 | 26, 29 | mpbird 167 |
. . . 4
⊢ (𝜑 → (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)) ∈ (ℕ0
↑𝑚 𝐼)) |
| 31 | | snfig 7109 |
. . . 4
⊢ ((𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)) ∈ (ℕ0
↑𝑚 𝐼) → {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))} ∈ Fin) |
| 32 | 30, 31 | syl 14 |
. . 3
⊢ (𝜑 → {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))} ∈ Fin) |
| 33 | 30 | snssd 3860 |
. . . 4
⊢ (𝜑 → {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))} ⊆ (ℕ0
↑𝑚 𝐼)) |
| 34 | 1, 9, 4, 3, 7 | psrelbasfi 15189 |
. . . . 5
⊢ (𝜑 → (𝑉‘𝑋):(ℕ0
↑𝑚 𝐼)⟶(Base‘𝑅)) |
| 35 | 34 | fdmd 5543 |
. . . 4
⊢ (𝜑 → dom (𝑉‘𝑋) = (ℕ0
↑𝑚 𝐼)) |
| 36 | 33, 35 | sseqtrrd 3287 |
. . 3
⊢ (𝜑 → {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))} ⊆ dom (𝑉‘𝑋)) |
| 37 | 35 | difeq1d 3346 |
. . . . 5
⊢ (𝜑 → (dom (𝑉‘𝑋) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) = ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) |
| 38 | 37 | imaeq2d 5129 |
. . . 4
⊢ (𝜑 → ((𝑉‘𝑋) “ (dom (𝑉‘𝑋) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) = ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) |
| 39 | | fvelima 5757 |
. . . . . . . 8
⊢ ((Fun
(𝑉‘𝑋) ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) → ∃𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})((𝑉‘𝑋)‘𝑥) = 𝑘) |
| 40 | 15, 39 | sylan 283 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) → ∃𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})((𝑉‘𝑋)‘𝑥) = 𝑘) |
| 41 | | simprr 537 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) ∧ (𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) ∧ ((𝑉‘𝑋)‘𝑥) = 𝑘)) → ((𝑉‘𝑋)‘𝑥) = 𝑘) |
| 42 | 13 | psrbagfi 15166 |
. . . . . . . . . . . . . . 15
⊢ (𝐼 ∈ Fin → {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} =
(ℕ0 ↑𝑚 𝐼)) |
| 43 | 4, 42 | syl 14 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} =
(ℕ0 ↑𝑚 𝐼)) |
| 44 | 43 | difeq1d 3346 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) = ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) |
| 45 | 44 | eleq2d 2308 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) ↔ 𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) |
| 46 | 45 | pm5.32i 458 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) ↔ (𝜑 ∧ 𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) |
| 47 | | eqid 2238 |
. . . . . . . . . . . . 13
⊢
(1r‘𝑅) = (1r‘𝑅) |
| 48 | 4 | adantr 276 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → 𝐼 ∈ Fin) |
| 49 | 5 | adantr 276 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → 𝑅 ∈ Ring) |
| 50 | 6 | adantr 276 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → 𝑋 ∈ 𝐼) |
| 51 | | eldifsn 3841 |
. . . . . . . . . . . . . . 15
⊢ (𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) ↔ (𝑥 ∈ {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑥 ≠ (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)))) |
| 52 | 51 | bilani 387 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → (𝑥 ∈ {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑥 ≠ (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)))) |
| 53 | 52 | simpld 112 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → 𝑥 ∈ {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈
Fin}) |
| 54 | 2, 13, 10, 47, 48, 49, 50, 53 | mvrval2 15216 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → ((𝑉‘𝑋)‘𝑥) = if(𝑥 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)), (1r‘𝑅), (0g‘𝑅))) |
| 55 | 52 | simprd 114 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → 𝑥 ≠ (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))) |
| 56 | 55 | neneqd 2441 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → ¬ 𝑥 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))) |
| 57 | 56 | iffalsed 3650 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → if(𝑥 = (𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0)), (1r‘𝑅), (0g‘𝑅)) = (0g‘𝑅)) |
| 58 | 54, 57 | eqtrd 2271 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑥 ∈ ({𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → ((𝑉‘𝑋)‘𝑥) = (0g‘𝑅)) |
| 59 | 46, 58 | sylbir 135 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → ((𝑉‘𝑋)‘𝑥) = (0g‘𝑅)) |
| 60 | 59 | ad2ant2r 513 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) ∧ (𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) ∧ ((𝑉‘𝑋)‘𝑥) = 𝑘)) → ((𝑉‘𝑋)‘𝑥) = (0g‘𝑅)) |
| 61 | 41, 60 | eqtr3d 2273 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) ∧ (𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) ∧ ((𝑉‘𝑋)‘𝑥) = 𝑘)) → 𝑘 = (0g‘𝑅)) |
| 62 | | velsn 3726 |
. . . . . . . 8
⊢ (𝑘 ∈
{(0g‘𝑅)}
↔ 𝑘 =
(0g‘𝑅)) |
| 63 | 61, 62 | sylibr 134 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) ∧ (𝑥 ∈ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}) ∧ ((𝑉‘𝑋)‘𝑥) = 𝑘)) → 𝑘 ∈ {(0g‘𝑅)}) |
| 64 | 40, 63 | rexlimddv 2673 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))}))) → 𝑘 ∈ {(0g‘𝑅)}) |
| 65 | 64 | ex 115 |
. . . . 5
⊢ (𝜑 → (𝑘 ∈ ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) → 𝑘 ∈ {(0g‘𝑅)})) |
| 66 | 65 | ssrdv 3254 |
. . . 4
⊢ (𝜑 → ((𝑉‘𝑋) “ ((ℕ0
↑𝑚 𝐼) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) ⊆
{(0g‘𝑅)}) |
| 67 | 38, 66 | eqsstrd 3284 |
. . 3
⊢ (𝜑 → ((𝑉‘𝑋) “ (dom (𝑉‘𝑋) ∖ {(𝑦 ∈ 𝐼 ↦ if(𝑦 = 𝑋, 1, 0))})) ⊆
{(0g‘𝑅)}) |
| 68 | 7, 12, 15, 32, 36, 67 | isfsuppfid 7297 |
. 2
⊢ (𝜑 → (𝑉‘𝑋) finSupp (0g‘𝑅)) |
| 69 | | mvrcl.s |
. . 3
⊢ 𝑃 = (𝐼 mPoly 𝑅) |
| 70 | | mvrcl.b |
. . 3
⊢ 𝐵 = (Base‘𝑃) |
| 71 | 69, 1, 3, 10, 70 | mplelbas 15224 |
. 2
⊢ ((𝑉‘𝑋) ∈ 𝐵 ↔ ((𝑉‘𝑋) ∈ (Base‘(𝐼 mPwSer 𝑅)) ∧ (𝑉‘𝑋) finSupp (0g‘𝑅))) |
| 72 | 7, 68, 71 | sylanbrc 421 |
1
⊢ (𝜑 → (𝑉‘𝑋) ∈ 𝐵) |