MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  evlslem4 Structured version   Visualization version   GIF version

Theorem evlslem4 22277
Description: The support of a tensor product of ring element families is contained in the product of the supports. (Contributed by Stefan O'Rear, 8-Mar-2015.) (Revised by AV, 18-Jul-2019.)
Hypotheses
Ref Expression
evlslem4.b 𝐵 = (Base‘𝑅)
evlslem4.z 0 = (0g𝑅)
evlslem4.t · = (.r𝑅)
evlslem4.r (𝜑𝑅 ∈ Ring)
evlslem4.x ((𝜑𝑥𝐼) → 𝑋𝐵)
evlslem4.y ((𝜑𝑦𝐽) → 𝑌𝐵)
evlslem4.i (𝜑𝐼𝑉)
evlslem4.j (𝜑𝐽𝑊)
Assertion
Ref Expression
evlslem4 (𝜑 → ((𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) supp 0 ) ⊆ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))
Distinct variable groups:   𝑥,𝑦,𝐼   𝑥,𝐽,𝑦   𝜑,𝑥,𝑦   𝑦,𝑋   𝑥,𝐵,𝑦   𝑥, · ,𝑦   𝑥,𝑌
Allowed substitution hints:   𝑅(𝑥, 𝑦)   𝑉(𝑥, 𝑦)   𝑊(𝑥, 𝑦)   𝑋(𝑥)   𝑌(𝑦)   0 (𝑥, 𝑦)

Proof of Theorem evlslem4
Dummy variables 𝑖 𝑗 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp2 1155 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → 𝑥𝐼)
2 evlslem4.x . . . . . . . 8 ((𝜑𝑥𝐼) → 𝑋𝐵)
323adant3 1150 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → 𝑋𝐵)
4 eqid 2765 . . . . . . . 8 (𝑥𝐼𝑋) = (𝑥𝐼𝑋)
54fvmpt2 7005 . . . . . . 7 ((𝑥𝐼𝑋𝐵) → ((𝑥𝐼𝑋)‘𝑥) = 𝑋)
61, 3, 5syl2anc 596 . . . . . 6 ((𝜑𝑥𝐼𝑦𝐽) → ((𝑥𝐼𝑋)‘𝑥) = 𝑋)
7 simp3 1156 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → 𝑦𝐽)
8 evlslem4.y . . . . . . 7 ((𝜑𝑦𝐽) → 𝑌𝐵)
9 eqid 2765 . . . . . . . 8 (𝑦𝐽𝑌) = (𝑦𝐽𝑌)
109fvmpt2 7005 . . . . . . 7 ((𝑦𝐽𝑌𝐵) → ((𝑦𝐽𝑌)‘𝑦) = 𝑌)
117, 8, 103imp3i2an 1364 . . . . . 6 ((𝜑𝑥𝐼𝑦𝐽) → ((𝑦𝐽𝑌)‘𝑦) = 𝑌)
126, 11oveq12d 7437 . . . . 5 ((𝜑𝑥𝐼𝑦𝐽) → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)) = (𝑋 · 𝑌))
1312mpoeq3dva 7496 . . . 4 (𝜑 → (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)))
14 nfcv 2927 . . . . . 6 𝑖(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))
15 nfcv 2927 . . . . . 6 𝑗(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))
16 nffvmpt1 6896 . . . . . . 7 𝑥((𝑥𝐼𝑋)‘𝑖)
17 nfcv 2927 . . . . . . 7 𝑥 ·
18 nfcv 2927 . . . . . . 7 𝑥((𝑦𝐽𝑌)‘𝑗)
1916, 17, 18nfov 7449 . . . . . 6 𝑥(((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))
20 nfcv 2927 . . . . . . 7 𝑦((𝑥𝐼𝑋)‘𝑖)
21 nfcv 2927 . . . . . . 7 𝑦 ·
22 nffvmpt1 6896 . . . . . . 7 𝑦((𝑦𝐽𝑌)‘𝑗)
2320, 21, 22nfov 7449 . . . . . 6 𝑦(((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))
24 fveq2 6885 . . . . . . 7 (𝑥 = 𝑖 → ((𝑥𝐼𝑋)‘𝑥) = ((𝑥𝐼𝑋)‘𝑖))
25 fveq2 6885 . . . . . . 7 (𝑦 = 𝑗 → ((𝑦𝐽𝑌)‘𝑦) = ((𝑦𝐽𝑌)‘𝑗))
2624, 25oveqan12d 7438 . . . . . 6 ((𝑥 = 𝑖𝑦 = 𝑗) → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)) = (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
2714, 15, 19, 23, 26cbvmpo 7513 . . . . 5 (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
28 vex 3461 . . . . . . . 8 𝑖 ∈ V
29 vex 3461 . . . . . . . 8 𝑗 ∈ V
3028, 29eqop2 8035 . . . . . . 7 (𝑧 = ⟨𝑖, 𝑗⟩ ↔ (𝑧 ∈ (V × V) ∧ ((1st𝑧) = 𝑖 ∧ (2nd𝑧) = 𝑗)))
31 fveq2 6885 . . . . . . . 8 ((1st𝑧) = 𝑖 → ((𝑥𝐼𝑋)‘(1st𝑧)) = ((𝑥𝐼𝑋)‘𝑖))
32 fveq2 6885 . . . . . . . 8 ((2nd𝑧) = 𝑗 → ((𝑦𝐽𝑌)‘(2nd𝑧)) = ((𝑦𝐽𝑌)‘𝑗))
3331, 32oveqan12d 7438 . . . . . . 7 (((1st𝑧) = 𝑖 ∧ (2nd𝑧) = 𝑗) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
3430, 33simplbiim 514 . . . . . 6 (𝑧 = ⟨𝑖, 𝑗⟩ → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
3534mpompt 7533 . . . . 5 (𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))) = (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
3627, 35eqtr4i 2791 . . . 4 (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))))
3713, 36eqtr3di 2815 . . 3 (𝜑 → (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) = (𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))))
3837oveq1d 7434 . 2 (𝜑 → ((𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) supp 0 ) = ((𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))) supp 0 ))
39 difxp 6163 . . . . . 6 ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))) = (((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∪ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))))
4039eleq2i 2857 . . . . 5 (𝑧 ∈ ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))) ↔ 𝑧 ∈ (((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∪ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))))
41 elun 4107 . . . . 5 (𝑧 ∈ (((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∪ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) ↔ (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∨ 𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))))
4240, 41bitri 278 . . . 4 (𝑧 ∈ ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))) ↔ (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∨ 𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))))
43 xp1st 8024 . . . . . . . 8 (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) → (1st𝑧) ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )))
442fmpttd 7114 . . . . . . . . 9 (𝜑 → (𝑥𝐼𝑋):𝐼𝐵)
45 ssidd 3961 . . . . . . . . 9 (𝜑 → ((𝑥𝐼𝑋) supp 0 ) ⊆ ((𝑥𝐼𝑋) supp 0 ))
46 evlslem4.i . . . . . . . . 9 (𝜑𝐼𝑉)
47 evlslem4.z . . . . . . . . . . 11 0 = (0g𝑅)
4847fvexi 6899 . . . . . . . . . 10 0 ∈ V
4948a1i 11 . . . . . . . . 9 (𝜑0 ∈ V)
5044, 45, 46, 49suppssr 8197 . . . . . . . 8 ((𝜑 ∧ (1st𝑧) ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 ))) → ((𝑥𝐼𝑋)‘(1st𝑧)) = 0 )
5143, 50sylan2 605 . . . . . . 7 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → ((𝑥𝐼𝑋)‘(1st𝑧)) = 0 )
5251oveq1d 7434 . . . . . 6 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = ( 0 · ((𝑦𝐽𝑌)‘(2nd𝑧))))
53 evlslem4.r . . . . . . 7 (𝜑𝑅 ∈ Ring)
548fmpttd 7114 . . . . . . . 8 (𝜑 → (𝑦𝐽𝑌):𝐽𝐵)
55 xp2nd 8025 . . . . . . . 8 (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) → (2nd𝑧) ∈ 𝐽)
56 ffvelcdm 7080 . . . . . . . 8 (((𝑦𝐽𝑌):𝐽𝐵 ∧ (2nd𝑧) ∈ 𝐽) → ((𝑦𝐽𝑌)‘(2nd𝑧)) ∈ 𝐵)
5754, 55, 56syl2an 608 . . . . . . 7 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → ((𝑦𝐽𝑌)‘(2nd𝑧)) ∈ 𝐵)
58 evlslem4.b . . . . . . . 8 𝐵 = (Base‘𝑅)
59 evlslem4.t . . . . . . . 8 · = (.r𝑅)
6058, 59, 47ringlz 20422 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((𝑦𝐽𝑌)‘(2nd𝑧)) ∈ 𝐵) → ( 0 · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
6153, 57, 60syl2an2r 698 . . . . . 6 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → ( 0 · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
6252, 61eqtrd 2800 . . . . 5 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
63 xp2nd 8025 . . . . . . . 8 (𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → (2nd𝑧) ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))
64 ssidd 3961 . . . . . . . . 9 (𝜑 → ((𝑦𝐽𝑌) supp 0 ) ⊆ ((𝑦𝐽𝑌) supp 0 ))
65 evlslem4.j . . . . . . . . 9 (𝜑𝐽𝑊)
6654, 64, 65, 49suppssr 8197 . . . . . . . 8 ((𝜑 ∧ (2nd𝑧) ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → ((𝑦𝐽𝑌)‘(2nd𝑧)) = 0 )
6763, 66sylan2 605 . . . . . . 7 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → ((𝑦𝐽𝑌)‘(2nd𝑧)) = 0 )
6867oveq2d 7435 . . . . . 6 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = (((𝑥𝐼𝑋)‘(1st𝑧)) · 0 ))
69 xp1st 8024 . . . . . . . 8 (𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → (1st𝑧) ∈ 𝐼)
70 ffvelcdm 7080 . . . . . . . 8 (((𝑥𝐼𝑋):𝐼𝐵 ∧ (1st𝑧) ∈ 𝐼) → ((𝑥𝐼𝑋)‘(1st𝑧)) ∈ 𝐵)
7144, 69, 70syl2an 608 . . . . . . 7 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → ((𝑥𝐼𝑋)‘(1st𝑧)) ∈ 𝐵)
7258, 59, 47ringrz 20423 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((𝑥𝐼𝑋)‘(1st𝑧)) ∈ 𝐵) → (((𝑥𝐼𝑋)‘(1st𝑧)) · 0 ) = 0 )
7353, 71, 72syl2an2r 698 . . . . . 6 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · 0 ) = 0 )
7468, 73eqtrd 2800 . . . . 5 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
7562, 74jaodan 972 . . . 4 ((𝜑 ∧ (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∨ 𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
7642, 75sylan2b 606 . . 3 ((𝜑𝑧 ∈ ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
7746, 65xpexd 7756 . . 3 (𝜑 → (𝐼 × 𝐽) ∈ V)
7876, 77suppss2 8202 . 2 (𝜑 → ((𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))) supp 0 ) ⊆ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))
7938, 78eqsstrd 3972 1 (𝜑 → ((𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) supp 0 ) ⊆ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401  wo 861  w3a 1103   = wceq 1570  wcel 2146  Vcvv 3457  cdif 3903  cun 3904  wss 3906  cop 4597  cmpt 5194   × cxp 5661  wf 6536  cfv 6540  (class class class)co 7419  cmpo 7421  1st c1st 7990  2nd c2nd 7991   supp csupp 8162  Basecbs 17291  .rcmulr 17333  0gc0g 17514  Ringcrg 20359
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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192
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 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-supp 8163  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-er 8700  df-en 8950  df-dom 8951  df-sdom 8952  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-nn 12249  df-2 12318  df-sets 17246  df-slot 17264  df-ndx 17276  df-base 17292  df-plusg 17345  df-0g 17516  df-mgm 18720  df-sgrp 18809  df-mnd 18825  df-grp 19047  df-minusg 19048  df-cmn 19896  df-abl 19897  df-mgp 20261  df-rng 20275  df-ur 20308  df-ring 20361
This theorem is used by:  evlslem2  22280
  Copyright terms: Public domain W3C validator