MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mplcoe5 Structured version   Visualization version   GIF version
Theorem mplcoe5 21907
Description: Decompose a monomial into a finite product of powers of variables. Instead of assuming that 𝑅 is a commutative ring (as in mplcoe2 21908), it is sufficient that 𝑅 is a ring and all the variables of the multivariate polynomial commute. (Contributed by AV, 7-Oct-2019.)
Hypotheses
Ref Expression
mplcoe1.p 𝑃 = (𝐼 mPoly 𝑅)
mplcoe1.d 𝐷 = {𝑓 ∈ (β„•0 ↑m 𝐼) ∣ (◑𝑓 β€œ β„•) ∈ Fin}
mplcoe1.z 0 = (0gβ€˜π‘…)
mplcoe1.o 1 = (1rβ€˜π‘…)
mplcoe1.i (πœ‘ β†’ 𝐼 ∈ π‘Š)
mplcoe2.g 𝐺 = (mulGrpβ€˜π‘ƒ)
mplcoe2.m ↑ = (.gβ€˜πΊ)
mplcoe2.v 𝑉 = (𝐼 mVar 𝑅)
mplcoe5.r (πœ‘ β†’ 𝑅 ∈ Ring)
mplcoe5.y (πœ‘ β†’ π‘Œ ∈ 𝐷)
mplcoe5.c (πœ‘ β†’ βˆ€π‘₯ ∈ 𝐼 βˆ€π‘¦ ∈ 𝐼 ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘₯)) = ((π‘‰β€˜π‘₯)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)))
Assertion
Ref Expression
mplcoe5 (πœ‘ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = π‘Œ, 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
Distinct variable groups:   π‘₯,π‘˜, ↑ ,𝑦   1 ,π‘˜   π‘₯,𝑦, 1   π‘˜,𝐺,π‘₯   𝑓,π‘˜,π‘₯,𝑦,𝐼   πœ‘,π‘˜,π‘₯,𝑦   𝑅,𝑓,𝑦   𝐷,π‘˜,π‘₯,𝑦   𝑃,π‘˜,π‘₯   π‘˜,𝑉,π‘₯   0 ,𝑓,π‘˜,π‘₯,𝑦   𝑓,π‘Œ,π‘˜,π‘₯,𝑦   π‘˜,π‘Š,𝑦   𝑦,𝐺   𝑦,𝑉   𝑦, ↑
Allowed substitution hints:   πœ‘(𝑓)   𝐷(𝑓)   𝑃(𝑦,𝑓)   𝑅(π‘₯,π‘˜)   1 (𝑓)   ↑ (𝑓)   𝐺(𝑓)   𝑉(𝑓)   π‘Š(π‘₯,𝑓)
Proof of Theorem mplcoe5
Dummy variables 𝑖 𝑀 𝑧 π‘Ž 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mplcoe5.y . . . . . . . . 9 (πœ‘ β†’ π‘Œ ∈ 𝐷)
2 mplcoe1.i . . . . . . . . . 10 (πœ‘ β†’ 𝐼 ∈ π‘Š)
3 mplcoe1.d . . . . . . . . . . 11 𝐷 = {𝑓 ∈ (β„•0 ↑m 𝐼) ∣ (◑𝑓 β€œ β„•) ∈ Fin}
43psrbag 21781 . . . . . . . . . 10 (𝐼 ∈ π‘Š β†’ (π‘Œ ∈ 𝐷 ↔ (π‘Œ:πΌβŸΆβ„•0 ∧ (β—‘π‘Œ β€œ β„•) ∈ Fin)))
52, 4syl 17 . . . . . . . . 9 (πœ‘ β†’ (π‘Œ ∈ 𝐷 ↔ (π‘Œ:πΌβŸΆβ„•0 ∧ (β—‘π‘Œ β€œ β„•) ∈ Fin)))
61, 5mpbid 231 . . . . . . . 8 (πœ‘ β†’ (π‘Œ:πΌβŸΆβ„•0 ∧ (β—‘π‘Œ β€œ β„•) ∈ Fin))
76simpld 494 . . . . . . 7 (πœ‘ β†’ π‘Œ:πΌβŸΆβ„•0)
87feqmptd 6960 . . . . . 6 (πœ‘ β†’ π‘Œ = (𝑖 ∈ 𝐼 ↦ (π‘Œβ€˜π‘–)))
9 iftrue 4534 . . . . . . . . 9 (𝑖 ∈ (β—‘π‘Œ β€œ β„•) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
109adantl 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ (β—‘π‘Œ β€œ β„•)) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
11 eldif 3958 . . . . . . . . . 10 (𝑖 ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•)) ↔ (𝑖 ∈ 𝐼 ∧ Β¬ 𝑖 ∈ (β—‘π‘Œ β€œ β„•)))
12 fcdmnn0supp 12535 . . . . . . . . . . . . . . 15 ((𝐼 ∈ π‘Š ∧ π‘Œ:πΌβŸΆβ„•0) β†’ (π‘Œ supp 0) = (β—‘π‘Œ β€œ β„•))
132, 7, 12syl2anc 583 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘Œ supp 0) = (β—‘π‘Œ β€œ β„•))
14 eqimss 4040 . . . . . . . . . . . . . 14 ((π‘Œ supp 0) = (β—‘π‘Œ β€œ β„•) β†’ (π‘Œ supp 0) βŠ† (β—‘π‘Œ β€œ β„•))
1513, 14syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ (π‘Œ supp 0) βŠ† (β—‘π‘Œ β€œ β„•))
16 c0ex 11215 . . . . . . . . . . . . . 14 0 ∈ V
1716a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 ∈ V)
187, 15, 2, 17suppssr 8186 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ (π‘Œβ€˜π‘–) = 0)
1918ifeq2d 4548 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), (π‘Œβ€˜π‘–)) = if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0))
20 ifid 4568 . . . . . . . . . . 11 if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), (π‘Œβ€˜π‘–)) = (π‘Œβ€˜π‘–)
2119, 20eqtr3di 2786 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
2211, 21sylan2br 594 . . . . . . . . 9 ((πœ‘ ∧ (𝑖 ∈ 𝐼 ∧ Β¬ 𝑖 ∈ (β—‘π‘Œ β€œ β„•))) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
2322anassrs 467 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ (β—‘π‘Œ β€œ β„•)) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
2410, 23pm2.61dan 810 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ 𝐼) β†’ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
2524mpteq2dva 5248 . . . . . 6 (πœ‘ β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)) = (𝑖 ∈ 𝐼 ↦ (π‘Œβ€˜π‘–)))
268, 25eqtr4d 2774 . . . . 5 (πœ‘ β†’ π‘Œ = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)))
2726eqeq2d 2742 . . . 4 (πœ‘ β†’ (𝑦 = π‘Œ ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0))))
2827ifbid 4551 . . 3 (πœ‘ β†’ if(𝑦 = π‘Œ, 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 ))
2928mpteq2dv 5250 . 2 (πœ‘ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = π‘Œ, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )))
30 cnvimass 6080 . . . . 5 (β—‘π‘Œ β€œ β„•) βŠ† dom π‘Œ
3130, 7fssdm 6737 . . . 4 (πœ‘ β†’ (β—‘π‘Œ β€œ β„•) βŠ† 𝐼)
326simprd 495 . . . . 5 (πœ‘ β†’ (β—‘π‘Œ β€œ β„•) ∈ Fin)
33 sseq1 4007 . . . . . . . 8 (𝑀 = βˆ… β†’ (𝑀 βŠ† 𝐼 ↔ βˆ… βŠ† 𝐼))
34 noel 4330 . . . . . . . . . . . . . . . 16 Β¬ 𝑖 ∈ βˆ…
35 eleq2 2821 . . . . . . . . . . . . . . . 16 (𝑀 = βˆ… β†’ (𝑖 ∈ 𝑀 ↔ 𝑖 ∈ βˆ…))
3634, 35mtbiri 327 . . . . . . . . . . . . . . 15 (𝑀 = βˆ… β†’ Β¬ 𝑖 ∈ 𝑀)
3736iffalsed 4539 . . . . . . . . . . . . . 14 (𝑀 = βˆ… β†’ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0) = 0)
3837mpteq2dv 5250 . . . . . . . . . . . . 13 (𝑀 = βˆ… β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) = (𝑖 ∈ 𝐼 ↦ 0))
39 fconstmpt 5738 . . . . . . . . . . . . 13 (𝐼 Γ— {0}) = (𝑖 ∈ 𝐼 ↦ 0)
4038, 39eqtr4di 2789 . . . . . . . . . . . 12 (𝑀 = βˆ… β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) = (𝐼 Γ— {0}))
4140eqeq2d 2742 . . . . . . . . . . 11 (𝑀 = βˆ… β†’ (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) ↔ 𝑦 = (𝐼 Γ— {0})))
4241ifbid 4551 . . . . . . . . . 10 (𝑀 = βˆ… β†’ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 ) = if(𝑦 = (𝐼 Γ— {0}), 1 , 0 ))
4342mpteq2dv 5250 . . . . . . . . 9 (𝑀 = βˆ… β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )))
44 mpteq1 5241 . . . . . . . . . . . 12 (𝑀 = βˆ… β†’ (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = (π‘˜ ∈ βˆ… ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))
45 mpt0 6692 . . . . . . . . . . . 12 (π‘˜ ∈ βˆ… ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = βˆ…
4644, 45eqtrdi 2787 . . . . . . . . . . 11 (𝑀 = βˆ… β†’ (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = βˆ…)
4746oveq2d 7428 . . . . . . . . . 10 (𝑀 = βˆ… β†’ (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) = (𝐺 Ξ£g βˆ…))
48 mplcoe2.g . . . . . . . . . . . 12 𝐺 = (mulGrpβ€˜π‘ƒ)
49 eqid 2731 . . . . . . . . . . . 12 (1rβ€˜π‘ƒ) = (1rβ€˜π‘ƒ)
5048, 49ringidval 20084 . . . . . . . . . . 11 (1rβ€˜π‘ƒ) = (0gβ€˜πΊ)
5150gsum0 18615 . . . . . . . . . 10 (𝐺 Ξ£g βˆ…) = (1rβ€˜π‘ƒ)
5247, 51eqtrdi 2787 . . . . . . . . 9 (𝑀 = βˆ… β†’ (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) = (1rβ€˜π‘ƒ))
5343, 52eqeq12d 2747 . . . . . . . 8 (𝑀 = βˆ… β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )) = (1rβ€˜π‘ƒ)))
5433, 53imbi12d 344 . . . . . . 7 (𝑀 = βˆ… β†’ ((𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) ↔ (βˆ… βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )) = (1rβ€˜π‘ƒ))))
5554imbi2d 340 . . . . . 6 (𝑀 = βˆ… β†’ ((πœ‘ β†’ (𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))) ↔ (πœ‘ β†’ (βˆ… βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )) = (1rβ€˜π‘ƒ)))))
56 sseq1 4007 . . . . . . . 8 (𝑀 = π‘₯ β†’ (𝑀 βŠ† 𝐼 ↔ π‘₯ βŠ† 𝐼))
57 eleq2 2821 . . . . . . . . . . . . . 14 (𝑀 = π‘₯ β†’ (𝑖 ∈ 𝑀 ↔ 𝑖 ∈ π‘₯))
5857ifbid 4551 . . . . . . . . . . . . 13 (𝑀 = π‘₯ β†’ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0) = if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0))
5958mpteq2dv 5250 . . . . . . . . . . . 12 (𝑀 = π‘₯ β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)))
6059eqeq2d 2742 . . . . . . . . . . 11 (𝑀 = π‘₯ β†’ (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0))))
6160ifbid 4551 . . . . . . . . . 10 (𝑀 = π‘₯ β†’ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))
6261mpteq2dv 5250 . . . . . . . . 9 (𝑀 = π‘₯ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )))
63 mpteq1 5241 . . . . . . . . . 10 (𝑀 = π‘₯ β†’ (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))
6463oveq2d 7428 . . . . . . . . 9 (𝑀 = π‘₯ β†’ (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
6562, 64eqeq12d 2747 . . . . . . . 8 (𝑀 = π‘₯ β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))
6656, 65imbi12d 344 . . . . . . 7 (𝑀 = π‘₯ β†’ ((𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) ↔ (π‘₯ βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
6766imbi2d 340 . . . . . 6 (𝑀 = π‘₯ β†’ ((πœ‘ β†’ (𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))) ↔ (πœ‘ β†’ (π‘₯ βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))))
68 sseq1 4007 . . . . . . . 8 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (𝑀 βŠ† 𝐼 ↔ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼))
69 eleq2 2821 . . . . . . . . . . . . . 14 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (𝑖 ∈ 𝑀 ↔ 𝑖 ∈ (π‘₯ βˆͺ {𝑧})))
7069ifbid 4551 . . . . . . . . . . . . 13 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0) = if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0))
7170mpteq2dv 5250 . . . . . . . . . . . 12 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)))
7271eqeq2d 2742 . . . . . . . . . . 11 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0))))
7372ifbid 4551 . . . . . . . . . 10 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 ))
7473mpteq2dv 5250 . . . . . . . . 9 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )))
75 mpteq1 5241 . . . . . . . . . 10 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))
7675oveq2d 7428 . . . . . . . . 9 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
7774, 76eqeq12d 2747 . . . . . . . 8 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))
7868, 77imbi12d 344 . . . . . . 7 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ ((𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) ↔ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
7978imbi2d 340 . . . . . 6 (𝑀 = (π‘₯ βˆͺ {𝑧}) β†’ ((πœ‘ β†’ (𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))) ↔ (πœ‘ β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))))
80 sseq1 4007 . . . . . . . 8 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (𝑀 βŠ† 𝐼 ↔ (β—‘π‘Œ β€œ β„•) βŠ† 𝐼))
81 eleq2 2821 . . . . . . . . . . . . . 14 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (𝑖 ∈ 𝑀 ↔ 𝑖 ∈ (β—‘π‘Œ β€œ β„•)))
8281ifbid 4551 . . . . . . . . . . . . 13 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0) = if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0))
8382mpteq2dv 5250 . . . . . . . . . . . 12 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)))
8483eqeq2d 2742 . . . . . . . . . . 11 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0))))
8584ifbid 4551 . . . . . . . . . 10 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 ))
8685mpteq2dv 5250 . . . . . . . . 9 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )))
87 mpteq1 5241 . . . . . . . . . 10 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))
8887oveq2d 7428 . . . . . . . . 9 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
8986, 88eqeq12d 2747 . . . . . . . 8 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) ↔ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))
9080, 89imbi12d 344 . . . . . . 7 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ ((𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) ↔ ((β—‘π‘Œ β€œ β„•) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
9190imbi2d 340 . . . . . 6 (𝑀 = (β—‘π‘Œ β€œ β„•) β†’ ((πœ‘ β†’ (𝑀 βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ 𝑀, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝑀 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))) ↔ (πœ‘ β†’ ((β—‘π‘Œ β€œ β„•) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))))
92 mplcoe1.p . . . . . . . . 9 𝑃 = (𝐼 mPoly 𝑅)
93 mplcoe1.z . . . . . . . . 9 0 = (0gβ€˜π‘…)
94 mplcoe1.o . . . . . . . . 9 1 = (1rβ€˜π‘…)
95 mplcoe5.r . . . . . . . . 9 (πœ‘ β†’ 𝑅 ∈ Ring)
9692, 3, 93, 94, 49, 2, 95mpl1 21883 . . . . . . . 8 (πœ‘ β†’ (1rβ€˜π‘ƒ) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )))
9796, 49eqtr3di 2786 . . . . . . 7 (πœ‘ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )) = (1rβ€˜π‘ƒ))
9897a1d 25 . . . . . 6 (πœ‘ β†’ (βˆ… βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝐼 Γ— {0}), 1 , 0 )) = (1rβ€˜π‘ƒ)))
99 ssun1 4172 . . . . . . . . . . 11 π‘₯ βŠ† (π‘₯ βˆͺ {𝑧})
100 sstr2 3989 . . . . . . . . . . 11 (π‘₯ βŠ† (π‘₯ βˆͺ {𝑧}) β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ π‘₯ βŠ† 𝐼))
10199, 100ax-mp 5 . . . . . . . . . 10 ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ π‘₯ βŠ† 𝐼)
102101imim1i 63 . . . . . . . . 9 ((π‘₯ βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))
103 oveq1 7419 . . . . . . . . . . . 12 ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§))) = ((𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§))))
104 eqid 2731 . . . . . . . . . . . . . . 15 (Baseβ€˜π‘ƒ) = (Baseβ€˜π‘ƒ)
1052adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ 𝐼 ∈ π‘Š)
10695adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ 𝑅 ∈ Ring)
1077adantr 480 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ π‘Œ:πΌβŸΆβ„•0)
108107ffvelcdmda 7086 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) β†’ (π‘Œβ€˜π‘–) ∈ β„•0)
109 0nn0 12494 . . . . . . . . . . . . . . . . . 18 0 ∈ β„•0
110 ifcl 4573 . . . . . . . . . . . . . . . . . 18 (((π‘Œβ€˜π‘–) ∈ β„•0 ∧ 0 ∈ β„•0) β†’ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) ∈ β„•0)
111108, 109, 110sylancl 585 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) β†’ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) ∈ β„•0)
112111fmpttd 7116 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)):πΌβŸΆβ„•0)
113 fcdmnn0supp 12535 . . . . . . . . . . . . . . . . . 18 ((𝐼 ∈ π‘Š ∧ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)):πΌβŸΆβ„•0) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) supp 0) = (β—‘(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) β€œ β„•))
114105, 112, 113syl2anc 583 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) supp 0) = (β—‘(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) β€œ β„•))
115 simprll 776 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ π‘₯ ∈ Fin)
116 eldifn 4127 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 ∈ (𝐼 βˆ– π‘₯) β†’ Β¬ 𝑖 ∈ π‘₯)
117116adantl 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ (𝐼 βˆ– π‘₯)) β†’ Β¬ 𝑖 ∈ π‘₯)
118117iffalsed 4539 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ (𝐼 βˆ– π‘₯)) β†’ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) = 0)
119118, 105suppss2 8191 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) supp 0) βŠ† π‘₯)
120115, 119ssfid 9273 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) supp 0) ∈ Fin)
121114, 120eqeltrrd 2833 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (β—‘(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) β€œ β„•) ∈ Fin)
1223psrbag 21781 . . . . . . . . . . . . . . . . 17 (𝐼 ∈ π‘Š β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)):πΌβŸΆβ„•0 ∧ (β—‘(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) β€œ β„•) ∈ Fin)))
123105, 122syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∈ 𝐷 ↔ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)):πΌβŸΆβ„•0 ∧ (β—‘(𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) β€œ β„•) ∈ Fin)))
124112, 121, 123mpbir2and 710 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∈ 𝐷)
125 eqid 2731 . . . . . . . . . . . . . . 15 (.rβ€˜π‘ƒ) = (.rβ€˜π‘ƒ)
126 ssun2 4173 . . . . . . . . . . . . . . . . . . 19 {𝑧} βŠ† (π‘₯ βˆͺ {𝑧})
127 simprr 770 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)
128126, 127sstrid 3993 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ {𝑧} βŠ† 𝐼)
129 vex 3477 . . . . . . . . . . . . . . . . . . 19 𝑧 ∈ V
130129snss 4789 . . . . . . . . . . . . . . . . . 18 (𝑧 ∈ 𝐼 ↔ {𝑧} βŠ† 𝐼)
131128, 130sylibr 233 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ 𝑧 ∈ 𝐼)
132107, 131ffvelcdmd 7087 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (π‘Œβ€˜π‘§) ∈ β„•0)
1333snifpsrbag 21786 . . . . . . . . . . . . . . . 16 ((𝐼 ∈ π‘Š ∧ (π‘Œβ€˜π‘§) ∈ β„•0) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) ∈ 𝐷)
134105, 132, 133syl2anc 583 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) ∈ 𝐷)
13592, 104, 93, 94, 3, 105, 106, 124, 125, 134mplmonmul 21903 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))(.rβ€˜π‘ƒ)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)), 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))), 1 , 0 )))
136 mplcoe2.m . . . . . . . . . . . . . . . 16 ↑ = (.gβ€˜πΊ)
137 mplcoe2.v . . . . . . . . . . . . . . . 16 𝑉 = (𝐼 mVar 𝑅)
13892, 3, 93, 94, 105, 48, 136, 137, 106, 131, 132mplcoe3 21905 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)), 1 , 0 )) = ((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§)))
139138oveq2d 7428 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))(.rβ€˜π‘ƒ)(𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)), 1 , 0 ))) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§))))
140132adantr 480 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) β†’ (π‘Œβ€˜π‘§) ∈ β„•0)
141 ifcl 4573 . . . . . . . . . . . . . . . . . . . 20 (((π‘Œβ€˜π‘§) ∈ β„•0 ∧ 0 ∈ β„•0) β†’ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0) ∈ β„•0)
142140, 109, 141sylancl 585 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) β†’ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0) ∈ β„•0)
143 eqidd 2732 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)))
144 eqidd 2732 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) = (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)))
145105, 111, 142, 143, 144offval2 7694 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))) = (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))))
146108adantr 480 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ (π‘Œβ€˜π‘–) ∈ β„•0)
147146nn0cnd 12541 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ (π‘Œβ€˜π‘–) ∈ β„‚)
148147addlidd 11422 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ (0 + (π‘Œβ€˜π‘–)) = (π‘Œβ€˜π‘–))
149 elsni 4645 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑖 ∈ {𝑧} β†’ 𝑖 = 𝑧)
150149adantl 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ 𝑖 = 𝑧)
151 simprlr 777 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ Β¬ 𝑧 ∈ π‘₯)
152151ad2antrr 723 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ Β¬ 𝑧 ∈ π‘₯)
153150, 152eqneltrd 2852 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ Β¬ 𝑖 ∈ π‘₯)
154153iffalsed 4539 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) = 0)
155150iftrued 4536 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0) = (π‘Œβ€˜π‘§))
156150fveq2d 6895 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ (π‘Œβ€˜π‘–) = (π‘Œβ€˜π‘§))
157155, 156eqtr4d 2774 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0) = (π‘Œβ€˜π‘–))
158154, 157oveq12d 7430 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) = (0 + (π‘Œβ€˜π‘–)))
159 simpr 484 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ 𝑖 ∈ {𝑧})
160126, 159sselid 3980 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ 𝑖 ∈ (π‘₯ βˆͺ {𝑧}))
161160iftrued 4536 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0) = (π‘Œβ€˜π‘–))
162148, 158, 1613eqtr4d 2781 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ 𝑖 ∈ {𝑧}) β†’ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) = if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0))
163111adantr 480 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) ∈ β„•0)
164163nn0cnd 12541 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) ∈ β„‚)
165164addridd 11421 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + 0) = if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0))
166 simpr 484 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ Β¬ 𝑖 ∈ {𝑧})
167 velsn 4644 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 ∈ {𝑧} ↔ 𝑖 = 𝑧)
168166, 167sylnib 328 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ Β¬ 𝑖 = 𝑧)
169168iffalsed 4539 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0) = 0)
170169oveq2d 7428 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) = (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + 0))
171 elun 4148 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑖 ∈ (π‘₯ βˆͺ {𝑧}) ↔ (𝑖 ∈ π‘₯ ∨ 𝑖 ∈ {𝑧}))
172 orcom 867 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑖 ∈ π‘₯ ∨ 𝑖 ∈ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ π‘₯))
173171, 172bitri 275 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 ∈ (π‘₯ βˆͺ {𝑧}) ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ π‘₯))
174 biorf 934 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ 𝑖 ∈ {𝑧} β†’ (𝑖 ∈ π‘₯ ↔ (𝑖 ∈ {𝑧} ∨ 𝑖 ∈ π‘₯)))
175173, 174bitr4id 290 . . . . . . . . . . . . . . . . . . . . . . 23 (Β¬ 𝑖 ∈ {𝑧} β†’ (𝑖 ∈ (π‘₯ βˆͺ {𝑧}) ↔ 𝑖 ∈ π‘₯))
176175adantl 481 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ (𝑖 ∈ (π‘₯ βˆͺ {𝑧}) ↔ 𝑖 ∈ π‘₯))
177176ifbid 4551 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0) = if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0))
178165, 170, 1773eqtr4d 2781 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) ∧ Β¬ 𝑖 ∈ {𝑧}) β†’ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) = if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0))
179162, 178pm2.61dan 810 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ 𝑖 ∈ 𝐼) β†’ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0)) = if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0))
180179mpteq2dva 5248 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑖 ∈ 𝐼 ↦ (if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0) + if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)))
181145, 180eqtrd 2771 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))) = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)))
182181eqeq2d 2742 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))) ↔ 𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0))))
183182ifbid 4551 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))), 1 , 0 ) = if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 ))
184183mpteq2dv 5250 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = ((𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)) ∘f + (𝑖 ∈ 𝐼 ↦ if(𝑖 = 𝑧, (π‘Œβ€˜π‘§), 0))), 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )))
185135, 139, 1843eqtr3rd 2780 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§))))
18648, 104mgpbas 20041 . . . . . . . . . . . . . 14 (Baseβ€˜π‘ƒ) = (Baseβ€˜πΊ)
18748, 125mgpplusg 20039 . . . . . . . . . . . . . 14 (.rβ€˜π‘ƒ) = (+gβ€˜πΊ)
188 eqid 2731 . . . . . . . . . . . . . 14 (Cntzβ€˜πΊ) = (Cntzβ€˜πΊ)
189 eqid 2731 . . . . . . . . . . . . . 14 (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) = (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))
19092mplring 21890 . . . . . . . . . . . . . . . . 17 ((𝐼 ∈ π‘Š ∧ 𝑅 ∈ Ring) β†’ 𝑃 ∈ Ring)
1912, 95, 190syl2anc 583 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑃 ∈ Ring)
19248ringmgp 20140 . . . . . . . . . . . . . . . 16 (𝑃 ∈ Ring β†’ 𝐺 ∈ Mnd)
193191, 192syl 17 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐺 ∈ Mnd)
194193adantr 480 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ 𝐺 ∈ Mnd)
1951adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ π‘Œ ∈ 𝐷)
196 mplcoe5.c . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ βˆ€π‘₯ ∈ 𝐼 βˆ€π‘¦ ∈ 𝐼 ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘₯)) = ((π‘‰β€˜π‘₯)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)))
197 fveq2 6891 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ = π‘Ž β†’ (π‘‰β€˜π‘₯) = (π‘‰β€˜π‘Ž))
198197oveq2d 7428 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = π‘Ž β†’ ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘₯)) = ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)))
199197oveq1d 7427 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = π‘Ž β†’ ((π‘‰β€˜π‘₯)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)))
200198, 199eqeq12d 2747 . . . . . . . . . . . . . . . . . 18 (π‘₯ = π‘Ž β†’ (((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘₯)) = ((π‘‰β€˜π‘₯)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)) ↔ ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘¦))))
201 fveq2 6891 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑏 β†’ (π‘‰β€˜π‘¦) = (π‘‰β€˜π‘))
202201oveq1d 7427 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑏 β†’ ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)))
203201oveq2d 7428 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑏 β†’ ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘)))
204202, 203eqeq12d 2747 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑏 β†’ (((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)) ↔ ((π‘‰β€˜π‘)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘))))
205200, 204cbvral2vw 3237 . . . . . . . . . . . . . . . . 17 (βˆ€π‘₯ ∈ 𝐼 βˆ€π‘¦ ∈ 𝐼 ((π‘‰β€˜π‘¦)(+gβ€˜πΊ)(π‘‰β€˜π‘₯)) = ((π‘‰β€˜π‘₯)(+gβ€˜πΊ)(π‘‰β€˜π‘¦)) ↔ βˆ€π‘Ž ∈ 𝐼 βˆ€π‘ ∈ 𝐼 ((π‘‰β€˜π‘)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘)))
206196, 205sylib 217 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ βˆ€π‘Ž ∈ 𝐼 βˆ€π‘ ∈ 𝐼 ((π‘‰β€˜π‘)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘)))
207206adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ βˆ€π‘Ž ∈ 𝐼 βˆ€π‘ ∈ 𝐼 ((π‘‰β€˜π‘)(+gβ€˜πΊ)(π‘‰β€˜π‘Ž)) = ((π‘‰β€˜π‘Ž)(+gβ€˜πΊ)(π‘‰β€˜π‘)))
20892, 3, 93, 94, 105, 48, 136, 137, 106, 195, 207, 127mplcoe5lem 21906 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ran (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) βŠ† ((Cntzβ€˜πΊ)β€˜ran (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
20999, 127sstrid 3993 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ π‘₯ βŠ† 𝐼)
210209sselda 3982 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ π‘˜ ∈ π‘₯) β†’ π‘˜ ∈ 𝐼)
211193adantr 480 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ 𝐺 ∈ Mnd)
2127ffvelcdmda 7086 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ (π‘Œβ€˜π‘˜) ∈ β„•0)
2132adantr 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ 𝐼 ∈ π‘Š)
21495adantr 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ 𝑅 ∈ Ring)
215 simpr 484 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ π‘˜ ∈ 𝐼)
21692, 137, 104, 213, 214, 215mvrcl 21863 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ (π‘‰β€˜π‘˜) ∈ (Baseβ€˜π‘ƒ))
217186, 136, 211, 212, 216mulgnn0cld 19018 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘˜ ∈ 𝐼) β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) ∈ (Baseβ€˜π‘ƒ))
218217adantlr 712 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ π‘˜ ∈ 𝐼) β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) ∈ (Baseβ€˜π‘ƒ))
219210, 218syldan 590 . . . . . . . . . . . . . 14 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ π‘˜ ∈ π‘₯) β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) ∈ (Baseβ€˜π‘ƒ))
22092, 137, 104, 105, 106, 131mvrcl 21863 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (π‘‰β€˜π‘§) ∈ (Baseβ€˜π‘ƒ))
221186, 136, 194, 132, 220mulgnn0cld 19018 . . . . . . . . . . . . . 14 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§)) ∈ (Baseβ€˜π‘ƒ))
222 fveq2 6891 . . . . . . . . . . . . . . . 16 (π‘˜ = 𝑧 β†’ (π‘Œβ€˜π‘˜) = (π‘Œβ€˜π‘§))
223 fveq2 6891 . . . . . . . . . . . . . . . 16 (π‘˜ = 𝑧 β†’ (π‘‰β€˜π‘˜) = (π‘‰β€˜π‘§))
224222, 223oveq12d 7430 . . . . . . . . . . . . . . 15 (π‘˜ = 𝑧 β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) = ((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§)))
225224adantl 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) ∧ π‘˜ = 𝑧) β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) = ((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§)))
226186, 187, 188, 189, 194, 115, 208, 219, 131, 151, 221, 225gsumzunsnd 19872 . . . . . . . . . . . . 13 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) = ((𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§))))
227185, 226eqeq12d 2747 . . . . . . . . . . . 12 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) ↔ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 ))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§))) = ((𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))(.rβ€˜π‘ƒ)((π‘Œβ€˜π‘§) ↑ (π‘‰β€˜π‘§)))))
228103, 227imbitrrid 245 . . . . . . . . . . 11 ((πœ‘ ∧ ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) ∧ (π‘₯ βˆͺ {𝑧}) βŠ† 𝐼)) β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))
229228expr 456 . . . . . . . . . 10 ((πœ‘ ∧ (π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯)) β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))) β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
230229a2d 29 . . . . . . . . 9 ((πœ‘ ∧ (π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯)) β†’ (((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
231102, 230syl5 34 . . . . . . . 8 ((πœ‘ ∧ (π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯)) β†’ ((π‘₯ βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
232231expcom 413 . . . . . . 7 ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) β†’ (πœ‘ β†’ ((π‘₯ βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))) β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))))
233232a2d 29 . . . . . 6 ((π‘₯ ∈ Fin ∧ Β¬ 𝑧 ∈ π‘₯) β†’ ((πœ‘ β†’ (π‘₯ βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ π‘₯, (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ π‘₯ ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))) β†’ (πœ‘ β†’ ((π‘₯ βˆͺ {𝑧}) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (π‘₯ βˆͺ {𝑧}), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (π‘₯ βˆͺ {𝑧}) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))))
23455, 67, 79, 91, 98, 233findcard2s 9171 . . . . 5 ((β—‘π‘Œ β€œ β„•) ∈ Fin β†’ (πœ‘ β†’ ((β—‘π‘Œ β€œ β„•) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))))
23532, 234mpcom 38 . . . 4 (πœ‘ β†’ ((β—‘π‘Œ β€œ β„•) βŠ† 𝐼 β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))))
23631, 235mpd 15 . . 3 (πœ‘ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
23731resmptd 6040 . . . 4 (πœ‘ β†’ ((π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) β†Ύ (β—‘π‘Œ β€œ β„•)) = (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))
238237oveq2d 7428 . . 3 (πœ‘ β†’ (𝐺 Ξ£g ((π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) β†Ύ (β—‘π‘Œ β€œ β„•))) = (𝐺 Ξ£g (π‘˜ ∈ (β—‘π‘Œ β€œ β„•) ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
239217fmpttd 7116 . . . 4 (πœ‘ β†’ (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))):𝐼⟢(Baseβ€˜π‘ƒ))
240 ssidd 4005 . . . . 5 (πœ‘ β†’ 𝐼 βŠ† 𝐼)
24192, 3, 93, 94, 2, 48, 136, 137, 95, 1, 196, 240mplcoe5lem 21906 . . . 4 (πœ‘ β†’ ran (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) βŠ† ((Cntzβ€˜πΊ)β€˜ran (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
2427, 15, 2, 17suppssr 8186 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ (π‘Œβ€˜π‘˜) = 0)
243242oveq1d 7427 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) = (0 ↑ (π‘‰β€˜π‘˜)))
244 eldifi 4126 . . . . . . . 8 (π‘˜ ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•)) β†’ π‘˜ ∈ 𝐼)
245244, 216sylan2 592 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ (π‘‰β€˜π‘˜) ∈ (Baseβ€˜π‘ƒ))
246186, 50, 136mulg0 19000 . . . . . . 7 ((π‘‰β€˜π‘˜) ∈ (Baseβ€˜π‘ƒ) β†’ (0 ↑ (π‘‰β€˜π‘˜)) = (1rβ€˜π‘ƒ))
247245, 246syl 17 . . . . . 6 ((πœ‘ ∧ π‘˜ ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ (0 ↑ (π‘‰β€˜π‘˜)) = (1rβ€˜π‘ƒ))
248243, 247eqtrd 2771 . . . . 5 ((πœ‘ ∧ π‘˜ ∈ (𝐼 βˆ– (β—‘π‘Œ β€œ β„•))) β†’ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)) = (1rβ€˜π‘ƒ))
249248, 2suppss2 8191 . . . 4 (πœ‘ β†’ ((π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) supp (1rβ€˜π‘ƒ)) βŠ† (β—‘π‘Œ β€œ β„•))
2502mptexd 7228 . . . . 5 (πœ‘ β†’ (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) ∈ V)
251 funmpt 6586 . . . . . 6 Fun (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))
252251a1i 11 . . . . 5 (πœ‘ β†’ Fun (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))))
253 fvexd 6906 . . . . 5 (πœ‘ β†’ (1rβ€˜π‘ƒ) ∈ V)
254 suppssfifsupp 9384 . . . . 5 ((((π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) ∈ V ∧ Fun (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) ∧ (1rβ€˜π‘ƒ) ∈ V) ∧ ((β—‘π‘Œ β€œ β„•) ∈ Fin ∧ ((π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) supp (1rβ€˜π‘ƒ)) βŠ† (β—‘π‘Œ β€œ β„•))) β†’ (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) finSupp (1rβ€˜π‘ƒ))
255250, 252, 253, 32, 249, 254syl32anc 1377 . . . 4 (πœ‘ β†’ (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) finSupp (1rβ€˜π‘ƒ))
256186, 50, 188, 193, 2, 239, 241, 249, 255gsumzres 19825 . . 3 (πœ‘ β†’ (𝐺 Ξ£g ((π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜))) β†Ύ (β—‘π‘Œ β€œ β„•))) = (𝐺 Ξ£g (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
257236, 238, 2563eqtr2d 2777 . 2 (πœ‘ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑖 ∈ 𝐼 ↦ if(𝑖 ∈ (β—‘π‘Œ β€œ β„•), (π‘Œβ€˜π‘–), 0)), 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
25829, 257eqtrd 2771 1 (πœ‘ β†’ (𝑦 ∈ 𝐷 ↦ if(𝑦 = π‘Œ, 1 , 0 )) = (𝐺 Ξ£g (π‘˜ ∈ 𝐼 ↦ ((π‘Œβ€˜π‘˜) ↑ (π‘‰β€˜π‘˜)))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 844   = wceq 1540   ∈ wcel 2105  βˆ€wral 3060  {crab 3431  Vcvv 3473   βˆ– cdif 3945   βˆͺ cun 3946   βŠ† wss 3948  βˆ…c0 4322  ifcif 4528  {csn 4628   class class class wbr 5148   ↦ cmpt 5231   Γ— cxp 5674  β—‘ccnv 5675   β†Ύ cres 5678   β€œ cima 5679  Fun wfun 6537  βŸΆwf 6539  β€˜cfv 6543  (class class class)co 7412   ∘f cof 7672   supp csupp 8151   ↑m cmap 8826  Fincfn 8945   finSupp cfsupp 9367  0cc0 11116   + caddc 11119  β„•cn 12219  β„•0cn0 12479  Basecbs 17151  +gcplusg 17204  .rcmulr 17205  0gc0g 17392   Ξ£g cgsu 17393  Mndcmnd 18665  .gcmg 18993  Cntzccntz 19227  mulGrpcmgp 20035  1rcur 20082  Ringcrg 20134   mVar cmvr 21769   mPoly cmpl 21770
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729  ax-cnex 11172  ax-resscn 11173  ax-1cn 11174  ax-icn 11175  ax-addcl 11176  ax-addrcl 11177  ax-mulcl 11178  ax-mulrcl 11179  ax-mulcom 11180  ax-addass 11181  ax-mulass 11182  ax-distr 11183  ax-i2m1 11184  ax-1ne0 11185  ax-1rid 11186  ax-rnegex 11187  ax-rrecex 11188  ax-cnre 11189  ax-pre-lttri 11190  ax-pre-lttrn 11191  ax-pre-ltadd 11192  ax-pre-mulgt0 11193
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7674  df-ofr 7675  df-om 7860  df-1st 7979  df-2nd 7980  df-supp 8152  df-frecs 8272  df-wrecs 8303  df-recs 8377  df-rdg 8416  df-1o 8472  df-er 8709  df-map 8828  df-pm 8829  df-ixp 8898  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  df-fsupp 9368  df-sup 9443  df-oi 9511  df-card 9940  df-pnf 11257  df-mnf 11258  df-xr 11259  df-ltxr 11260  df-le 11261  df-sub 11453  df-neg 11454  df-nn 12220  df-2 12282  df-3 12283  df-4 12284  df-5 12285  df-6 12286  df-7 12287  df-8 12288  df-9 12289  df-n0 12480  df-z 12566  df-dec 12685  df-uz 12830  df-fz 13492  df-fzo 13635  df-seq 13974  df-hash 14298  df-struct 17087  df-sets 17104  df-slot 17122  df-ndx 17134  df-base 17152  df-ress 17181  df-plusg 17217  df-mulr 17218  df-sca 17220  df-vsca 17221  df-ip 17222  df-tset 17223  df-ple 17224  df-ds 17226  df-hom 17228  df-cco 17229  df-0g 17394  df-gsum 17395  df-prds 17400  df-pws 17402  df-mre 17537  df-mrc 17538  df-acs 17540  df-mgm 18571  df-sgrp 18650  df-mnd 18666  df-mhm 18711  df-submnd 18712  df-grp 18864  df-minusg 18865  df-mulg 18994  df-subg 19046  df-ghm 19135  df-cntz 19229  df-cmn 19698  df-abl 19699  df-mgp 20036  df-rng 20054  df-ur 20083  df-srg 20088  df-ring 20136  df-subrng 20442  df-subrg 20467  df-psr 21773  df-mvr 21774  df-mpl 21775
This theorem is referenced by:  mplcoe2  21908  ply1coe  22141
  Copyright terms: Public domain W3C validator