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 33714
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 2737 . . . . . . . . . . . 12 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} = { ∈ (ℕ0m 𝐼) ∣ finSupp 0}
32psrbasfsupp 33669 . . . . . . . . . . 11 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} = { ∈ (ℕ0m 𝐼) ∣ ( “ ℕ) ∈ Fin}
4 eqid 2737 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
5 eqid 2737 . . . . . . . . . . 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 21958 . . . . . . . . . 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 32518 . . . . . . . 8 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → ((𝑉𝑖)‘𝑓) = if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)))
1514mpteq2dva 5179 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)) = (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅))))
1615oveq2d 7380 . . . . . 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 5185 . . . . . . . . . . . 12 𝑗(𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
1918nfeq2 2917 . . . . . . . . . . 11 𝑗 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
20 nfv 1916 . . . . . . . . . . 11 𝑗 𝑖 = (𝑓 supp 0)
2119, 20nfbi 1905 . . . . . . . . . 10 𝑗(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0))
22 unisnv 4871 . . . . . . . . . . . . 13 {𝑗} = 𝑗
2322eqeq2i 2750 . . . . . . . . . . . 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 4864 . . . . . . . . . . . . 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 2748 . . . . . . . . . . 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 6842 . . . . . . . . . . . . . 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 12440 . . . . . . . . . . . . . . . . . . . . 21 0 ∈ V
3433a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → ℕ0 ∈ V)
35 ssrab2 4021 . . . . . . . . . . . . . . . . . . . . . 22 { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ⊆ (ℕ0m 𝐼)
3635a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ⊆ (ℕ0m 𝐼))
3736sselda 3922 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓 ∈ (ℕ0m 𝐼))
3832, 34, 37elmaprd 32750 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → 𝑓:𝐼⟶ℕ0)
3938adantr 480 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶ℕ0)
40 ffrn 6679 . . . . . . . . . . . . . . . . . 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 6683 . . . . . . . . . . . . . . . 16 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) → 𝑓:𝐼⟶{0, 1})
4431, 43indfsid 32926 . . . . . . . . . . . . . . 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 4578 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → {𝑖} = {𝑗})
4746adantl 481 . . . . . . . . . . . . . . 15 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → {𝑖} = {𝑗})
4847fveq2d 6842 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑖 = 𝑗) → ((𝟭‘𝐼)‘{𝑖}) = ((𝟭‘𝐼)‘{𝑗}))
4930, 45, 483eqtr4d 2782 . . . . . . . . . . . . 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 7379 . . . . . . . . . . . . . . 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 4730 . . . . . . . . . . . . . . . . . 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 32924 . . . . . . . . . . . . . . . 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 2781 . . . . . . . . . . . . . 14 ((((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) ∧ 𝑓 = ((𝟭‘𝐼)‘{𝑖})) → {𝑖} = {𝑗})
61 vex 3434 . . . . . . . . . . . . . . 15 𝑖 ∈ V
6261sneqr 4784 . . . . . . . . . . . . . 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 32920 . . . . . . . . . . . . . . 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 2748 . . . . . . . . . . . 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 7399 . . . . . . . . . . . . 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 14378 . . . . . . . . . . . . . 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 4625 . . . . . . . . . . . 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 3246 . . . . . . . . 9 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → (𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ↔ 𝑖 = (𝑓 supp 0)))
8079ifbid 4491 . . . . . . . 8 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))
8180mpteq2dva 5179 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅))) = (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅))))
8281oveq2d 7380 . . . . . 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 20221 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
848, 83syl 17 . . . . . . . 8 (𝜑𝑅 ∈ Mnd)
8584ad3antrrr 731 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → 𝑅 ∈ Mnd)
86 suppssdm 8124 . . . . . . . . . . . 12 (𝑓 supp 0) ⊆ dom 𝑓
8738fdmd 6676 . . . . . . . . . . . . 13 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → dom 𝑓 = 𝐼)
8887ad4antr 733 . . . . . . . . . . . 12 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → dom 𝑓 = 𝐼)
8986, 88sseqtrid 3965 . . . . . . . . . . 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 3923 . . . . . . . . . 10 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → 𝑗𝐼)
9222, 91eqeltrid 2841 . . . . . . . . 9 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → {𝑗} ∈ 𝐼)
9326, 92eqeltrd 2837 . . . . . . . 8 ((((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑗 ∈ (𝑓 supp 0)) ∧ (𝑓 supp 0) = {𝑗}) → (𝑓 supp 0) ∈ 𝐼)
9493, 77r19.29a 3146 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑓 supp 0) ∈ 𝐼)
95 eqid 2737 . . . . . . 7 (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅))) = (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))
96 eqid 2737 . . . . . . . . 9 (Base‘𝑅) = (Base‘𝑅)
9796, 5, 8ringidcld 20244 . . . . . . . 8 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
9897ad3antrrr 731 . . . . . . 7 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (1r𝑅) ∈ (Base‘𝑅))
994, 85, 53, 94, 95, 98gsummptif1n0 19938 . . . . . 6 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ran 𝑓 ⊆ {0, 1}) ∧ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ if(𝑖 = (𝑓 supp 0), (1r𝑅), (0g𝑅)))) = (1r𝑅))
10016, 82, 993eqtrrd 2777 . . . . 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 18801 . . . . . . . 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 5891 . . . . . . . . . . . . . 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 2737 . . . . . . . . . . . . . . 15 (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))
113 1nn0 12450 . . . . . . . . . . . . . . . . 17 1 ∈ ℕ0
114 prid2g 4706 . . . . . . . . . . . . . . . . 17 (1 ∈ ℕ0 → 1 ∈ {0, 1})
115113, 114mp1i 13 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → 1 ∈ {0, 1})
116 0nn0 12449 . . . . . . . . . . . . . . . . 17 0 ∈ ℕ0
117 prid1g 4705 . . . . . . . . . . . . . . . . 17 (0 ∈ ℕ0 → 0 ∈ {0, 1})
118116, 117mp1i 13 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → 0 ∈ {0, 1})
119115, 118ifcld 4514 . . . . . . . . . . . . . . 15 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) ∧ 𝑗𝐼) → if(𝑗 = 𝑖, 1, 0) ∈ {0, 1})
120111, 112, 119rnmptssd 7074 . . . . . . . . . . . . . 14 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → ran (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)) ⊆ {0, 1})
121109, 120eqsstrd 3957 . . . . . . . . . . . . 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 4478 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = (0g𝑅))
126107, 125eqtr2d 2773 . . . . . . . . 9 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) ∧ 𝑖𝐼) → (0g𝑅) = ((𝑉𝑖)‘𝑓))
127126mpteq2dva 5179 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑖𝐼 ↦ (0g𝑅)) = (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))
128127oveq2d 7380 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ ran 𝑓 ⊆ {0, 1}) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
129105, 128eqtr3d 2774 . . . . . 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 2775 . . . . . . . . . . . . . . . 16 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → 𝑓 = ((𝟭‘𝐼)‘{𝑖}))
139138oveq1d 7379 . . . . . . . . . . . . . . 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 2772 . . . . . . . . . . . . . 14 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (𝑓 supp 0) = {𝑖})
144143fveq2d 6842 . . . . . . . . . . . . 13 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘(𝑓 supp 0)) = (♯‘{𝑖}))
145 hashsng 14328 . . . . . . . . . . . . . 14 (𝑖𝐼 → (♯‘{𝑖}) = 1)
146145ad2antlr 728 . . . . . . . . . . . . 13 (((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) ∧ 𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0))) → (♯‘{𝑖}) = 1)
147144, 146eqtrd 2772 . . . . . . . . . . . 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 4478 . . . . . . . . . 10 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → if(𝑓 = (𝑗𝐼 ↦ if(𝑗 = 𝑖, 1, 0)), (1r𝑅), (0g𝑅)) = (0g𝑅))
151134, 150eqtr2d 2773 . . . . . . . . 9 ((((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) ∧ 𝑖𝐼) → (0g𝑅) = ((𝑉𝑖)‘𝑓))
152151mpteq2dva 5179 . . . . . . . 8 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑖𝐼 ↦ (0g𝑅)) = (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))
153152oveq2d 7380 . . . . . . 7 (((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) ∧ ¬ (♯‘(𝑓 supp 0)) = 1) → (𝑅 Σg (𝑖𝐼 ↦ (0g𝑅))) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
154133, 153eqtr3d 2774 . . . . . 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 4504 . . 3 ((𝜑𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0}) → if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅)) = (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓))))
160159mpteq2dva 5179 . 2 (𝜑 → (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))))
161 esplyfval1.e . . . 4 𝐸 = (𝐼eSymPoly𝑅)
162161fveq1i 6839 . . 3 (𝐸‘1) = ((𝐼eSymPoly𝑅)‘1)
163113a1i 11 . . . 4 (𝜑 → 1 ∈ ℕ0)
1642, 6, 8, 163, 4, 5esplyfval3 33713 . . 3 (𝜑 → ((𝐼eSymPoly𝑅)‘1) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))))
165162, 164eqtrid 2784 . 2 (𝜑 → (𝐸‘1) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ if((ran 𝑓 ⊆ {0, 1} ∧ (♯‘(𝑓 supp 0)) = 1), (1r𝑅), (0g𝑅))))
166 esplyfval1.w . . 3 𝑊 = (𝐼 mPoly 𝑅)
167 eqid 2737 . . 3 (Base‘𝑊) = (Base‘𝑊)
168166, 1, 167, 6, 8mvrf2 21968 . . 3 (𝜑𝑉:𝐼⟶(Base‘𝑊))
169166, 167, 8, 6, 2, 6, 168mplgsum 33694 . 2 (𝜑 → (𝑊 Σg 𝑉) = (𝑓 ∈ { ∈ (ℕ0m 𝐼) ∣ finSupp 0} ↦ (𝑅 Σg (𝑖𝐼 ↦ ((𝑉𝑖)‘𝑓)))))
170160, 165, 1693eqtr4d 2782 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 3062  {crab 3390  Vcvv 3430  wss 3890  ifcif 4467  {csn 4568  {cpr 4570   cuni 4851   class class class wbr 5086  cmpt 5167  dom cdm 5628  ran crn 5629  wf 6492  cfv 6496  (class class class)co 7364   supp csupp 8107  m cmap 8770  Fincfn 8890   finSupp cfsupp 9271  0cc0 11035  1c1 11036  𝟭cind 12156  0cn0 12434  chash 14289  Basecbs 17176  0gc0g 17399   Σg cgsu 17400  Mndcmnd 18699  1rcur 20159  Ringcrg 20211   mVar cmvr 21882   mPoly cmpl 21883  eSymPolycesply 33697
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 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5306  ax-pr 5374  ax-un 7686  ax-cnex 11091  ax-resscn 11092  ax-1cn 11093  ax-icn 11094  ax-addcl 11095  ax-addrcl 11096  ax-mulcl 11097  ax-mulrcl 11098  ax-mulcom 11099  ax-addass 11100  ax-mulass 11101  ax-distr 11102  ax-i2m1 11103  ax-1ne0 11104  ax-1rid 11105  ax-rnegex 11106  ax-rrecex 11107  ax-cnre 11108  ax-pre-lttri 11109  ax-pre-lttrn 11110  ax-pre-ltadd 11111  ax-pre-mulgt0 11112  ax-addf 11114  ax-mulf 11115
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 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5523  df-eprel 5528  df-po 5536  df-so 5537  df-fr 5581  df-se 5582  df-we 5583  df-xp 5634  df-rel 5635  df-cnv 5636  df-co 5637  df-dm 5638  df-rn 5639  df-res 5640  df-ima 5641  df-pred 6263  df-ord 6324  df-on 6325  df-lim 6326  df-suc 6327  df-iota 6452  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7321  df-ov 7367  df-oprab 7368  df-mpo 7369  df-of 7628  df-ofr 7629  df-om 7815  df-1st 7939  df-2nd 7940  df-supp 8108  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-2o 8403  df-oadd 8406  df-er 8640  df-map 8772  df-pm 8773  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9272  df-sup 9352  df-oi 9422  df-dju 9822  df-card 9860  df-pnf 11178  df-mnf 11179  df-xr 11180  df-ltxr 11181  df-le 11182  df-sub 11376  df-neg 11377  df-ind 12157  df-nn 12172  df-2 12241  df-3 12242  df-4 12243  df-5 12244  df-6 12245  df-7 12246  df-8 12247  df-9 12248  df-n0 12435  df-xnn0 12508  df-z 12522  df-dec 12642  df-uz 12786  df-fz 13459  df-fzo 13606  df-seq 13961  df-hash 14290  df-struct 17114  df-sets 17131  df-slot 17149  df-ndx 17161  df-base 17177  df-ress 17198  df-plusg 17230  df-mulr 17231  df-starv 17232  df-sca 17233  df-vsca 17234  df-ip 17235  df-tset 17236  df-ple 17237  df-ds 17239  df-unif 17240  df-hom 17241  df-cco 17242  df-0g 17401  df-gsum 17402  df-prds 17407  df-pws 17409  df-mre 17545  df-mrc 17546  df-acs 17548  df-mgm 18605  df-sgrp 18684  df-mnd 18700  df-mhm 18748  df-submnd 18749  df-grp 18909  df-minusg 18910  df-mulg 19041  df-subg 19096  df-ghm 19185  df-cntz 19289  df-cmn 19754  df-abl 19755  df-mgp 20119  df-rng 20131  df-ur 20160  df-ring 20213  df-cring 20214  df-rhm 20449  df-subrng 20520  df-subrg 20544  df-cnfld 21350  df-zring 21424  df-zrh 21480  df-psr 21886  df-mvr 21887  df-mpl 21888  df-esply 33699
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator