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 33705
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 2735 . . . . . . . . . . . 12 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} = { ∈ (ℕ0m 𝐼) ∣ finSupp 0}
32psrbasfsupp 33660 . . . . . . . . . . 11 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
4 eqid 2735 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
5 eqid 2735 . . . . . . . . . . 11 (1r𝑅) = (1r𝑅)
6 esplyfval1.i . . . . . . . . . . . 12 (𝜑𝐼 ∈ Fin)
76ad2antrr 727 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝐼 ∈ Fin)
8 esplyfval1.r . . . . . . . . . . . 12 (𝜑𝑅 ∈ Ring)
98ad2antrr 727 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑅 ∈ Ring)
10 simplr 769 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑖𝐼)
11 simpr 484 . . . . . . . . . . 11 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0})
121, 3, 4, 5, 7, 9, 10, 11mvrval2 21950 . . . . . . . . . 10 (((𝜑𝑖𝐼) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1312ad4ant14 753 . . . . . . . . 9 (((((𝜑𝑖𝐼) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1413an52ds 32509 . . . . . . . 8 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1514mpteq2dva 5167 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)) = (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅))))
1615oveq2d 7372 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))) = (𝑅 Σg (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))))
17 nfv 1916 . . . . . . . . . 10 𝑗((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼)
18 nfmpt1 5173 . . . . . . . . . . . 12 𝑗(𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
1918nfeq2 2914 . . . . . . . . . . 11 𝑗 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
20 nfv 1916 . . . . . . . . . . 11 𝑗 𝑖 = (𝑓 supp 0)
2119, 20nfbi 1905 . . . . . . . . . 10 𝑗(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0))
22 unisnv 4860 . . . . . . . . . . . . 13 {𝑗} = 𝑗
2322eqeq2i 2748 . . . . . . . . . . . 12 (𝑖 = {𝑗} ↔ 𝑖 = 𝑗)
2423a1i 11 . . . . . . . . . . 11 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑖 = {𝑗} ↔ 𝑖 = 𝑗))
25 simpr 484 . . . . . . . . . . . . . 14 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) = {𝑗})
2625unieqd 4853 . . . . . . . . . . . . 13 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) = {𝑗})
2726adantllr 720 . . . . . . . . . . . 12 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) = {𝑗})
2827eqeq2d 2746 . . . . . . . . . . 11 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑖 = (𝑓 supp 0) ↔ 𝑖 = {𝑗}))
29 simplr 769 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → (𝑓 supp 0) = {𝑗})
3029fveq2d 6833 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → ((𝟭‘𝐼)‘(𝑓 supp 0)) = ((𝟭‘𝐼)‘{𝑗}))
316ad2antrr 727 . . . . . . . . . . . . . . . 16 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝐼 ∈ Fin)
326adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝐼 ∈ Fin)
33 nn0ex 12432 . . . . . . . . . . . . . . . . . . . . 21 0 ∈ V
3433a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → ℕ0 ∈ V)
35 ssrab2 4013 . . . . . . . . . . . . . . . . . . . . . 22 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ⊆ (ℕ0m 𝐼)
3635a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ⊆ (ℕ0m 𝐼))
3736sselda 3917 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓 ∈ (ℕ0m 𝐼))
3832, 34, 37elmaprd 32741 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓:𝐼⟶ℕ0)
3938adantr 480 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶ℕ0)
40 ffrn 6670 . . . . . . . . . . . . . . . . . 18 (𝑓:𝐼⟶ℕ0𝑓:𝐼⟶ran 𝑓)
4139, 40syl 17 . . . . . . . . . . . . . . . . 17 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶ran 𝑓)
42 simpr 484 . . . . . . . . . . . . . . . . 17 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → ran 𝑓 ⊆ {0, 1})
4341, 42fssd 6674 . . . . . . . . . . . . . . . 16 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶{0, 1})
4431, 43indfsid 32917 . . . . . . . . . . . . . . 15 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓 = ((𝟭‘𝐼)‘(𝑓 supp 0)))
4544ad5antr 735 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → 𝑓 = ((𝟭‘𝐼)‘(𝑓 supp 0)))
46 sneq 4567 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → {𝑖} = {𝑗})
4746adantl 481 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → {𝑖} = {𝑗})
4847fveq2d 6833 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → ((𝟭‘𝐼)‘{𝑖}) = ((𝟭‘𝐼)‘{𝑗}))
4930, 45, 483eqtr4d 2780 . . . . . . . . . . . . 13 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
50 simpr 484 . . . . . . . . . . . . . . . 16 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
5150oveq1d 7371 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → (𝑓 supp 0) = (((𝟭‘𝐼)‘{𝑖}) supp 0))
52 simplr 769 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → (𝑓 supp 0) = {𝑗})
536ad3antrrr 731 . . . . . . . . . . . . . . . . 17 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → 𝐼 ∈ Fin)
5453ad4antr 733 . . . . . . . . . . . . . . . 16 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → 𝐼 ∈ Fin)
55 snssi 4719 . . . . . . . . . . . . . . . . . 18 (𝑖𝐼 → {𝑖} ⊆ 𝐼)
5655adantl 481 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → {𝑖} ⊆ 𝐼)
5756ad3antrrr 731 . . . . . . . . . . . . . . . 16 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → {𝑖} ⊆ 𝐼)
58 indsupp 32915 . . . . . . . . . . . . . . . 16 ((𝐼 ∈ Fin ∧ {𝑖} ⊆ 𝐼) → (((𝟭‘𝐼)‘{𝑖}) supp 0) = {𝑖})
5954, 57, 58syl2anc 585 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → (((𝟭‘𝐼)‘{𝑖}) supp 0) = {𝑖})
6051, 52, 593eqtr3rd 2779 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → {𝑖} = {𝑗})
61 vex 3431 . . . . . . . . . . . . . . 15 𝑖 ∈ V
6261sneqr 4773 . . . . . . . . . . . . . 14 ({𝑖} = {𝑗} → 𝑖 = 𝑗)
6360, 62syl 17 . . . . . . . . . . . . 13 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → 𝑖 = 𝑗)
6449, 63impbida 801 . . . . . . . . . . . 12 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑖 = 𝑗𝑓 = ((𝟭‘𝐼)‘{𝑖})))
65 indsn 32911 . . . . . . . . . . . . . . 15 ((𝐼 ∈ Fin ∧ 𝑖𝐼) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
6653, 65sylan 581 . . . . . . . . . . . . . 14 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
6766ad2antrr 727 . . . . . . . . . . . . 13 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
6867eqeq2d 2746 . . . . . . . . . . . 12 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 = ((𝟭‘𝐼)‘{𝑖}) ↔ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))))
6964, 68bitr2d 280 . . . . . . . . . . 11 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = 𝑗))
7024, 28, 693bitr4rd 312 . . . . . . . . . 10 (((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0)))
71 ovexd 7391 . . . . . . . . . . . . 13 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑓 supp 0) ∈ V)
72 simpr 484 . . . . . . . . . . . . 13 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (♯‘(𝑓 supp 0)) = 1)
73 hash1snb 14370 . . . . . . . . . . . . . 14 ((𝑓 supp 0) ∈ V → ((♯‘(𝑓 supp 0)) = 1 ↔ ∃𝑗(𝑓 supp 0) = {𝑗}))
7473biimpa 476 . . . . . . . . . . . . 13 (((𝑓 supp 0) ∈ V ∧ (♯‘(𝑓 supp 0)) = 1) → ∃𝑗(𝑓 supp 0) = {𝑗})
7571, 72, 74syl2anc 585 . . . . . . . . . . . 12 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → ∃𝑗(𝑓 supp 0) = {𝑗})
76 exsnrex 4614 . . . . . . . . . . . 12 (∃𝑗(𝑓 supp 0) = {𝑗} ↔ ∃𝑗 ∈ (𝑓 supp 0)(𝑓 supp 0) = {𝑗})
7775, 76sylib 218 . . . . . . . . . . 11 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → ∃𝑗 ∈ (𝑓 supp 0)(𝑓 supp 0) = {𝑗})
7877adantr 480 . . . . . . . . . 10 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ∃𝑗 ∈ (𝑓 supp 0)(𝑓 supp 0) = {𝑗})
7917, 21, 70, 78r19.29af2 3243 . . . . . . . . 9 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0)))
8079ifbid 4480 . . . . . . . 8 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))
8180mpteq2dva 5167 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅))) = (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅))))
8281oveq2d 7372 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))) = (𝑅 Σg (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))))
83 ringmnd 20213 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
848, 83syl 17 . . . . . . . 8 (𝜑𝑅 ∈ Mnd)
8584ad3antrrr 731 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → 𝑅 ∈ Mnd)
86 suppssdm 8116 . . . . . . . . . . . 12 (𝑓 supp 0) ⊆ dom 𝑓
8738fdmd 6667 . . . . . . . . . . . . 13 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → dom 𝑓 = 𝐼)
8887ad4antr 733 . . . . . . . . . . . 12 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → dom 𝑓 = 𝐼)
8986, 88sseqtrid 3959 . . . . . . . . . . 11 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) ⊆ 𝐼)
90 simplr 769 . . . . . . . . . . 11 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → 𝑗 ∈ (𝑓 supp 0))
9189, 90sseldd 3918 . . . . . . . . . 10 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → 𝑗𝐼)
9222, 91eqeltrid 2839 . . . . . . . . 9 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → {𝑗} ∈ 𝐼)
9326, 92eqeltrd 2835 . . . . . . . 8 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) ∈ 𝐼)
9493, 77r19.29a 3143 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑓 supp 0) ∈ 𝐼)
95 eqid 2735 . . . . . . 7 (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅))) = (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))
96 eqid 2735 . . . . . . . . 9 (Base‘𝑅) = (Base‘𝑅)
9796, 5, 8ringidcld 20236 . . . . . . . 8 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
9897ad3antrrr 731 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (1r𝑅) ∈ (Base‘𝑅))
994, 85, 53, 94, 95, 98gsummptif1n0 19930 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))) = (1r𝑅))
10016, 82, 993eqtrrd 2775 . . . . 5 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (1r𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
101100anasss 466 . . . 4 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) → (1r𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
10284ad2antrr 727 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → 𝑅 ∈ Mnd)
1036ad2antrr 727 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → 𝐼 ∈ Fin)
1044gsumz 18793 . . . . . . . 8 ((𝑅 ∈ Mnd ∧ 𝐼 ∈ Fin) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (0g𝑅))
105102, 103, 104syl2anc 585 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (0g𝑅))
10612an32s 653 . . . . . . . . . . 11 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
107106adantlr 716 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
108 simpr 484 . . . . . . . . . . . . . . 15 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
109108rneqd 5882 . . . . . . . . . . . . . 14 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran 𝑓 = ran (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
110 nfv 1916 . . . . . . . . . . . . . . . 16 𝑗((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼)
111110, 19nfan 1901 . . . . . . . . . . . . . . 15 𝑗(((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
112 eqid 2735 . . . . . . . . . . . . . . 15 (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
113 1nn0 12442 . . . . . . . . . . . . . . . . 17 1 ∈ ℕ0
114 prid2g 4695 . . . . . . . . . . . . . . . . 17 (1 ∈ ℕ0 → 1 ∈ {0, 1})
115113, 114mp1i 13 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → 1 ∈ {0, 1})
116 0nn0 12441 . . . . . . . . . . . . . . . . 17 0 ∈ ℕ0
117 prid1g 4694 . . . . . . . . . . . . . . . . 17 (0 ∈ ℕ0 → 0 ∈ {0, 1})
118116, 117mp1i 13 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → 0 ∈ {0, 1})
119115, 118ifcld 4503 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → if(𝑗 = 𝑖, 1, 0) ∈ {0, 1})
120111, 112, 119rnmptssd 7065 . . . . . . . . . . . . . 14 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ⊆ {0, 1})
121109, 120eqsstrd 3951 . . . . . . . . . . . . 13 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran 𝑓 ⊆ {0, 1})
122121adantllr 720 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran 𝑓 ⊆ {0, 1})
123 simpllr 776 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ¬ ran 𝑓 ⊆ {0, 1})
124122, 123pm2.65da 817 . . . . . . . . . . 11 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → ¬ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
125124iffalsed 4467 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = (0g𝑅))
126107, 125eqtr2d 2771 . . . . . . . . 9 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → (0g𝑅) = ((𝑉𝑖)‘𝑓))
127126mpteq2dva 5167 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑖𝐼 ↦ (0g𝑅)) = (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))
128127oveq2d 7372 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
129105, 128eqtr3d 2772 . . . . . 6 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
130129adantlr 716 . . . . 5 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
13184ad2antrr 727 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → 𝑅 ∈ Mnd)
1326ad2antrr 727 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → 𝐼 ∈ Fin)
133131, 132, 104syl2anc 585 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (0g𝑅))
134106adantlr 716 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
135 simpr 484 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
1366, 65sylan 581 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖𝐼) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
137136ad5ant14 758 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ((𝟭‘𝐼)‘{𝑖}) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
138135, 137eqtr4d 2773 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
139138oveq1d 7371 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (𝑓 supp 0) = (((𝟭‘𝐼)‘{𝑖}) supp 0))
140132ad2antrr 727 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝐼 ∈ Fin)
14155ad2antlr 728 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → {𝑖} ⊆ 𝐼)
142140, 141, 58syl2anc 585 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (((𝟭‘𝐼)‘{𝑖}) supp 0) = {𝑖})
143139, 142eqtrd 2770 . . . . . . . . . . . . . 14 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (𝑓 supp 0) = {𝑖})
144143fveq2d 6833 . . . . . . . . . . . . 13 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘(𝑓 supp 0)) = (♯‘{𝑖}))
145 hashsng 14320 . . . . . . . . . . . . . 14 (𝑖𝐼 → (♯‘{𝑖}) = 1)
146145ad2antlr 728 . . . . . . . . . . . . 13 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘{𝑖}) = 1)
147144, 146eqtrd 2770 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘(𝑓 supp 0)) = 1)
148 simpllr 776 . . . . . . . . . . . 12 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ¬ (♯‘(𝑓 supp 0)) = 1)
149147, 148pm2.65da 817 . . . . . . . . . . 11 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ¬ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)))
150149iffalsed 4467 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = (0g𝑅))
151134, 150eqtr2d 2771 . . . . . . . . 9 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → (0g𝑅) = ((𝑉𝑖)‘𝑓))
152151mpteq2dva 5167 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ (0g𝑅)) = (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))
153152oveq2d 7372 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
154133, 153eqtr3d 2772 . . . . . 6 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
155154adantlr 716 . . . . 5 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
156 pm3.13 997 . . . . . 6 (¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1) → (¬ ran 𝑓 ⊆ {0, 1} ∨ ¬ (♯‘(𝑓 supp 0)) = 1))
157156adantl 481 . . . . 5 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) → (¬ ran 𝑓 ⊆ {0, 1} ∨ ¬ (♯‘(𝑓 supp 0)) = 1))
158130, 155, 157mpjaodan 961 . . . 4 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1)) → (0g𝑅) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
159101, 158ifeqda 4493 . . 3 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅)) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
160159mpteq2dva 5167 . 2 (𝜑 → (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))))
161 esplyfval1.e . . . 4 𝐸 = (𝐼eSymPoly𝑅)
162161fveq1i 6830 . . 3 (𝐸‘1) = ((𝐼eSymPoly𝑅)‘1)
163113a1i 11 . . . 4 (𝜑 → 1 ∈ ℕ0)
1642, 6, 8, 163, 4, 5esplyfval3 33704 . . 3 (𝜑 → ((𝐼eSymPoly𝑅)‘1) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))))
165162, 164eqtrid 2782 . 2 (𝜑 → (𝐸‘1) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))))
166 esplyfval1.w . . 3 𝑊 = (𝐼 mPoly 𝑅)
167 eqid 2735 . . 3 (Base‘𝑊) = (Base‘𝑊)
168166, 1, 167, 6, 8mvrf2 21960 . . 3 (𝜑𝑉:𝐼⟶(Base‘𝑊))
169166, 167, 8, 6, 2, 6, 168mplgsum 33685 . 2 (𝜑 → (𝑊 Σg 𝑉) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))))
170160, 165, 1693eqtr4d 2780 1 (𝜑 → (𝐸‘1) = (𝑊 Σg 𝑉))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 848   = wceq 1542  wex 1781  wcel 2114  wrex 3059  {crab 3387  Vcvv 3427  wss 3885  ifcif 4456  {csn 4557  {cpr 4559   cuni 4840   class class class wbr 5074  cmpt 5155  dom cdm 5620  ran crn 5621  wf 6483  cfv 6487  (class class class)co 7356   supp csupp 8099  m cmap 8762  Fincfn 8882   finSupp cfsupp 9263  0cc0 11027  1c1 11028  𝟭cind 12148  0cn0 12426  chash 14281  Basecbs 17168  0gc0g 17391   Σg cgsu 17392  Mndcmnd 18691  1rcur 20151  Ringcrg 20203   mVar cmvr 21874   mPoly cmpl 21875  eSymPolycesply 33688
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2184  ax-ext 2707  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7678  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104  ax-addf 11106  ax-mulf 11107
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3060  df-rmo 3340  df-reu 3341  df-rab 3388  df-v 3429  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-tp 4562  df-op 4564  df-uni 4841  df-int 4880  df-iun 4925  df-iin 4926  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-se 5574  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6254  df-ord 6315  df-on 6316  df-lim 6317  df-suc 6318  df-iota 6443  df-fun 6489  df-fn 6490  df-f 6491  df-f1 6492  df-fo 6493  df-f1o 6494  df-fv 6495  df-isom 6496  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-ofr 7621  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8100  df-frecs 8220  df-wrecs 8251  df-recs 8300  df-rdg 8338  df-1o 8394  df-2o 8395  df-oadd 8398  df-er 8632  df-map 8764  df-pm 8765  df-ixp 8835  df-en 8883  df-dom 8884  df-sdom 8885  df-fin 8886  df-fsupp 9264  df-sup 9344  df-oi 9414  df-dju 9814  df-card 9852  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-ind 12149  df-nn 12164  df-2 12233  df-3 12234  df-4 12235  df-5 12236  df-6 12237  df-7 12238  df-8 12239  df-9 12240  df-n0 12427  df-xnn0 12500  df-z 12514  df-dec 12634  df-uz 12778  df-fz 13451  df-fzo 13598  df-seq 13953  df-hash 14282  df-struct 17106  df-sets 17123  df-slot 17141  df-ndx 17153  df-base 17169  df-ress 17190  df-plusg 17222  df-mulr 17223  df-starv 17224  df-sca 17225  df-vsca 17226  df-ip 17227  df-tset 17228  df-ple 17229  df-ds 17231  df-unif 17232  df-hom 17233  df-cco 17234  df-0g 17393  df-gsum 17394  df-prds 17399  df-pws 17401  df-mre 17537  df-mrc 17538  df-acs 17540  df-mgm 18597  df-sgrp 18676  df-mnd 18692  df-mhm 18740  df-submnd 18741  df-grp 18901  df-minusg 18902  df-mulg 19033  df-subg 19088  df-ghm 19177  df-cntz 19281  df-cmn 19746  df-abl 19747  df-mgp 20111  df-rng 20123  df-ur 20152  df-ring 20205  df-cring 20206  df-rhm 20441  df-subrng 20512  df-subrg 20536  df-cnfld 21342  df-zring 21416  df-zrh 21472  df-psr 21878  df-mvr 21879  df-mpl 21880  df-esply 33690
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator