Theorem deg1mul3le 26164

Description: Degree of multiplication of a polynomial on the left by a scalar. (Contributed by Stefan O'Rear, 1-Apr-2015.)

Hypotheses

Ref	Expression
deg1mul3le.d	⊢ 𝐷 = (deg1‘𝑅)
deg1mul3le.p	⊢ 𝑃 = (Poly1‘𝑅)
deg1mul3le.k	⊢ 𝐾 = (Base‘𝑅)
deg1mul3le.b	⊢ 𝐵 = (Base‘𝑃)
deg1mul3le.t	⊢ · = (.r‘𝑃)
deg1mul3le.a	⊢ 𝐴 = (algSc‘𝑃)

Assertion

Ref	Expression
deg1mul3le	⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (𝐷‘((𝐴‘𝐹) · 𝐺)) ≤ (𝐷‘𝐺))

Proof of Theorem deg1mul3le

Dummy variable 𝑎 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		deg1mul3le.p	. . . . . . . 8 ⊢ 𝑃 = (Poly1‘𝑅)
2	1	ply1ring 22296	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
3	2	3ad2ant1 1145	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → 𝑃 ∈ Ring)
4		deg1mul3le.a	. . . . . . . . 9 ⊢ 𝐴 = (algSc‘𝑃)
5		deg1mul3le.k	. . . . . . . . 9 ⊢ 𝐾 = (Base‘𝑅)
6		deg1mul3le.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑃)
7	1, 4, 5, 6	ply1sclf 22335	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → 𝐴:𝐾⟶𝐵)
8	7	3ad2ant1 1145	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → 𝐴:𝐾⟶𝐵)
9		simp2 1149	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → 𝐹 ∈ 𝐾)
10	8, 9	ffvelcdmd 7060	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (𝐴‘𝐹) ∈ 𝐵)
11		simp3 1150	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → 𝐺 ∈ 𝐵)
12		deg1mul3le.t	. . . . . . 7 ⊢ · = (.r‘𝑃)
13	6, 12	ringcl 20286	. . . . . 6 ⊢ ((𝑃 ∈ Ring ∧ (𝐴‘𝐹) ∈ 𝐵 ∧ 𝐺 ∈ 𝐵) → ((𝐴‘𝐹) · 𝐺) ∈ 𝐵)
14	3, 10, 11, 13	syl3anc 1389	. . . . 5 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → ((𝐴‘𝐹) · 𝐺) ∈ 𝐵)
15		eqid 2761	. . . . . 6 ⊢ (coe1‘((𝐴‘𝐹) · 𝐺)) = (coe1‘((𝐴‘𝐹) · 𝐺))
16	15, 6, 1, 5	coe1f 22260	. . . . 5 ⊢ (((𝐴‘𝐹) · 𝐺) ∈ 𝐵 → (coe1‘((𝐴‘𝐹) · 𝐺)):ℕ0⟶𝐾)
17	14, 16	syl 17	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (coe1‘((𝐴‘𝐹) · 𝐺)):ℕ0⟶𝐾)
18		eldifi 4082	. . . . . 6 ⊢ (𝑎 ∈ (ℕ0 ∖ ((coe1‘𝐺) supp (0g‘𝑅))) → 𝑎 ∈ ℕ0)
19		simpl1 1204	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ ℕ0) → 𝑅 ∈ Ring)
20		simpl2 1205	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ ℕ0) → 𝐹 ∈ 𝐾)
21		simpl3 1206	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ ℕ0) → 𝐺 ∈ 𝐵)
22		simpr 488	. . . . . . 7 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ ℕ0) → 𝑎 ∈ ℕ0)
23		eqid 2761	. . . . . . . 8 ⊢ (.r‘𝑅) = (.r‘𝑅)
24	1, 6, 5, 4, 12, 23	coe1sclmulfv 22333	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ (𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ ℕ0) → ((coe1‘((𝐴‘𝐹) · 𝐺))‘𝑎) = (𝐹(.r‘𝑅)((coe1‘𝐺)‘𝑎)))
25	19, 20, 21, 22, 24	syl121anc 1393	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ ℕ0) → ((coe1‘((𝐴‘𝐹) · 𝐺))‘𝑎) = (𝐹(.r‘𝑅)((coe1‘𝐺)‘𝑎)))
26	18, 25	sylan2 602	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ0 ∖ ((coe1‘𝐺) supp (0g‘𝑅)))) → ((coe1‘((𝐴‘𝐹) · 𝐺))‘𝑎) = (𝐹(.r‘𝑅)((coe1‘𝐺)‘𝑎)))
27		eqid 2761	. . . . . . . . 9 ⊢ (coe1‘𝐺) = (coe1‘𝐺)
28	27, 6, 1, 5	coe1f 22260	. . . . . . . 8 ⊢ (𝐺 ∈ 𝐵 → (coe1‘𝐺):ℕ0⟶𝐾)
29	28	3ad2ant3 1147	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (coe1‘𝐺):ℕ0⟶𝐾)
30		ssidd 3957	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → ((coe1‘𝐺) supp (0g‘𝑅)) ⊆ ((coe1‘𝐺) supp (0g‘𝑅)))
31		nn0ex 12480	. . . . . . . 8 ⊢ ℕ0 ∈ V
32	31	a1i 11	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → ℕ0 ∈ V)
33		fvexd 6876	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (0g‘𝑅) ∈ V)
34	29, 30, 32, 33	suppssr 8168	. . . . . 6 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ0 ∖ ((coe1‘𝐺) supp (0g‘𝑅)))) → ((coe1‘𝐺)‘𝑎) = (0g‘𝑅))
35	34	oveq2d 7406	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ0 ∖ ((coe1‘𝐺) supp (0g‘𝑅)))) → (𝐹(.r‘𝑅)((coe1‘𝐺)‘𝑎)) = (𝐹(.r‘𝑅)(0g‘𝑅)))
36		eqid 2761	. . . . . . . 8 ⊢ (0g‘𝑅) = (0g‘𝑅)
37	5, 23, 36	ringrz 20330	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾) → (𝐹(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
38	37	3adant3 1144	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (𝐹(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
39	38	adantr 484	. . . . 5 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ0 ∖ ((coe1‘𝐺) supp (0g‘𝑅)))) → (𝐹(.r‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
40	26, 35, 39	3eqtrd 2800	. . . 4 ⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) ∧ 𝑎 ∈ (ℕ0 ∖ ((coe1‘𝐺) supp (0g‘𝑅)))) → ((coe1‘((𝐴‘𝐹) · 𝐺))‘𝑎) = (0g‘𝑅))
41	17, 40	suppss 8167	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → ((coe1‘((𝐴‘𝐹) · 𝐺)) supp (0g‘𝑅)) ⊆ ((coe1‘𝐺) supp (0g‘𝑅)))
42		suppssdm 8150	. . . . 5 ⊢ ((coe1‘𝐺) supp (0g‘𝑅)) ⊆ dom (coe1‘𝐺)
43	42, 29	fssdm 6705	. . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → ((coe1‘𝐺) supp (0g‘𝑅)) ⊆ ℕ0)
44		nn0ssre 12478	. . . . 5 ⊢ ℕ0 ⊆ ℝ
45		ressxr 11219	. . . . 5 ⊢ ℝ ⊆ ℝ*
46	44, 45	sstri 3943	. . . 4 ⊢ ℕ0 ⊆ ℝ*
47	43, 46	sstrdi 3946	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → ((coe1‘𝐺) supp (0g‘𝑅)) ⊆ ℝ*)
48		supxrss 13328	. . 3 ⊢ ((((coe1‘((𝐴‘𝐹) · 𝐺)) supp (0g‘𝑅)) ⊆ ((coe1‘𝐺) supp (0g‘𝑅)) ∧ ((coe1‘𝐺) supp (0g‘𝑅)) ⊆ ℝ*) → sup(((coe1‘((𝐴‘𝐹) · 𝐺)) supp (0g‘𝑅)), ℝ*, < ) ≤ sup(((coe1‘𝐺) supp (0g‘𝑅)), ℝ*, < ))
49	41, 47, 48	syl2anc 593	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → sup(((coe1‘((𝐴‘𝐹) · 𝐺)) supp (0g‘𝑅)), ℝ*, < ) ≤ sup(((coe1‘𝐺) supp (0g‘𝑅)), ℝ*, < ))
50		deg1mul3le.d	. . . 4 ⊢ 𝐷 = (deg1‘𝑅)
51	50, 1, 6, 36, 15	deg1val 26143	. . 3 ⊢ (((𝐴‘𝐹) · 𝐺) ∈ 𝐵 → (𝐷‘((𝐴‘𝐹) · 𝐺)) = sup(((coe1‘((𝐴‘𝐹) · 𝐺)) supp (0g‘𝑅)), ℝ*, < ))
52	14, 51	syl 17	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (𝐷‘((𝐴‘𝐹) · 𝐺)) = sup(((coe1‘((𝐴‘𝐹) · 𝐺)) supp (0g‘𝑅)), ℝ*, < ))
53	50, 1, 6, 36, 27	deg1val 26143	. . 3 ⊢ (𝐺 ∈ 𝐵 → (𝐷‘𝐺) = sup(((coe1‘𝐺) supp (0g‘𝑅)), ℝ*, < ))
54	53	3ad2ant3 1147	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (𝐷‘𝐺) = sup(((coe1‘𝐺) supp (0g‘𝑅)), ℝ*, < ))
55	49, 52, 54	3brtr4d 5129	1 ⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐾 ∧ 𝐺 ∈ 𝐵) → (𝐷‘((𝐴‘𝐹) · 𝐺)) ≤ (𝐷‘𝐺))

Syntax hints:   → wi 4   ∧ wa 399   ∧ w3a 1097   = wceq 1559   ∈ wcel 2141  Vcvv 3453   ∖ cdif 3899   ⊆ wss 3902   class class class wbr 5097  ⟶wf 6511  ‘cfv 6515  (class class class)co 7390   supp csupp 8133  supcsup 9379  ℝcr 11065  ℝ^*cxr 11208   < clt 11209   ≤ cle 11210  ℕ₀cn0 12474  Basecbs 17235  ._rcmulr 17277  0_gc0g 17458  Ringcrg 20269  algSccascl 21891  Poly₁cpl1 22226  coe₁cco1 22227  deg₁cdg1 26101

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7712  ax-cnex 11122  ax-resscn 11123  ax-1cn 11124  ax-icn 11125  ax-addcl 11126  ax-addrcl 11127  ax-mulcl 11128  ax-mulrcl 11129  ax-mulcom 11130  ax-addass 11131  ax-mulass 11132  ax-distr 11133  ax-i2m1 11134  ax-1ne0 11135  ax-1rid 11136  ax-rnegex 11137  ax-rrecex 11138  ax-cnre 11139  ax-pre-lttri 11140  ax-pre-lttrn 11141  ax-pre-ltadd 11142  ax-pre-mulgt0 11143  ax-pre-sup 11144  ax-addf 11145

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4863  df-int 4903  df-iun 4948  df-iin 4949  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-se 5597  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6282  df-ord 6343  df-on 6344  df-lim 6345  df-suc 6346  df-iota 6471  df-fun 6517  df-fn 6518  df-f 6519  df-f1 6520  df-fo 6521  df-f1o 6522  df-fv 6523  df-isom 6524  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-of 7654  df-ofr 7655  df-om 7841  df-1st 7964  df-2nd 7965  df-supp 8134  df-frecs 8255  df-wrecs 8286  df-recs 8335  df-rdg 8374  df-1o 8430  df-2o 8431  df-er 8671  df-map 8803  df-pm 8804  df-ixp 8873  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-fsupp 9301  df-sup 9381  df-oi 9451  df-card 9890  df-pnf 11211  df-mnf 11212  df-xr 11213  df-ltxr 11214  df-le 11215  df-sub 11409  df-neg 11410  df-nn 12204  df-2 12273  df-3 12274  df-4 12275  df-5 12276  df-6 12277  df-7 12278  df-8 12279  df-9 12280  df-n0 12475  df-z 12562  df-dec 12682  df-uz 12833  df-fz 13506  df-fzo 13653  df-seq 14008  df-hash 14337  df-struct 17173  df-sets 17190  df-slot 17208  df-ndx 17220  df-base 17236  df-ress 17257  df-plusg 17289  df-mulr 17290  df-starv 17291  df-sca 17292  df-vsca 17293  df-ip 17294  df-tset 17295  df-ple 17296  df-ds 17298  df-unif 17299  df-hom 17300  df-cco 17301  df-0g 17460  df-gsum 17461  df-prds 17466  df-pws 17468  df-mre 17604  df-mrc 17605  df-acs 17607  df-mgm 18664  df-sgrp 18743  df-mnd 18759  df-mhm 18807  df-submnd 18808  df-grp 18968  df-minusg 18969  df-sbg 18970  df-mulg 19100  df-subg 19155  df-ghm 19244  df-cntz 19347  df-cmn 19812  df-abl 19813  df-mgp 20177  df-rng 20189  df-ur 20218  df-ring 20271  df-cring 20272  df-subrng 20582  df-subrg 20606  df-lmod 20916  df-lss 20986  df-cnfld 21412  df-ascl 21894  df-psr 21948  df-mvr 21949  df-mpl 21950  df-opsr 21952  df-psr1 22229  df-vr1 22230  df-ply1 22231  df-coe1 22232  df-mdeg 26102  df-deg1 26103

This theorem is referenced by:  rtelextdg2lem  33983  hbtlem2  43661