Step | Hyp | Ref
| Expression |
1 | | psrring.s |
. . . 4
⊢ 𝑆 = (𝐼 mPwSer 𝑅) |
2 | | eqid 2610 |
. . . 4
⊢
(Base‘𝑅) =
(Base‘𝑅) |
3 | | psr1cl.d |
. . . 4
⊢ 𝐷 = {𝑓 ∈ (ℕ0
↑𝑚 𝐼) ∣ (◡𝑓 “ ℕ) ∈
Fin} |
4 | | psr1cl.b |
. . . 4
⊢ 𝐵 = (Base‘𝑆) |
5 | | psrlidm.t |
. . . . 5
⊢ · =
(.r‘𝑆) |
6 | | psrring.r |
. . . . 5
⊢ (𝜑 → 𝑅 ∈ Ring) |
7 | | psrlidm.x |
. . . . 5
⊢ (𝜑 → 𝑋 ∈ 𝐵) |
8 | | psrring.i |
. . . . . 6
⊢ (𝜑 → 𝐼 ∈ 𝑉) |
9 | | psr1cl.z |
. . . . . 6
⊢ 0 =
(0g‘𝑅) |
10 | | psr1cl.o |
. . . . . 6
⊢ 1 =
(1r‘𝑅) |
11 | | psr1cl.u |
. . . . . 6
⊢ 𝑈 = (𝑥 ∈ 𝐷 ↦ if(𝑥 = (𝐼 × {0}), 1 , 0 )) |
12 | 1, 8, 6, 3, 9, 10,
11, 4 | psr1cl 19223 |
. . . . 5
⊢ (𝜑 → 𝑈 ∈ 𝐵) |
13 | 1, 4, 5, 6, 7, 12 | psrmulcl 19209 |
. . . 4
⊢ (𝜑 → (𝑋 · 𝑈) ∈ 𝐵) |
14 | 1, 2, 3, 4, 13 | psrelbas 19200 |
. . 3
⊢ (𝜑 → (𝑋 · 𝑈):𝐷⟶(Base‘𝑅)) |
15 | 14 | ffnd 5959 |
. 2
⊢ (𝜑 → (𝑋 · 𝑈) Fn 𝐷) |
16 | 1, 2, 3, 4, 7 | psrelbas 19200 |
. . 3
⊢ (𝜑 → 𝑋:𝐷⟶(Base‘𝑅)) |
17 | 16 | ffnd 5959 |
. 2
⊢ (𝜑 → 𝑋 Fn 𝐷) |
18 | | eqid 2610 |
. . . 4
⊢
(.r‘𝑅) = (.r‘𝑅) |
19 | 7 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑋 ∈ 𝐵) |
20 | 12 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑈 ∈ 𝐵) |
21 | | simpr 476 |
. . . 4
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑦 ∈ 𝐷) |
22 | 1, 4, 18, 5, 3, 19, 20, 21 | psrmulval 19207 |
. . 3
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑋 · 𝑈)‘𝑦) = (𝑅 Σg (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))))) |
23 | 8 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝐼 ∈ 𝑉) |
24 | 3 | psrbagf 19186 |
. . . . . . . . . 10
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑦 ∈ 𝐷) → 𝑦:𝐼⟶ℕ0) |
25 | 8, 24 | sylan 487 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑦:𝐼⟶ℕ0) |
26 | | nn0re 11178 |
. . . . . . . . . . 11
⊢ (𝑧 ∈ ℕ0
→ 𝑧 ∈
ℝ) |
27 | 26 | leidd 10473 |
. . . . . . . . . 10
⊢ (𝑧 ∈ ℕ0
→ 𝑧 ≤ 𝑧) |
28 | 27 | adantl 481 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ℕ0) → 𝑧 ≤ 𝑧) |
29 | 23, 25, 28 | caofref 6821 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑦 ∘𝑟 ≤ 𝑦) |
30 | | breq1 4586 |
. . . . . . . . 9
⊢ (𝑔 = 𝑦 → (𝑔 ∘𝑟 ≤ 𝑦 ↔ 𝑦 ∘𝑟 ≤ 𝑦)) |
31 | 30 | elrab 3331 |
. . . . . . . 8
⊢ (𝑦 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↔ (𝑦 ∈ 𝐷 ∧ 𝑦 ∘𝑟 ≤ 𝑦)) |
32 | 21, 29, 31 | sylanbrc 695 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑦 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) |
33 | 32 | snssd 4281 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → {𝑦} ⊆ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) |
34 | 33 | resmptd 5371 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ↾ {𝑦}) = (𝑧 ∈ {𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))))) |
35 | 34 | oveq2d 6565 |
. . . 4
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑅 Σg ((𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ↾ {𝑦})) = (𝑅 Σg (𝑧 ∈ {𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))))) |
36 | | ringcmn 18404 |
. . . . . . 7
⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd) |
37 | 6, 36 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝑅 ∈ CMnd) |
38 | 37 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑅 ∈ CMnd) |
39 | | ovex 6577 |
. . . . . . 7
⊢
(ℕ0 ↑𝑚 𝐼) ∈ V |
40 | 3, 39 | rab2ex 4743 |
. . . . . 6
⊢ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∈ V |
41 | 40 | a1i 11 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∈ V) |
42 | 6 | ad2antrr 758 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑅 ∈ Ring) |
43 | 16 | ad2antrr 758 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑋:𝐷⟶(Base‘𝑅)) |
44 | | simpr 476 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) |
45 | | breq1 4586 |
. . . . . . . . . . 11
⊢ (𝑔 = 𝑧 → (𝑔 ∘𝑟 ≤ 𝑦 ↔ 𝑧 ∘𝑟 ≤ 𝑦)) |
46 | 45 | elrab 3331 |
. . . . . . . . . 10
⊢ (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↔ (𝑧 ∈ 𝐷 ∧ 𝑧 ∘𝑟 ≤ 𝑦)) |
47 | 44, 46 | sylib 207 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → (𝑧 ∈ 𝐷 ∧ 𝑧 ∘𝑟 ≤ 𝑦)) |
48 | 47 | simpld 474 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑧 ∈ 𝐷) |
49 | 43, 48 | ffvelrnd 6268 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → (𝑋‘𝑧) ∈ (Base‘𝑅)) |
50 | 1, 2, 3, 4, 20 | psrelbas 19200 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑈:𝐷⟶(Base‘𝑅)) |
51 | 50 | adantr 480 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑈:𝐷⟶(Base‘𝑅)) |
52 | 8 | ad2antrr 758 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝐼 ∈ 𝑉) |
53 | 21 | adantr 480 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑦 ∈ 𝐷) |
54 | 3 | psrbagf 19186 |
. . . . . . . . . . 11
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑧 ∈ 𝐷) → 𝑧:𝐼⟶ℕ0) |
55 | 52, 48, 54 | syl2anc 691 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑧:𝐼⟶ℕ0) |
56 | 47 | simprd 478 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑧 ∘𝑟 ≤ 𝑦) |
57 | 3 | psrbagcon 19192 |
. . . . . . . . . 10
⊢ ((𝐼 ∈ 𝑉 ∧ (𝑦 ∈ 𝐷 ∧ 𝑧:𝐼⟶ℕ0 ∧ 𝑧 ∘𝑟
≤ 𝑦)) → ((𝑦 ∘𝑓
− 𝑧) ∈ 𝐷 ∧ (𝑦 ∘𝑓 − 𝑧) ∘𝑟
≤ 𝑦)) |
58 | 52, 53, 55, 56, 57 | syl13anc 1320 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → ((𝑦 ∘𝑓 − 𝑧) ∈ 𝐷 ∧ (𝑦 ∘𝑓 − 𝑧) ∘𝑟
≤ 𝑦)) |
59 | 58 | simpld 474 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → (𝑦 ∘𝑓 − 𝑧) ∈ 𝐷) |
60 | 51, 59 | ffvelrnd 6268 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → (𝑈‘(𝑦 ∘𝑓 − 𝑧)) ∈ (Base‘𝑅)) |
61 | 2, 18 | ringcl 18384 |
. . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑧) ∈ (Base‘𝑅) ∧ (𝑈‘(𝑦 ∘𝑓 − 𝑧)) ∈ (Base‘𝑅)) → ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))) ∈ (Base‘𝑅)) |
62 | 42, 49, 60, 61 | syl3anc 1318 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))) ∈ (Base‘𝑅)) |
63 | | eqid 2610 |
. . . . . 6
⊢ (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) = (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) |
64 | 62, 63 | fmptd 6292 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))):{𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}⟶(Base‘𝑅)) |
65 | | eldifi 3694 |
. . . . . . . . . . 11
⊢ (𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦}) → 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) |
66 | 65, 59 | sylan2 490 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → (𝑦 ∘𝑓 − 𝑧) ∈ 𝐷) |
67 | | eqeq1 2614 |
. . . . . . . . . . . 12
⊢ (𝑥 = (𝑦 ∘𝑓 − 𝑧) → (𝑥 = (𝐼 × {0}) ↔ (𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}))) |
68 | 67 | ifbid 4058 |
. . . . . . . . . . 11
⊢ (𝑥 = (𝑦 ∘𝑓 − 𝑧) → if(𝑥 = (𝐼 × {0}), 1 , 0 ) = if((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}), 1 , 0 )) |
69 | | fvex 6113 |
. . . . . . . . . . . . 13
⊢
(1r‘𝑅) ∈ V |
70 | 10, 69 | eqeltri 2684 |
. . . . . . . . . . . 12
⊢ 1 ∈
V |
71 | | fvex 6113 |
. . . . . . . . . . . . 13
⊢
(0g‘𝑅) ∈ V |
72 | 9, 71 | eqeltri 2684 |
. . . . . . . . . . . 12
⊢ 0 ∈
V |
73 | 70, 72 | ifex 4106 |
. . . . . . . . . . 11
⊢ if((𝑦 ∘𝑓
− 𝑧) = (𝐼 × {0}), 1 , 0 ) ∈
V |
74 | 68, 11, 73 | fvmpt 6191 |
. . . . . . . . . 10
⊢ ((𝑦 ∘𝑓
− 𝑧) ∈ 𝐷 → (𝑈‘(𝑦 ∘𝑓 − 𝑧)) = if((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}), 1 , 0 )) |
75 | 66, 74 | syl 17 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → (𝑈‘(𝑦 ∘𝑓 − 𝑧)) = if((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}), 1 , 0 )) |
76 | | eldifsni 4261 |
. . . . . . . . . . . . 13
⊢ (𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦}) → 𝑧 ≠ 𝑦) |
77 | 76 | adantl 481 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → 𝑧 ≠ 𝑦) |
78 | 77 | necomd 2837 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → 𝑦 ≠ 𝑧) |
79 | | nn0sscn 11174 |
. . . . . . . . . . . . . . . 16
⊢
ℕ0 ⊆ ℂ |
80 | | fss 5969 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑦:𝐼⟶ℕ0 ∧
ℕ0 ⊆ ℂ) → 𝑦:𝐼⟶ℂ) |
81 | 25, 79, 80 | sylancl 693 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑦:𝐼⟶ℂ) |
82 | 81 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑦:𝐼⟶ℂ) |
83 | | fss 5969 |
. . . . . . . . . . . . . . 15
⊢ ((𝑧:𝐼⟶ℕ0 ∧
ℕ0 ⊆ ℂ) → 𝑧:𝐼⟶ℂ) |
84 | 55, 79, 83 | sylancl 693 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → 𝑧:𝐼⟶ℂ) |
85 | | ofsubeq0 10894 |
. . . . . . . . . . . . . 14
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑦:𝐼⟶ℂ ∧ 𝑧:𝐼⟶ℂ) → ((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}) ↔ 𝑦 = 𝑧)) |
86 | 52, 82, 84, 85 | syl3anc 1318 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → ((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}) ↔ 𝑦 = 𝑧)) |
87 | 65, 86 | sylan2 490 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → ((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}) ↔ 𝑦 = 𝑧)) |
88 | 87 | necon3bbid 2819 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → (¬ (𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}) ↔ 𝑦 ≠ 𝑧)) |
89 | 78, 88 | mpbird 246 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → ¬ (𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0})) |
90 | 89 | iffalsed 4047 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → if((𝑦 ∘𝑓 − 𝑧) = (𝐼 × {0}), 1 , 0 ) = 0 ) |
91 | 75, 90 | eqtrd 2644 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → (𝑈‘(𝑦 ∘𝑓 − 𝑧)) = 0 ) |
92 | 91 | oveq2d 6565 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))) = ((𝑋‘𝑧)(.r‘𝑅) 0 )) |
93 | 2, 18, 9 | ringrz 18411 |
. . . . . . . . 9
⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑧) ∈ (Base‘𝑅)) → ((𝑋‘𝑧)(.r‘𝑅) 0 ) = 0 ) |
94 | 42, 49, 93 | syl2anc 691 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦}) → ((𝑋‘𝑧)(.r‘𝑅) 0 ) = 0 ) |
95 | 65, 94 | sylan2 490 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → ((𝑋‘𝑧)(.r‘𝑅) 0 ) = 0 ) |
96 | 92, 95 | eqtrd 2644 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑦 ∈ 𝐷) ∧ 𝑧 ∈ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∖ {𝑦})) → ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))) = 0 ) |
97 | 96, 41 | suppss2 7216 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) supp 0 ) ⊆ {𝑦}) |
98 | | mptexg 6389 |
. . . . . . 7
⊢ ({𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ∈ V → (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ∈ V) |
99 | 41, 98 | syl 17 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ∈ V) |
100 | | funmpt 5840 |
. . . . . . 7
⊢ Fun
(𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) |
101 | 100 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → Fun (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))))) |
102 | 72 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 0 ∈ V) |
103 | | snfi 7923 |
. . . . . . 7
⊢ {𝑦} ∈ Fin |
104 | 103 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → {𝑦} ∈ Fin) |
105 | | suppssfifsupp 8173 |
. . . . . 6
⊢ ((((𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ∈ V ∧ Fun (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ∧ 0 ∈ V) ∧ ({𝑦} ∈ Fin ∧ ((𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) supp 0 ) ⊆ {𝑦})) → (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) finSupp 0 ) |
106 | 99, 101, 102, 104, 97, 105 | syl32anc 1326 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) finSupp 0 ) |
107 | 2, 9, 38, 41, 64, 97, 106 | gsumres 18137 |
. . . 4
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑅 Σg ((𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))) ↾ {𝑦})) = (𝑅 Σg (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧)))))) |
108 | 6 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑅 ∈ Ring) |
109 | | ringmnd 18379 |
. . . . . 6
⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd) |
110 | 108, 109 | syl 17 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → 𝑅 ∈ Mnd) |
111 | | eqid 2610 |
. . . . . . . . . . 11
⊢ 𝑦 = 𝑦 |
112 | | ofsubeq0 10894 |
. . . . . . . . . . . 12
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑦:𝐼⟶ℂ ∧ 𝑦:𝐼⟶ℂ) → ((𝑦 ∘𝑓 − 𝑦) = (𝐼 × {0}) ↔ 𝑦 = 𝑦)) |
113 | 23, 81, 81, 112 | syl3anc 1318 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑦 ∘𝑓 − 𝑦) = (𝐼 × {0}) ↔ 𝑦 = 𝑦)) |
114 | 111, 113 | mpbiri 247 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑦 ∘𝑓 − 𝑦) = (𝐼 × {0})) |
115 | 114 | fveq2d 6107 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑈‘(𝑦 ∘𝑓 − 𝑦)) = (𝑈‘(𝐼 × {0}))) |
116 | | fconstmpt 5085 |
. . . . . . . . . . . 12
⊢ (𝐼 × {0}) = (𝑤 ∈ 𝐼 ↦ 0) |
117 | 3 | fczpsrbag 19188 |
. . . . . . . . . . . . 13
⊢ (𝐼 ∈ 𝑉 → (𝑤 ∈ 𝐼 ↦ 0) ∈ 𝐷) |
118 | 8, 117 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑤 ∈ 𝐼 ↦ 0) ∈ 𝐷) |
119 | 116, 118 | syl5eqel 2692 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐼 × {0}) ∈ 𝐷) |
120 | 119 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝐼 × {0}) ∈ 𝐷) |
121 | | iftrue 4042 |
. . . . . . . . . . 11
⊢ (𝑥 = (𝐼 × {0}) → if(𝑥 = (𝐼 × {0}), 1 , 0 ) = 1 ) |
122 | 121, 11, 70 | fvmpt 6191 |
. . . . . . . . . 10
⊢ ((𝐼 × {0}) ∈ 𝐷 → (𝑈‘(𝐼 × {0})) = 1 ) |
123 | 120, 122 | syl 17 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑈‘(𝐼 × {0})) = 1 ) |
124 | 115, 123 | eqtrd 2644 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑈‘(𝑦 ∘𝑓 − 𝑦)) = 1 ) |
125 | 124 | oveq2d 6565 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦))) = ((𝑋‘𝑦)(.r‘𝑅) 1 )) |
126 | 16 | ffvelrnda 6267 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑋‘𝑦) ∈ (Base‘𝑅)) |
127 | 2, 18, 10 | ringridm 18395 |
. . . . . . . 8
⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑦) ∈ (Base‘𝑅)) → ((𝑋‘𝑦)(.r‘𝑅) 1 ) = (𝑋‘𝑦)) |
128 | 108, 126,
127 | syl2anc 691 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑋‘𝑦)(.r‘𝑅) 1 ) = (𝑋‘𝑦)) |
129 | 125, 128 | eqtrd 2644 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦))) = (𝑋‘𝑦)) |
130 | 129, 126 | eqeltrd 2688 |
. . . . 5
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦))) ∈ (Base‘𝑅)) |
131 | | fveq2 6103 |
. . . . . . 7
⊢ (𝑧 = 𝑦 → (𝑋‘𝑧) = (𝑋‘𝑦)) |
132 | | oveq2 6557 |
. . . . . . . 8
⊢ (𝑧 = 𝑦 → (𝑦 ∘𝑓 − 𝑧) = (𝑦 ∘𝑓 − 𝑦)) |
133 | 132 | fveq2d 6107 |
. . . . . . 7
⊢ (𝑧 = 𝑦 → (𝑈‘(𝑦 ∘𝑓 − 𝑧)) = (𝑈‘(𝑦 ∘𝑓 − 𝑦))) |
134 | 131, 133 | oveq12d 6567 |
. . . . . 6
⊢ (𝑧 = 𝑦 → ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))) = ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦)))) |
135 | 2, 134 | gsumsn 18177 |
. . . . 5
⊢ ((𝑅 ∈ Mnd ∧ 𝑦 ∈ 𝐷 ∧ ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦))) ∈ (Base‘𝑅)) → (𝑅 Σg (𝑧 ∈ {𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))))) = ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦)))) |
136 | 110, 21, 130, 135 | syl3anc 1318 |
. . . 4
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑅 Σg (𝑧 ∈ {𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))))) = ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦)))) |
137 | 35, 107, 136 | 3eqtr3d 2652 |
. . 3
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → (𝑅 Σg (𝑧 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘𝑟 ≤ 𝑦} ↦ ((𝑋‘𝑧)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑧))))) = ((𝑋‘𝑦)(.r‘𝑅)(𝑈‘(𝑦 ∘𝑓 − 𝑦)))) |
138 | 22, 137, 129 | 3eqtrd 2648 |
. 2
⊢ ((𝜑 ∧ 𝑦 ∈ 𝐷) → ((𝑋 · 𝑈)‘𝑦) = (𝑋‘𝑦)) |
139 | 15, 17, 138 | eqfnfvd 6222 |
1
⊢ (𝜑 → (𝑋 · 𝑈) = 𝑋) |