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

Theorem evlslem4 22123
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 1137 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → 𝑥𝐼)
2 evlslem4.x . . . . . . . 8 ((𝜑𝑥𝐼) → 𝑋𝐵)
323adant3 1132 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → 𝑋𝐵)
4 eqid 2740 . . . . . . . 8 (𝑥𝐼𝑋) = (𝑥𝐼𝑋)
54fvmpt2 7040 . . . . . . 7 ((𝑥𝐼𝑋𝐵) → ((𝑥𝐼𝑋)‘𝑥) = 𝑋)
61, 3, 5syl2anc 583 . . . . . 6 ((𝜑𝑥𝐼𝑦𝐽) → ((𝑥𝐼𝑋)‘𝑥) = 𝑋)
7 simp3 1138 . . . . . . 7 ((𝜑𝑥𝐼𝑦𝐽) → 𝑦𝐽)
8 evlslem4.y . . . . . . 7 ((𝜑𝑦𝐽) → 𝑌𝐵)
9 eqid 2740 . . . . . . . 8 (𝑦𝐽𝑌) = (𝑦𝐽𝑌)
109fvmpt2 7040 . . . . . . 7 ((𝑦𝐽𝑌𝐵) → ((𝑦𝐽𝑌)‘𝑦) = 𝑌)
117, 8, 103imp3i2an 1345 . . . . . 6 ((𝜑𝑥𝐼𝑦𝐽) → ((𝑦𝐽𝑌)‘𝑦) = 𝑌)
126, 11oveq12d 7466 . . . . 5 ((𝜑𝑥𝐼𝑦𝐽) → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)) = (𝑋 · 𝑌))
1312mpoeq3dva 7527 . . . 4 (𝜑 → (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)))
14 nfcv 2908 . . . . . 6 𝑖(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))
15 nfcv 2908 . . . . . 6 𝑗(((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))
16 nffvmpt1 6931 . . . . . . 7 𝑥((𝑥𝐼𝑋)‘𝑖)
17 nfcv 2908 . . . . . . 7 𝑥 ·
18 nfcv 2908 . . . . . . 7 𝑥((𝑦𝐽𝑌)‘𝑗)
1916, 17, 18nfov 7478 . . . . . 6 𝑥(((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))
20 nfcv 2908 . . . . . . 7 𝑦((𝑥𝐼𝑋)‘𝑖)
21 nfcv 2908 . . . . . . 7 𝑦 ·
22 nffvmpt1 6931 . . . . . . 7 𝑦((𝑦𝐽𝑌)‘𝑗)
2320, 21, 22nfov 7478 . . . . . 6 𝑦(((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗))
24 fveq2 6920 . . . . . . 7 (𝑥 = 𝑖 → ((𝑥𝐼𝑋)‘𝑥) = ((𝑥𝐼𝑋)‘𝑖))
25 fveq2 6920 . . . . . . 7 (𝑦 = 𝑗 → ((𝑦𝐽𝑌)‘𝑦) = ((𝑦𝐽𝑌)‘𝑗))
2624, 25oveqan12d 7467 . . . . . 6 ((𝑥 = 𝑖𝑦 = 𝑗) → (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦)) = (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
2714, 15, 19, 23, 26cbvmpo 7544 . . . . 5 (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
28 vex 3492 . . . . . . . 8 𝑖 ∈ V
29 vex 3492 . . . . . . . 8 𝑗 ∈ V
3028, 29eqop2 8073 . . . . . . 7 (𝑧 = ⟨𝑖, 𝑗⟩ ↔ (𝑧 ∈ (V × V) ∧ ((1st𝑧) = 𝑖 ∧ (2nd𝑧) = 𝑗)))
31 fveq2 6920 . . . . . . . 8 ((1st𝑧) = 𝑖 → ((𝑥𝐼𝑋)‘(1st𝑧)) = ((𝑥𝐼𝑋)‘𝑖))
32 fveq2 6920 . . . . . . . 8 ((2nd𝑧) = 𝑗 → ((𝑦𝐽𝑌)‘(2nd𝑧)) = ((𝑦𝐽𝑌)‘𝑗))
3331, 32oveqan12d 7467 . . . . . . 7 (((1st𝑧) = 𝑖 ∧ (2nd𝑧) = 𝑗) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
3430, 33simplbiim 504 . . . . . 6 (𝑧 = ⟨𝑖, 𝑗⟩ → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
3534mpompt 7564 . . . . 5 (𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))) = (𝑖𝐼, 𝑗𝐽 ↦ (((𝑥𝐼𝑋)‘𝑖) · ((𝑦𝐽𝑌)‘𝑗)))
3627, 35eqtr4i 2771 . . . 4 (𝑥𝐼, 𝑦𝐽 ↦ (((𝑥𝐼𝑋)‘𝑥) · ((𝑦𝐽𝑌)‘𝑦))) = (𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))))
3713, 36eqtr3di 2795 . . 3 (𝜑 → (𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) = (𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))))
3837oveq1d 7463 . 2 (𝜑 → ((𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) supp 0 ) = ((𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))) supp 0 ))
39 difxp 6195 . . . . . 6 ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))) = (((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∪ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))))
4039eleq2i 2836 . . . . 5 (𝑧 ∈ ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))) ↔ 𝑧 ∈ (((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∪ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))))
41 elun 4176 . . . . 5 (𝑧 ∈ (((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∪ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) ↔ (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∨ 𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))))
4240, 41bitri 275 . . . 4 (𝑧 ∈ ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 ))) ↔ (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∨ 𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))))
43 xp1st 8062 . . . . . . . 8 (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) → (1st𝑧) ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )))
442fmpttd 7149 . . . . . . . . 9 (𝜑 → (𝑥𝐼𝑋):𝐼𝐵)
45 ssidd 4032 . . . . . . . . 9 (𝜑 → ((𝑥𝐼𝑋) supp 0 ) ⊆ ((𝑥𝐼𝑋) supp 0 ))
46 evlslem4.i . . . . . . . . 9 (𝜑𝐼𝑉)
47 evlslem4.z . . . . . . . . . . 11 0 = (0g𝑅)
4847fvexi 6934 . . . . . . . . . 10 0 ∈ V
4948a1i 11 . . . . . . . . 9 (𝜑0 ∈ V)
5044, 45, 46, 49suppssr 8236 . . . . . . . 8 ((𝜑 ∧ (1st𝑧) ∈ (𝐼 ∖ ((𝑥𝐼𝑋) supp 0 ))) → ((𝑥𝐼𝑋)‘(1st𝑧)) = 0 )
5143, 50sylan2 592 . . . . . . 7 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → ((𝑥𝐼𝑋)‘(1st𝑧)) = 0 )
5251oveq1d 7463 . . . . . 6 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = ( 0 · ((𝑦𝐽𝑌)‘(2nd𝑧))))
53 evlslem4.r . . . . . . 7 (𝜑𝑅 ∈ Ring)
548fmpttd 7149 . . . . . . . 8 (𝜑 → (𝑦𝐽𝑌):𝐽𝐵)
55 xp2nd 8063 . . . . . . . 8 (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) → (2nd𝑧) ∈ 𝐽)
56 ffvelcdm 7115 . . . . . . . 8 (((𝑦𝐽𝑌):𝐽𝐵 ∧ (2nd𝑧) ∈ 𝐽) → ((𝑦𝐽𝑌)‘(2nd𝑧)) ∈ 𝐵)
5754, 55, 56syl2an 595 . . . . . . 7 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → ((𝑦𝐽𝑌)‘(2nd𝑧)) ∈ 𝐵)
58 evlslem4.b . . . . . . . 8 𝐵 = (Base‘𝑅)
59 evlslem4.t . . . . . . . 8 · = (.r𝑅)
6058, 59, 47ringlz 20316 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((𝑦𝐽𝑌)‘(2nd𝑧)) ∈ 𝐵) → ( 0 · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
6153, 57, 60syl2an2r 684 . . . . . 6 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → ( 0 · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
6252, 61eqtrd 2780 . . . . 5 ((𝜑𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽)) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
63 xp2nd 8063 . . . . . . . 8 (𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → (2nd𝑧) ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))
64 ssidd 4032 . . . . . . . . 9 (𝜑 → ((𝑦𝐽𝑌) supp 0 ) ⊆ ((𝑦𝐽𝑌) supp 0 ))
65 evlslem4.j . . . . . . . . 9 (𝜑𝐽𝑊)
6654, 64, 65, 49suppssr 8236 . . . . . . . 8 ((𝜑 ∧ (2nd𝑧) ∈ (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → ((𝑦𝐽𝑌)‘(2nd𝑧)) = 0 )
6763, 66sylan2 592 . . . . . . 7 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → ((𝑦𝐽𝑌)‘(2nd𝑧)) = 0 )
6867oveq2d 7464 . . . . . 6 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = (((𝑥𝐼𝑋)‘(1st𝑧)) · 0 ))
69 xp1st 8062 . . . . . . . 8 (𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))) → (1st𝑧) ∈ 𝐼)
70 ffvelcdm 7115 . . . . . . . 8 (((𝑥𝐼𝑋):𝐼𝐵 ∧ (1st𝑧) ∈ 𝐼) → ((𝑥𝐼𝑋)‘(1st𝑧)) ∈ 𝐵)
7144, 69, 70syl2an 595 . . . . . . 7 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → ((𝑥𝐼𝑋)‘(1st𝑧)) ∈ 𝐵)
7258, 59, 47ringrz 20317 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((𝑥𝐼𝑋)‘(1st𝑧)) ∈ 𝐵) → (((𝑥𝐼𝑋)‘(1st𝑧)) · 0 ) = 0 )
7353, 71, 72syl2an2r 684 . . . . . 6 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · 0 ) = 0 )
7468, 73eqtrd 2780 . . . . 5 ((𝜑𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
7562, 74jaodan 958 . . . 4 ((𝜑 ∧ (𝑧 ∈ ((𝐼 ∖ ((𝑥𝐼𝑋) supp 0 )) × 𝐽) ∨ 𝑧 ∈ (𝐼 × (𝐽 ∖ ((𝑦𝐽𝑌) supp 0 ))))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
7642, 75sylan2b 593 . . 3 ((𝜑𝑧 ∈ ((𝐼 × 𝐽) ∖ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))) → (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧))) = 0 )
7746, 65xpexd 7786 . . 3 (𝜑 → (𝐼 × 𝐽) ∈ V)
7876, 77suppss2 8241 . 2 (𝜑 → ((𝑧 ∈ (𝐼 × 𝐽) ↦ (((𝑥𝐼𝑋)‘(1st𝑧)) · ((𝑦𝐽𝑌)‘(2nd𝑧)))) supp 0 ) ⊆ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))
7938, 78eqsstrd 4047 1 (𝜑 → ((𝑥𝐼, 𝑦𝐽 ↦ (𝑋 · 𝑌)) supp 0 ) ⊆ (((𝑥𝐼𝑋) supp 0 ) × ((𝑦𝐽𝑌) supp 0 )))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  wo 846  w3a 1087   = wceq 1537  wcel 2108  Vcvv 3488  cdif 3973  cun 3974  wss 3976  cop 4654  cmpt 5249   × cxp 5698  wf 6569  cfv 6573  (class class class)co 7448  cmpo 7450  1st c1st 8028  2nd c2nd 8029   supp csupp 8201  Basecbs 17258  .rcmulr 17312  0gc0g 17499  Ringcrg 20260
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-er 8763  df-en 9004  df-dom 9005  df-sdom 9006  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-plusg 17324  df-0g 17501  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-grp 18976  df-minusg 18977  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262
This theorem is referenced by:  evlslem2  22126
  Copyright terms: Public domain W3C validator