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

Theorem pmatcollpw1lem1 20779
Description: Lemma 1 for pmatcollpw1 20781. (Contributed by AV, 28-Sep-2019.) (Revised by AV, 3-Dec-2019.)
Hypotheses
Ref Expression
pmatcollpw1.p 𝑃 = (Poly1𝑅)
pmatcollpw1.c 𝐶 = (𝑁 Mat 𝑃)
pmatcollpw1.b 𝐵 = (Base‘𝐶)
pmatcollpw1.m × = ( ·𝑠𝑃)
pmatcollpw1.e = (.g‘(mulGrp‘𝑃))
pmatcollpw1.x 𝑋 = (var1𝑅)
Assertion
Ref Expression
pmatcollpw1lem1 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (𝑛 ∈ ℕ0 ↦ ((𝐼(𝑀 decompPMat 𝑛)𝐽) × (𝑛 𝑋))) finSupp (0g𝑃))
Distinct variable groups:   𝐵,𝑛   𝑛,𝐼   𝑛,𝐽   𝑛,𝑀   𝑛,𝑁   𝑅,𝑛   𝑛,𝑋   × ,𝑛   ,𝑛
Allowed substitution hints:   𝐶(𝑛)   𝑃(𝑛)

Proof of Theorem pmatcollpw1lem1
Dummy variables 𝑠 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fvexd 6362 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (0g𝑃) ∈ V)
2 ovexd 6841 . 2 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑛 ∈ ℕ0) → ((𝐼(𝑀 decompPMat 𝑛)𝐽) × (𝑛 𝑋)) ∈ V)
3 oveq2 6819 . . . 4 (𝑛 = 𝑥 → (𝑀 decompPMat 𝑛) = (𝑀 decompPMat 𝑥))
43oveqd 6828 . . 3 (𝑛 = 𝑥 → (𝐼(𝑀 decompPMat 𝑛)𝐽) = (𝐼(𝑀 decompPMat 𝑥)𝐽))
5 oveq1 6818 . . 3 (𝑛 = 𝑥 → (𝑛 𝑋) = (𝑥 𝑋))
64, 5oveq12d 6829 . 2 (𝑛 = 𝑥 → ((𝐼(𝑀 decompPMat 𝑛)𝐽) × (𝑛 𝑋)) = ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)))
7 pmatcollpw1.c . . . . 5 𝐶 = (𝑁 Mat 𝑃)
8 eqid 2758 . . . . 5 (Base‘𝑃) = (Base‘𝑃)
9 pmatcollpw1.b . . . . 5 𝐵 = (Base‘𝐶)
10 simp2 1132 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → 𝐼𝑁)
11 simp3 1133 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → 𝐽𝑁)
12 simp13 1248 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → 𝑀𝐵)
137, 8, 9, 10, 11, 12matecld 20432 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (𝐼𝑀𝐽) ∈ (Base‘𝑃))
14 eqid 2758 . . . . 5 (coe1‘(𝐼𝑀𝐽)) = (coe1‘(𝐼𝑀𝐽))
15 pmatcollpw1.p . . . . 5 𝑃 = (Poly1𝑅)
16 eqid 2758 . . . . 5 (0g𝑅) = (0g𝑅)
1714, 8, 15, 16coe1ae0 19786 . . . 4 ((𝐼𝑀𝐽) ∈ (Base‘𝑃) → ∃𝑠 ∈ ℕ0𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)))
1813, 17syl 17 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → ∃𝑠 ∈ ℕ0𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)))
19 simpl12 1317 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → 𝑅 ∈ Ring)
2012adantr 472 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → 𝑀𝐵)
21 simpr 479 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → 𝑥 ∈ ℕ0)
22 3simpc 1147 . . . . . . . . . . . . 13 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (𝐼𝑁𝐽𝑁))
2322adantr 472 . . . . . . . . . . . 12 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → (𝐼𝑁𝐽𝑁))
2415, 7, 9decpmate 20771 . . . . . . . . . . . 12 (((𝑅 ∈ Ring ∧ 𝑀𝐵𝑥 ∈ ℕ0) ∧ (𝐼𝑁𝐽𝑁)) → (𝐼(𝑀 decompPMat 𝑥)𝐽) = ((coe1‘(𝐼𝑀𝐽))‘𝑥))
2519, 20, 21, 23, 24syl31anc 1480 . . . . . . . . . . 11 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → (𝐼(𝑀 decompPMat 𝑥)𝐽) = ((coe1‘(𝐼𝑀𝐽))‘𝑥))
2625adantr 472 . . . . . . . . . 10 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) ∧ ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → (𝐼(𝑀 decompPMat 𝑥)𝐽) = ((coe1‘(𝐼𝑀𝐽))‘𝑥))
27 simpr 479 . . . . . . . . . 10 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) ∧ ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅))
2826, 27eqtrd 2792 . . . . . . . . 9 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) ∧ ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → (𝐼(𝑀 decompPMat 𝑥)𝐽) = (0g𝑅))
2928oveq1d 6826 . . . . . . . 8 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) ∧ ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = ((0g𝑅) × (𝑥 𝑋)))
30 pmatcollpw1.x . . . . . . . . . . . 12 𝑋 = (var1𝑅)
31 eqid 2758 . . . . . . . . . . . 12 (mulGrp‘𝑃) = (mulGrp‘𝑃)
32 pmatcollpw1.e . . . . . . . . . . . 12 = (.g‘(mulGrp‘𝑃))
3315, 30, 31, 32, 8ply1moncl 19841 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ 𝑥 ∈ ℕ0) → (𝑥 𝑋) ∈ (Base‘𝑃))
3419, 21, 33syl2anc 696 . . . . . . . . . 10 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → (𝑥 𝑋) ∈ (Base‘𝑃))
35 pmatcollpw1.m . . . . . . . . . . 11 × = ( ·𝑠𝑃)
3615, 8, 35, 16ply10s0 19826 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ (𝑥 𝑋) ∈ (Base‘𝑃)) → ((0g𝑅) × (𝑥 𝑋)) = (0g𝑃))
3719, 34, 36syl2anc 696 . . . . . . . . 9 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → ((0g𝑅) × (𝑥 𝑋)) = (0g𝑃))
3837adantr 472 . . . . . . . 8 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) ∧ ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → ((0g𝑅) × (𝑥 𝑋)) = (0g𝑃))
3929, 38eqtrd 2792 . . . . . . 7 (((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) ∧ ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = (0g𝑃))
4039ex 449 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → (((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅) → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = (0g𝑃)))
4140imim2d 57 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) ∧ 𝑥 ∈ ℕ0) → ((𝑠 < 𝑥 → ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → (𝑠 < 𝑥 → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = (0g𝑃))))
4241ralimdva 3098 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = (0g𝑃))))
4342reximdv 3152 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (∃𝑠 ∈ ℕ0𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((coe1‘(𝐼𝑀𝐽))‘𝑥) = (0g𝑅)) → ∃𝑠 ∈ ℕ0𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = (0g𝑃))))
4418, 43mpd 15 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → ∃𝑠 ∈ ℕ0𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝐼(𝑀 decompPMat 𝑥)𝐽) × (𝑥 𝑋)) = (0g𝑃)))
451, 2, 6, 44mptnn0fsuppd 12990 1 (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀𝐵) ∧ 𝐼𝑁𝐽𝑁) → (𝑛 ∈ ℕ0 ↦ ((𝐼(𝑀 decompPMat 𝑛)𝐽) × (𝑛 𝑋))) finSupp (0g𝑃))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383  w3a 1072   = wceq 1630  wcel 2137  wral 3048  wrex 3049  Vcvv 3338   class class class wbr 4802  cmpt 4879  cfv 6047  (class class class)co 6811  Fincfn 8119   finSupp cfsupp 8438   < clt 10264  0cn0 11482  Basecbs 16057   ·𝑠 cvsca 16145  0gc0g 16300  .gcmg 17739  mulGrpcmgp 18687  Ringcrg 18745  var1cv1 19746  Poly1cpl1 19747  coe1cco1 19748   Mat cmat 20413   decompPMat cdecpmat 20767
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1869  ax-4 1884  ax-5 1986  ax-6 2052  ax-7 2088  ax-8 2139  ax-9 2146  ax-10 2166  ax-11 2181  ax-12 2194  ax-13 2389  ax-ext 2738  ax-rep 4921  ax-sep 4931  ax-nul 4939  ax-pow 4990  ax-pr 5053  ax-un 7112  ax-inf2 8709  ax-cnex 10182  ax-resscn 10183  ax-1cn 10184  ax-icn 10185  ax-addcl 10186  ax-addrcl 10187  ax-mulcl 10188  ax-mulrcl 10189  ax-mulcom 10190  ax-addass 10191  ax-mulass 10192  ax-distr 10193  ax-i2m1 10194  ax-1ne0 10195  ax-1rid 10196  ax-rnegex 10197  ax-rrecex 10198  ax-cnre 10199  ax-pre-lttri 10200  ax-pre-lttrn 10201  ax-pre-ltadd 10202  ax-pre-mulgt0 10203
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1633  df-fal 1636  df-ex 1852  df-nf 1857  df-sb 2045  df-eu 2609  df-mo 2610  df-clab 2745  df-cleq 2751  df-clel 2754  df-nfc 2889  df-ne 2931  df-nel 3034  df-ral 3053  df-rex 3054  df-reu 3055  df-rmo 3056  df-rab 3057  df-v 3340  df-sbc 3575  df-csb 3673  df-dif 3716  df-un 3718  df-in 3720  df-ss 3727  df-pss 3729  df-nul 4057  df-if 4229  df-pw 4302  df-sn 4320  df-pr 4322  df-tp 4324  df-op 4326  df-ot 4328  df-uni 4587  df-int 4626  df-iun 4672  df-iin 4673  df-br 4803  df-opab 4863  df-mpt 4880  df-tr 4903  df-id 5172  df-eprel 5177  df-po 5185  df-so 5186  df-fr 5223  df-se 5224  df-we 5225  df-xp 5270  df-rel 5271  df-cnv 5272  df-co 5273  df-dm 5274  df-rn 5275  df-res 5276  df-ima 5277  df-pred 5839  df-ord 5885  df-on 5886  df-lim 5887  df-suc 5888  df-iota 6010  df-fun 6049  df-fn 6050  df-f 6051  df-f1 6052  df-fo 6053  df-f1o 6054  df-fv 6055  df-isom 6056  df-riota 6772  df-ov 6814  df-oprab 6815  df-mpt2 6816  df-of 7060  df-ofr 7061  df-om 7229  df-1st 7331  df-2nd 7332  df-supp 7462  df-wrecs 7574  df-recs 7635  df-rdg 7673  df-1o 7727  df-2o 7728  df-oadd 7731  df-er 7909  df-map 8023  df-pm 8024  df-ixp 8073  df-en 8120  df-dom 8121  df-sdom 8122  df-fin 8123  df-fsupp 8439  df-sup 8511  df-oi 8578  df-card 8953  df-pnf 10266  df-mnf 10267  df-xr 10268  df-ltxr 10269  df-le 10270  df-sub 10458  df-neg 10459  df-nn 11211  df-2 11269  df-3 11270  df-4 11271  df-5 11272  df-6 11273  df-7 11274  df-8 11275  df-9 11276  df-n0 11483  df-z 11568  df-dec 11684  df-uz 11878  df-fz 12518  df-fzo 12658  df-seq 12994  df-hash 13310  df-struct 16059  df-ndx 16060  df-slot 16061  df-base 16063  df-sets 16064  df-ress 16065  df-plusg 16154  df-mulr 16155  df-sca 16157  df-vsca 16158  df-ip 16159  df-tset 16160  df-ple 16161  df-ds 16164  df-hom 16166  df-cco 16167  df-0g 16302  df-gsum 16303  df-prds 16308  df-pws 16310  df-mre 16446  df-mrc 16447  df-acs 16449  df-mgm 17441  df-sgrp 17483  df-mnd 17494  df-mhm 17534  df-submnd 17535  df-grp 17624  df-minusg 17625  df-sbg 17626  df-mulg 17740  df-subg 17790  df-ghm 17857  df-cntz 17948  df-cmn 18393  df-abl 18394  df-mgp 18688  df-ur 18700  df-ring 18747  df-subrg 18978  df-lmod 19065  df-lss 19133  df-sra 19372  df-rgmod 19373  df-psr 19556  df-mvr 19557  df-mpl 19558  df-opsr 19560  df-psr1 19750  df-vr1 19751  df-ply1 19752  df-coe1 19753  df-dsmm 20276  df-frlm 20291  df-mat 20414  df-decpmat 20768
This theorem is referenced by:  pmatcollpw1  20781
  Copyright terms: Public domain W3C validator