Step | Hyp | Ref
| Expression |
1 | | eqid 2823 |
. . . . 5
⊢
(Base‘𝑅) =
(Base‘𝑅) |
2 | | eqid 2823 |
. . . . 5
⊢
(0g‘𝑅) = (0g‘𝑅) |
3 | | psrring.r |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ Ring) |
4 | | ringcmn 19333 |
. . . . . . 7
⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd) |
5 | 3, 4 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝑅 ∈ CMnd) |
6 | 5 | adantr 483 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑅 ∈ CMnd) |
7 | | psrring.i |
. . . . . 6
⊢ (𝜑 → 𝐼 ∈ 𝑉) |
8 | | psrass.d |
. . . . . . 7
⊢ 𝐷 = {𝑓 ∈ (ℕ0
↑m 𝐼)
∣ (◡𝑓 “ ℕ) ∈
Fin} |
9 | 8 | psrbaglefi 20154 |
. . . . . 6
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ 𝐷) → {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ∈ Fin) |
10 | 7, 9 | sylan 582 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ∈ Fin) |
11 | 3 | ad2antrr 724 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑅 ∈ Ring) |
12 | | psrring.s |
. . . . . . . . . 10
⊢ 𝑆 = (𝐼 mPwSer 𝑅) |
13 | | psrass.b |
. . . . . . . . . 10
⊢ 𝐵 = (Base‘𝑆) |
14 | | psrass.x |
. . . . . . . . . 10
⊢ (𝜑 → 𝑋 ∈ 𝐵) |
15 | 12, 1, 8, 13, 14 | psrelbas 20161 |
. . . . . . . . 9
⊢ (𝜑 → 𝑋:𝐷⟶(Base‘𝑅)) |
16 | 15 | ad2antrr 724 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑋:𝐷⟶(Base‘𝑅)) |
17 | | simpr 487 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
18 | | breq1 5071 |
. . . . . . . . . . 11
⊢ (𝑔 = 𝑘 → (𝑔 ∘r ≤ 𝑥 ↔ 𝑘 ∘r ≤ 𝑥)) |
19 | 18 | elrab 3682 |
. . . . . . . . . 10
⊢ (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↔ (𝑘 ∈ 𝐷 ∧ 𝑘 ∘r ≤ 𝑥)) |
20 | 17, 19 | sylib 220 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑘 ∈ 𝐷 ∧ 𝑘 ∘r ≤ 𝑥)) |
21 | 20 | simpld 497 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑘 ∈ 𝐷) |
22 | 16, 21 | ffvelrnd 6854 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑋‘𝑘) ∈ (Base‘𝑅)) |
23 | | psrass.y |
. . . . . . . . . 10
⊢ (𝜑 → 𝑌 ∈ 𝐵) |
24 | 12, 1, 8, 13, 23 | psrelbas 20161 |
. . . . . . . . 9
⊢ (𝜑 → 𝑌:𝐷⟶(Base‘𝑅)) |
25 | 24 | ad2antrr 724 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑌:𝐷⟶(Base‘𝑅)) |
26 | 7 | ad2antrr 724 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝐼 ∈ 𝑉) |
27 | | simplr 767 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐷) |
28 | 8 | psrbagf 20147 |
. . . . . . . . . . 11
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑘 ∈ 𝐷) → 𝑘:𝐼⟶ℕ0) |
29 | 26, 21, 28 | syl2anc 586 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑘:𝐼⟶ℕ0) |
30 | 20 | simprd 498 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑘 ∘r ≤ 𝑥) |
31 | 8 | psrbagcon 20153 |
. . . . . . . . . 10
⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ 𝐷 ∧ 𝑘:𝐼⟶ℕ0 ∧ 𝑘 ∘r ≤ 𝑥)) → ((𝑥 ∘f − 𝑘) ∈ 𝐷 ∧ (𝑥 ∘f − 𝑘) ∘r ≤ 𝑥)) |
32 | 26, 27, 29, 30, 31 | syl13anc 1368 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → ((𝑥 ∘f − 𝑘) ∈ 𝐷 ∧ (𝑥 ∘f − 𝑘) ∘r ≤ 𝑥)) |
33 | 32 | simpld 497 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑘) ∈ 𝐷) |
34 | 25, 33 | ffvelrnd 6854 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑌‘(𝑥 ∘f − 𝑘)) ∈ (Base‘𝑅)) |
35 | | eqid 2823 |
. . . . . . . 8
⊢
(.r‘𝑅) = (.r‘𝑅) |
36 | 1, 35 | ringcl 19313 |
. . . . . . 7
⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑘) ∈ (Base‘𝑅) ∧ (𝑌‘(𝑥 ∘f − 𝑘)) ∈ (Base‘𝑅)) → ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))) ∈ (Base‘𝑅)) |
37 | 11, 22, 34, 36 | syl3anc 1367 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))) ∈ (Base‘𝑅)) |
38 | 37 | fmpttd 6881 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))):{𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}⟶(Base‘𝑅)) |
39 | | ovex 7191 |
. . . . . . . . . 10
⊢
(ℕ0 ↑m 𝐼) ∈ V |
40 | 8, 39 | rabex2 5239 |
. . . . . . . . 9
⊢ 𝐷 ∈ V |
41 | 40 | a1i 11 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝐷 ∈ V) |
42 | | rabexg 5236 |
. . . . . . . 8
⊢ (𝐷 ∈ V → {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ∈ V) |
43 | 41, 42 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ∈ V) |
44 | 43 | mptexd 6989 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∈ V) |
45 | | funmpt 6395 |
. . . . . . 7
⊢ Fun
(𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) |
46 | 45 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → Fun (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))))) |
47 | | fvexd 6687 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (0g‘𝑅) ∈ V) |
48 | | suppssdm 7845 |
. . . . . . . 8
⊢ ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) supp
(0g‘𝑅))
⊆ dom (𝑘 ∈
{𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) |
49 | | eqid 2823 |
. . . . . . . . 9
⊢ (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) = (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) |
50 | 49 | dmmptss 6097 |
. . . . . . . 8
⊢ dom
(𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ⊆ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} |
51 | 48, 50 | sstri 3978 |
. . . . . . 7
⊢ ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) supp
(0g‘𝑅))
⊆ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} |
52 | 51 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) supp
(0g‘𝑅))
⊆ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
53 | | suppssfifsupp 8850 |
. . . . . 6
⊢ ((((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∈ V ∧ Fun (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∧
(0g‘𝑅)
∈ V) ∧ ({𝑔 ∈
𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ∈ Fin ∧ ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) supp
(0g‘𝑅))
⊆ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥})) → (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) finSupp
(0g‘𝑅)) |
54 | 44, 46, 47, 10, 52, 53 | syl32anc 1374 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) finSupp
(0g‘𝑅)) |
55 | | eqid 2823 |
. . . . . . 7
⊢ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} = {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} |
56 | 8, 55 | psrbagconf1o 20156 |
. . . . . 6
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ 𝐷) → (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗)):{𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}–1-1-onto→{𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
57 | 7, 56 | sylan 582 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗)):{𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}–1-1-onto→{𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
58 | 1, 2, 6, 10, 38, 54, 57 | gsumf1o 19038 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑅 Σg (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))))) = (𝑅 Σg ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∘ (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗))))) |
59 | 7 | ad2antrr 724 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝐼 ∈ 𝑉) |
60 | | simplr 767 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑥 ∈ 𝐷) |
61 | | simpr 487 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
62 | 8, 55 | psrbagconcl 20155 |
. . . . . . . 8
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ 𝐷 ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑗) ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
63 | 59, 60, 61, 62 | syl3anc 1367 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑗) ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) |
64 | | eqidd 2824 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗)) = (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗))) |
65 | | eqidd 2824 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) = (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))))) |
66 | | fveq2 6672 |
. . . . . . . 8
⊢ (𝑘 = (𝑥 ∘f − 𝑗) → (𝑋‘𝑘) = (𝑋‘(𝑥 ∘f − 𝑗))) |
67 | | oveq2 7166 |
. . . . . . . . 9
⊢ (𝑘 = (𝑥 ∘f − 𝑗) → (𝑥 ∘f − 𝑘) = (𝑥 ∘f − (𝑥 ∘f −
𝑗))) |
68 | 67 | fveq2d 6676 |
. . . . . . . 8
⊢ (𝑘 = (𝑥 ∘f − 𝑗) → (𝑌‘(𝑥 ∘f − 𝑘)) = (𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗)))) |
69 | 66, 68 | oveq12d 7176 |
. . . . . . 7
⊢ (𝑘 = (𝑥 ∘f − 𝑗) → ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))) = ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗))))) |
70 | 63, 64, 65, 69 | fmptco 6893 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∘ (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗))) = (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗)))))) |
71 | 8 | psrbagf 20147 |
. . . . . . . . . . . . . . . 16
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ 𝐷) → 𝑥:𝐼⟶ℕ0) |
72 | 7, 71 | sylan 582 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → 𝑥:𝐼⟶ℕ0) |
73 | 72 | adantr 483 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑥:𝐼⟶ℕ0) |
74 | 73 | ffvelrnda 6853 |
. . . . . . . . . . . . 13
⊢ ((((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) ∧ 𝑧 ∈ 𝐼) → (𝑥‘𝑧) ∈
ℕ0) |
75 | | breq1 5071 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑔 = 𝑗 → (𝑔 ∘r ≤ 𝑥 ↔ 𝑗 ∘r ≤ 𝑥)) |
76 | 75 | elrab 3682 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↔ (𝑗 ∈ 𝐷 ∧ 𝑗 ∘r ≤ 𝑥)) |
77 | 61, 76 | sylib 220 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑗 ∈ 𝐷 ∧ 𝑗 ∘r ≤ 𝑥)) |
78 | 77 | simpld 497 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑗 ∈ 𝐷) |
79 | 8 | psrbagf 20147 |
. . . . . . . . . . . . . . 15
⊢ ((𝐼 ∈ 𝑉 ∧ 𝑗 ∈ 𝐷) → 𝑗:𝐼⟶ℕ0) |
80 | 59, 78, 79 | syl2anc 586 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑗:𝐼⟶ℕ0) |
81 | 80 | ffvelrnda 6853 |
. . . . . . . . . . . . 13
⊢ ((((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) ∧ 𝑧 ∈ 𝐼) → (𝑗‘𝑧) ∈
ℕ0) |
82 | | nn0cn 11910 |
. . . . . . . . . . . . . 14
⊢ ((𝑥‘𝑧) ∈ ℕ0 → (𝑥‘𝑧) ∈ ℂ) |
83 | | nn0cn 11910 |
. . . . . . . . . . . . . 14
⊢ ((𝑗‘𝑧) ∈ ℕ0 → (𝑗‘𝑧) ∈ ℂ) |
84 | | nncan 10917 |
. . . . . . . . . . . . . 14
⊢ (((𝑥‘𝑧) ∈ ℂ ∧ (𝑗‘𝑧) ∈ ℂ) → ((𝑥‘𝑧) − ((𝑥‘𝑧) − (𝑗‘𝑧))) = (𝑗‘𝑧)) |
85 | 82, 83, 84 | syl2an 597 |
. . . . . . . . . . . . 13
⊢ (((𝑥‘𝑧) ∈ ℕ0 ∧ (𝑗‘𝑧) ∈ ℕ0) → ((𝑥‘𝑧) − ((𝑥‘𝑧) − (𝑗‘𝑧))) = (𝑗‘𝑧)) |
86 | 74, 81, 85 | syl2anc 586 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) ∧ 𝑧 ∈ 𝐼) → ((𝑥‘𝑧) − ((𝑥‘𝑧) − (𝑗‘𝑧))) = (𝑗‘𝑧)) |
87 | 86 | mpteq2dva 5163 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑧 ∈ 𝐼 ↦ ((𝑥‘𝑧) − ((𝑥‘𝑧) − (𝑗‘𝑧)))) = (𝑧 ∈ 𝐼 ↦ (𝑗‘𝑧))) |
88 | | ovex 7191 |
. . . . . . . . . . . . 13
⊢ ((𝑥‘𝑧) − (𝑗‘𝑧)) ∈ V |
89 | 88 | a1i 11 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) ∧ 𝑧 ∈ 𝐼) → ((𝑥‘𝑧) − (𝑗‘𝑧)) ∈ V) |
90 | 73 | feqmptd 6735 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑥 = (𝑧 ∈ 𝐼 ↦ (𝑥‘𝑧))) |
91 | 80 | feqmptd 6735 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑗 = (𝑧 ∈ 𝐼 ↦ (𝑗‘𝑧))) |
92 | 59, 74, 81, 90, 91 | offval2 7428 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑗) = (𝑧 ∈ 𝐼 ↦ ((𝑥‘𝑧) − (𝑗‘𝑧)))) |
93 | 59, 74, 89, 90, 92 | offval2 7428 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − (𝑥 ∘f −
𝑗)) = (𝑧 ∈ 𝐼 ↦ ((𝑥‘𝑧) − ((𝑥‘𝑧) − (𝑗‘𝑧))))) |
94 | 87, 93, 91 | 3eqtr4d 2868 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − (𝑥 ∘f −
𝑗)) = 𝑗) |
95 | 94 | fveq2d 6676 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗))) = (𝑌‘𝑗)) |
96 | 95 | oveq2d 7174 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗)))) = ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘𝑗))) |
97 | | psrcom.c |
. . . . . . . . . 10
⊢ (𝜑 → 𝑅 ∈ CRing) |
98 | 97 | ad2antrr 724 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑅 ∈ CRing) |
99 | 15 | ad2antrr 724 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑋:𝐷⟶(Base‘𝑅)) |
100 | 77 | simprd 498 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑗 ∘r ≤ 𝑥) |
101 | 8 | psrbagcon 20153 |
. . . . . . . . . . . 12
⊢ ((𝐼 ∈ 𝑉 ∧ (𝑥 ∈ 𝐷 ∧ 𝑗:𝐼⟶ℕ0 ∧ 𝑗 ∘r ≤ 𝑥)) → ((𝑥 ∘f − 𝑗) ∈ 𝐷 ∧ (𝑥 ∘f − 𝑗) ∘r ≤ 𝑥)) |
102 | 59, 60, 80, 100, 101 | syl13anc 1368 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → ((𝑥 ∘f − 𝑗) ∈ 𝐷 ∧ (𝑥 ∘f − 𝑗) ∘r ≤ 𝑥)) |
103 | 102 | simpld 497 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑥 ∘f − 𝑗) ∈ 𝐷) |
104 | 99, 103 | ffvelrnd 6854 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑋‘(𝑥 ∘f − 𝑗)) ∈ (Base‘𝑅)) |
105 | 24 | ad2antrr 724 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → 𝑌:𝐷⟶(Base‘𝑅)) |
106 | 105, 78 | ffvelrnd 6854 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → (𝑌‘𝑗) ∈ (Base‘𝑅)) |
107 | 1, 35 | crngcom 19314 |
. . . . . . . . 9
⊢ ((𝑅 ∈ CRing ∧ (𝑋‘(𝑥 ∘f − 𝑗)) ∈ (Base‘𝑅) ∧ (𝑌‘𝑗) ∈ (Base‘𝑅)) → ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘𝑗)) = ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗)))) |
108 | 98, 104, 106, 107 | syl3anc 1367 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘𝑗)) = ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗)))) |
109 | 96, 108 | eqtrd 2858 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑥 ∈ 𝐷) ∧ 𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥}) → ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗)))) = ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗)))) |
110 | 109 | mpteq2dva 5163 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘(𝑥 ∘f − 𝑗))(.r‘𝑅)(𝑌‘(𝑥 ∘f − (𝑥 ∘f −
𝑗))))) = (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗))))) |
111 | 70, 110 | eqtrd 2858 |
. . . . 5
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∘ (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗))) = (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗))))) |
112 | 111 | oveq2d 7174 |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑅 Σg ((𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))) ∘ (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ (𝑥 ∘f − 𝑗)))) = (𝑅 Σg (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗)))))) |
113 | 58, 112 | eqtrd 2858 |
. . 3
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐷) → (𝑅 Σg (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))))) = (𝑅 Σg (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗)))))) |
114 | 113 | mpteq2dva 5163 |
. 2
⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ (𝑅 Σg (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘)))))) = (𝑥 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗))))))) |
115 | | psrass.t |
. . 3
⊢ × =
(.r‘𝑆) |
116 | 12, 13, 35, 115, 8, 14, 23 | psrmulfval 20167 |
. 2
⊢ (𝜑 → (𝑋 × 𝑌) = (𝑥 ∈ 𝐷 ↦ (𝑅 Σg (𝑘 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑋‘𝑘)(.r‘𝑅)(𝑌‘(𝑥 ∘f − 𝑘))))))) |
117 | 12, 13, 35, 115, 8, 23, 14 | psrmulfval 20167 |
. 2
⊢ (𝜑 → (𝑌 × 𝑋) = (𝑥 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑔 ∈ 𝐷 ∣ 𝑔 ∘r ≤ 𝑥} ↦ ((𝑌‘𝑗)(.r‘𝑅)(𝑋‘(𝑥 ∘f − 𝑗))))))) |
118 | 114, 116,
117 | 3eqtr4d 2868 |
1
⊢ (𝜑 → (𝑋 × 𝑌) = (𝑌 × 𝑋)) |