Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  esplyfval1 Structured version   Visualization version   GIF version

Theorem esplyfval1 34124
Description: The first elementary symmetric polynomial is the sum of all variables. (Contributed by Thierry Arnoux, 16-Mar-2026.)
Hypotheses
Ref Expression
esplyfval1.w 𝑊 = (𝐼 mPoly 𝑅)
esplyfval1.v 𝑉 = (𝐼 mVar 𝑅)
esplyfval1.e 𝐸 = (𝐼eSymPoly𝑅)
esplyfval1.i (𝜑𝐼 ∈ Fin)
esplyfval1.r (𝜑𝑅 ∈ Ring)
Assertion
Ref Expression
esplyfval1 (𝜑 → (𝐸‘1) = (𝑊 Σg 𝑉))

Proof of Theorem esplyfval1
Dummy variables 𝑓 𝑖 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 esplyfval1.v . . . . . . . . . . 11 𝑉 = (𝐼 mVar 𝑅)
2 eqid 2760 . . . . . . . . . . . 12 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} = { ∈ (ℕ0m 𝐼) ∣ finSupp 0}
32psrbasfsupp 34062 . . . . . . . . . . 11 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
4 eqid 2760 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
5 eqid 2760 . . . . . . . . . . 11 (1r𝑅) = (1r𝑅)
6 esplyfval1.i . . . . . . . . . . . 12 (𝜑𝐼 ∈ Fin)
76ad2antrr 739 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝐼 ∈ Fin)
8 esplyfval1.r . . . . . . . . . . . 12 (𝜑𝑅 ∈ Ring)
98ad2antrr 739 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑅 ∈ Ring)
10 simplr 781 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑖𝐼)
11 simpr 490 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0})
121, 3, 4, 5, 7, 9, 10, 11mvrval2 22237 . . . . . . . . . 10 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1312ad4ant14 765 . . . . . . . . 9 (((((𝜑𝑖𝐼) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1413an52ds 32971 . . . . . . . 8 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1514mpteq2dva 5198 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)) = (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅))))
1615oveq2d 7425 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))) = (𝑅 Σg (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))))
17 nfv 1947 . . . . . . . . . 10 𝑗((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼)
18 nfmpt1 5204 . . . . . . . . . . . 12 𝑗(𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
1918nfeq2 2939 . . . . . . . . . . 11 𝑗 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
20 nfv 1947 . . . . . . . . . . 11 𝑗 𝑖 = (𝑓 supp 0)
2119, 20nfbi 1936 . . . . . . . . . 10 𝑗(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0))
22 unisnv 4887 . . . . . . . . . . . . 13 {𝑗} = 𝑗
2322eqeq2i 2773 . . . . . . . . . . . 12 (𝑖 = {𝑗} ↔ 𝑖 = 𝑗)
2423a1i 11 . . . . . . . . . . 11 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑖 = {𝑗} ↔ 𝑖 = 𝑗))
25 simpr 490 . . . . . . . . . . . . . 14 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) = {𝑗})
2625unieqd 4880 . . . . . . . . . . . . 13 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) = {𝑗})
2726adantllr 732 . . . . . . . . . . . 12 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) = {𝑗})
2827eqeq2d 2771 . . . . . . . . . . 11 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑖 = (𝑓 supp 0) ↔ 𝑖 = {𝑗}))
29 simplr 781 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → (𝑓 supp 0) = {𝑗})
3029fveq2d 6878 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → ((𝟭‘𝐼)‘(𝑓 supp 0)) = ((𝟭‘𝐼)‘{𝑗}))
316ad2antrr 739 . . . . . . . . . . . . . . . 16 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝐼 ∈ Fin)
32 ssrab2 4028 . . . . . . . . . . . . . . . . . . . . . 22 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ⊆ (ℕ0m 𝐼)
3332a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ⊆ (ℕ0m 𝐼))
3433sselda 3931 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓 ∈ (ℕ0m 𝐼))
3534elmaprd 8849 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓:𝐼⟶ℕ0)
3635adantr 486 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶ℕ0)
37 ffrn 6712 . . . . . . . . . . . . . . . . . 18 (𝑓:𝐼⟶ℕ0𝑓:𝐼⟶ran 𝑓)
3836, 37syl 18 . . . . . . . . . . . . . . . . 17 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶ran 𝑓)
39 simpr 490 . . . . . . . . . . . . . . . . 17 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
4038, 39fssd 6716 . . . . . . . . . . . . . . . 16 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶{0, 1})
4131, 40indfsid 33355 . . . . . . . . . . . . . . 15 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓 = ((𝟭‘𝐼)‘(𝑓 supp 0)))
4241ad5antr 747 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → 𝑓 = ((𝟭‘𝐼)‘(𝑓 supp 0)))
43 sneq 4594 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → {𝑖} = {𝑗})
4443adantl 487 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → {𝑖} = {𝑗})
4544fveq2d 6878 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → ((𝟭‘𝐼)‘{𝑖}) = ((𝟭‘𝐼)‘{𝑗}))
4630, 42, 453eqtr4d 2805 . . . . . . . . . . . . 13 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
47 simpr 490 . . . . . . . . . . . . . . . 16 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
4847oveq1d 7424 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → (𝑓 supp 0) = (((𝟭‘𝐼)‘{𝑖}) supp 0))
49 simplr 781 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → (𝑓 supp 0) = {𝑗})
506ad3antrrr 743 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → 𝐼 ∈ Fin)
5150ad4antr 745 . . . . . . . . . . . . . . . 16 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → 𝐼 ∈ Fin)
52 snssi 4746 . . . . . . . . . . . . . . . . . 18 (𝑖𝐼 → {𝑖} ⊆ 𝐼)
5352adantl 487 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → {𝑖} ⊆ 𝐼)
5453ad3antrrr 743 . . . . . . . . . . . . . . . 16 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → {𝑖} ⊆ 𝐼)
55 indsupp 33353 . . . . . . . . . . . . . . . 16 ((𝐼 ∈ Fin ∧ {𝑖} ⊆ 𝐼) → (((𝟭‘𝐼)‘{𝑖}) supp 0) = {𝑖})
5651, 54, 55syl2anc 596 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → (((𝟭‘𝐼)‘{𝑖}) supp 0) = {𝑖})
5748, 49, 563eqtr3rd 2804 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → {𝑖} = {𝑗})
58 vex 3454 . . . . . . . . . . . . . . 15 𝑖 ∈ V
5958sneqr 4800 . . . . . . . . . . . . . 14 ({𝑖} = {𝑗} → 𝑖 = 𝑗)
6057, 59syl 18 . . . . . . . . . . . . 13 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → 𝑖 = 𝑗)
6146, 60impbida 813 . . . . . . . . . . . 12 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑖 = 𝑗𝑓 = ((𝟭‘𝐼)‘{𝑖})))
62 indsn 33349 . . . . . . . . . . . . . . 15 ((𝐼 ∈ Fin ∧ 𝑖𝐼) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
6350, 62sylan 592 . . . . . . . . . . . . . 14 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
6463ad2antrr 739 . . . . . . . . . . . . 13 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
6564eqeq2d 2771 . . . . . . . . . . . 12 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 = ((𝟭‘𝐼)‘{𝑖}) ↔ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))))
6661, 65bitr2d 283 . . . . . . . . . . 11 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = 𝑗))
6724, 28, 663bitr4rd 315 . . . . . . . . . 10 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0)))
68 ovexd 7444 . . . . . . . . . . . . 13 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑓 supp 0) ∈ V)
69 simpr 490 . . . . . . . . . . . . 13 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (♯‘(𝑓 supp 0)) = 1)
70 hash1snb 14517 . . . . . . . . . . . . . 14 ((𝑓 supp 0) ∈ V → ((♯‘(𝑓 supp 0)) = 1 ↔ ∃𝑗(𝑓 supp 0) = {𝑗}))
7170biimpa 482 . . . . . . . . . . . . 13 (((𝑓 supp 0) ∈ V ∧ (♯‘(𝑓 supp 0)) = 1) → ∃𝑗(𝑓 supp 0) = {𝑗})
7268, 69, 71syl2anc 596 . . . . . . . . . . . 12 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → ∃𝑗(𝑓 supp 0) = {𝑗})
73 exsnrex 4641 . . . . . . . . . . . 12 (∃𝑗(𝑓 supp 0) = {𝑗} ↔ ∃𝑗 ∈ (𝑓 supp 0)(𝑓 supp 0) = {𝑗})
7472, 73sylib 221 . . . . . . . . . . 11 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → ∃𝑗 ∈ (𝑓 supp 0)(𝑓 supp 0) = {𝑗})
7574adantr 486 . . . . . . . . . 10 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ∃𝑗 ∈ (𝑓 supp 0)(𝑓 supp 0) = {𝑗})
7617, 21, 67, 75r19.29af2 3270 . . . . . . . . 9 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0)))
7776ifbid 4506 . . . . . . . 8 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))
7877mpteq2dva 5198 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅))) = (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅))))
7978oveq2d 7425 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))) = (𝑅 Σg (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))))
80 ringmnd 20417 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
818, 80syl 18 . . . . . . . 8 (𝜑𝑅 ∈ Mnd)
8281ad3antrrr 743 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → 𝑅 ∈ Mnd)
83 suppssdm 8173 . . . . . . . . . . . 12 (𝑓 supp 0) ⊆ dom 𝑓
8435fdmd 6709 . . . . . . . . . . . . 13 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → dom 𝑓 = 𝐼)
8584ad4antr 745 . . . . . . . . . . . 12 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → dom 𝑓 = 𝐼)
8683, 85sseqtrid 3973 . . . . . . . . . . 11 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) ⊆ 𝐼)
87 simplr 781 . . . . . . . . . . 11 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → 𝑗 ∈ (𝑓 supp 0))
8886, 87sseldd 3932 . . . . . . . . . 10 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → 𝑗𝐼)
8922, 88eqeltrid 2864 . . . . . . . . 9 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → {𝑗} ∈ 𝐼)
9026, 89eqeltrd 2860 . . . . . . . 8 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) ∈ 𝐼)
9190, 74r19.29a 3170 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑓 supp 0) ∈ 𝐼)
92 eqid 2760 . . . . . . 7 (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅))) = (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))
93 eqid 2760 . . . . . . . . 9 (Base‘𝑅) = (Base‘𝑅)
9493, 5, 8ringidcld 20442 . . . . . . . 8 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
9594ad3antrrr 743 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (1r𝑅) ∈ (Base‘𝑅))
964, 82, 50, 91, 92, 95gsummptif1n0 20127 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))) = (1r𝑅))
9716, 79, 963eqtrrd 2800 . . . . 5 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (1r𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
9897anasss 472 . . . 4 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) → (1r𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
9981ad2antrr 739 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → 𝑅 ∈ Mnd)
1006ad2antrr 739 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → 𝐼 ∈ Fin)
1014gsumz 18979 . . . . . . . 8 ((𝑅 ∈ Mnd ∧ 𝐼 ∈ Fin) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (0g𝑅))
10299, 100, 101syl2anc 596 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (0g𝑅))
10312an32s 665 . . . . . . . . . . 11 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
104103adantlr 728 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
105 simpr 490 . . . . . . . . . . . . . . 15 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
106105rneqd 5917 . . . . . . . . . . . . . 14 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran 𝑓 = ran (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
107 nfv 1947 . . . . . . . . . . . . . . . 16 𝑗((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼)
108107, 19nfan 1932 . . . . . . . . . . . . . . 15 𝑗(((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
109 eqid 2760 . . . . . . . . . . . . . . 15 (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
110 1nn0 12577 . . . . . . . . . . . . . . . . 17 1 ∈ ℕ0
111 prid2g 4722 . . . . . . . . . . . . . . . . 17 (1 ∈ ℕ0 → 1 ∈ {0, 1})
112110, 111mp1i 14 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → 1 ∈ {0, 1})
113 0nn0 12576 . . . . . . . . . . . . . . . . 17 0 ∈ ℕ0
114 prid1g 4721 . . . . . . . . . . . . . . . . 17 (0 ∈ ℕ0 → 0 ∈ {0, 1})
115113, 114mp1i 14 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → 0 ∈ {0, 1})
116112, 115ifcld 4529 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → if(𝑗 = 𝑖, 1, 0) ∈ {0, 1})
117108, 109, 116rnmptssd 7113 . . . . . . . . . . . . . 14 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ⊆ {0, 1})
118106, 117eqsstrd 3965 . . . . . . . . . . . . 13 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran 𝑓 ⊆ {0, 1})
119118adantllr 732 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran 𝑓 ⊆ {0, 1})
120 simpllr 788 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ¬ ran 𝑓 ⊆ {0, 1})
121119, 120pm2.65da 829 . . . . . . . . . . 11 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → ¬ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
122121iffalsed 4493 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = (0g𝑅))
123104, 122eqtr2d 2796 . . . . . . . . 9 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → (0g𝑅) = ((𝑉𝑖)‘𝑓))
124123mpteq2dva 5198 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑖𝐼 ↦ (0g𝑅)) = (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))
125124oveq2d 7425 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
126102, 125eqtr3d 2797 . . . . . 6 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
127126adantlr 728 . . . . 5 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
12881ad2antrr 739 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → 𝑅 ∈ Mnd)
1296ad2antrr 739 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → 𝐼 ∈ Fin)
130128, 129, 101syl2anc 596 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (0g𝑅))
131103adantlr 728 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
132 simpr 490 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
1336, 62sylan 592 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖𝐼) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
134133ad5ant14 770 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
135132, 134eqtr4d 2798 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
136135oveq1d 7424 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (𝑓 supp 0) = (((𝟭‘𝐼)‘{𝑖}) supp 0))
137129ad2antrr 739 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝐼 ∈ Fin)
13852ad2antlr 740 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → {𝑖} ⊆ 𝐼)
139137, 138, 55syl2anc 596 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (((𝟭‘𝐼)‘{𝑖}) supp 0) = {𝑖})
140136, 139eqtrd 2795 . . . . . . . . . . . . . 14 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (𝑓 supp 0) = {𝑖})
141140fveq2d 6878 . . . . . . . . . . . . 13 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘(𝑓 supp 0)) = (♯‘{𝑖}))
142 hashsng 14466 . . . . . . . . . . . . . 14 (𝑖𝐼 → (♯‘{𝑖}) = 1)
143142ad2antlr 740 . . . . . . . . . . . . 13 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘{𝑖}) = 1)
144141, 143eqtrd 2795 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘(𝑓 supp 0)) = 1)
145 simpllr 788 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ¬ (♯‘(𝑓 supp 0)) = 1)
146144, 145pm2.65da 829 . . . . . . . . . . 11 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ¬ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
147146iffalsed 4493 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = (0g𝑅))
148131, 147eqtr2d 2796 . . . . . . . . 9 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → (0g𝑅) = ((𝑉𝑖)‘𝑓))
149148mpteq2dva 5198 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ (0g𝑅)) = (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))
150149oveq2d 7425 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
151130, 150eqtr3d 2797 . . . . . 6 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
152151adantlr 728 . . . . 5 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
153 pm3.13 1010 . . . . . 6 (¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1) → (¬ ran 𝑓 ⊆ {0, 1} ∨ ¬ (♯‘(𝑓 supp 0)) = 1))
154153adantl 487 . . . . 5 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) → (¬ ran 𝑓 ⊆ {0, 1} ∨ ¬ (♯‘(𝑓 supp 0)) = 1))
155127, 152, 154mpjaodan 973 . . . 4 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
15698, 155ifeqda 4519 . . 3 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅)) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
157156mpteq2dva 5198 . 2 (𝜑 → (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))))
158 esplyfval1.e . . . 4 𝐸 = (𝐼eSymPoly𝑅)
159158fveq1i 6875 . . 3 (𝐸‘1) = ((𝐼eSymPoly𝑅)‘1)
160110a1i 11 . . . 4 (𝜑 → 1 ∈ ℕ0)
1612, 6, 8, 160, 4, 5esplyfval3 34123 . . 3 (𝜑 → ((𝐼eSymPoly𝑅)‘1) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))))
162159, 161eqtrid 2807 . 2 (𝜑 → (𝐸‘1) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))))
163 esplyfval1.w . . 3 𝑊 = (𝐼 mPoly 𝑅)
164 eqid 2760 . . 3 (Base‘𝑊) = (Base‘𝑊)
165163, 1, 164, 6, 8mvrf2 22247 . . 3 (𝜑𝑉:𝐼⟶(Base‘𝑊))
166163, 164, 8, 6, 2, 6, 165mplgsum 34104 . 2 (𝜑 → (𝑊 Σg 𝑉) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))))
167157, 162, 1663eqtr4d 2805 1 (𝜑 → (𝐸‘1) = (𝑊 Σg 𝑉))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  wo 861   = wceq 1570  wex 1812  wcel 2145  wrex 3086  {crab 3412  Vcvv 3450  wss 3899  ifcif 4482  {csn 4584  {cpr 4586   cuni 4867   class class class wbr 5103  cmpt 5186  dom cdm 5648  ran crn 5649  wf 6524  cfv 6528  (class class class)co 7409   supp csupp 8156  m cmap 8826  Fincfn 8952   finSupp cfsupp 9331  0cc0 11157  1c1 11158  𝟭cind 12275  0cn0 12561  chash 14427  Basecbs 17334  0gc0g 17557   Σg cgsu 17558  Mndcmnd 18870  1rcur 20354  Ringcrg 20406   mVar cmvr 22160   mPoly cmpl 22161  eSymPolycesply 34107
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7735  ax-cnex 11213  ax-resscn 11214  ax-1cn 11215  ax-icn 11216  ax-addcl 11217  ax-addrcl 11218  ax-mulcl 11219  ax-mulrcl 11220  ax-mulcom 11221  ax-addass 11222  ax-mulass 11223  ax-distr 11224  ax-i2m1 11225  ax-1ne0 11226  ax-1rid 11227  ax-rnegex 11228  ax-rrecex 11229  ax-cnre 11230  ax-pre-lttri 11231  ax-pre-lttrn 11232  ax-pre-ltadd 11233  ax-pre-mulgt0 11234  ax-addf 11236  ax-mulf 11237
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5543  df-eprel 5548  df-po 5556  df-so 5557  df-fr 5601  df-se 5602  df-we 5603  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-pred 6294  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-f1 6533  df-fo 6534  df-f1o 6535  df-fv 6536  df-isom 6537  df-riota 7366  df-ov 7412  df-oprab 7413  df-mpo 7414  df-of 7677  df-ofr 7678  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8157  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8455  df-2o 8456  df-oadd 8459  df-er 8696  df-map 8828  df-pm 8829  df-ixp 8905  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-fsupp 9332  df-sup 9412  df-oi 9482  df-dju 9939  df-card 9977  df-pnf 11302  df-mnf 11303  df-xr 11304  df-ltxr 11305  df-le 11306  df-sub 11500  df-neg 11501  df-ind 12276  df-nn 12291  df-2 12360  df-3 12361  df-4 12362  df-5 12363  df-6 12364  df-7 12365  df-8 12366  df-9 12367  df-n0 12562  df-xnn0 12635  df-z 12649  df-dec 12770  df-uz 12921  df-fz 13595  df-fzo 13743  df-seq 14099  df-hash 14428  df-struct 17272  df-sets 17289  df-slot 17307  df-ndx 17319  df-base 17335  df-ress 17356  df-plusg 17388  df-mulr 17389  df-starv 17390  df-sca 17391  df-vsca 17392  df-ip 17393  df-tset 17394  df-ple 17395  df-ds 17397  df-unif 17398  df-hom 17399  df-cco 17400  df-0g 17559  df-gsum 17560  df-prds 17565  df-pws 17567  df-mre 17703  df-mrc 17704  df-acs 17706  df-mgm 18763  df-sgrp 18855  df-mnd 18871  df-mhm 18925  df-submnd 18926  df-grp 19094  df-minusg 19095  df-mulg 19225  df-subg 19280  df-ghm 19375  df-cntz 19478  df-cmn 19943  df-abl 19944  df-mgp 20308  df-rng 20322  df-ur 20355  df-ring 20408  df-cring 20409  df-rhm 20649  df-subrng 20745  df-subrg 20769  df-cnfld 21626  df-zring 21700  df-zrh 21756  df-psr 22164  df-mvr 22165  df-mpl 22166  df-esply 34109
This theorem is used by: (None)
  Copyright terms: Public domain W3C validator