Theorem evl1rhm 22558

Description: Polynomial evaluation is a homomorphism (into the product ring). (Contributed by Mario Carneiro, 12-Jun-2015.) (Proof shortened by AV, 13-Sep-2019.)

Hypotheses

Ref	Expression
evl1rhm.q	⊢ 𝑂 = (eval1‘𝑅)
evl1rhm.w	⊢ 𝑃 = (Poly1‘𝑅)
evl1rhm.t	⊢ 𝑇 = (𝑅 ↑s 𝐵)
evl1rhm.b	⊢ 𝐵 = (Base‘𝑅)

Assertion

Ref	Expression
evl1rhm	⊢ (𝑅 ∈ CRing → 𝑂 ∈ (𝑃 RingHom 𝑇))

Proof of Theorem evl1rhm

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		evl1rhm.q	. . 3 ⊢ 𝑂 = (eval1‘𝑅)
2		eqid 2760	. . 3 ⊢ (1o eval 𝑅) = (1o eval 𝑅)
3		evl1rhm.b	. . 3 ⊢ 𝐵 = (Base‘𝑅)
4	1, 2, 3	evl1fval 22554	. 2 ⊢ 𝑂 = ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑅))
5		evl1rhm.t	. . . 4 ⊢ 𝑇 = (𝑅 ↑s 𝐵)
6		eqid 2760	. . . 4 ⊢ (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) = (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦}))))
7	3, 5, 6	evls1rhmlem 22547	. . 3 ⊢ (𝑅 ∈ CRing → (𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ ((𝑅 ↑s (𝐵 ↑m 1o)) RingHom 𝑇))
8		1on 8469	. . . . 5 ⊢ 1o ∈ On
9		eqid 2760	. . . . . 6 ⊢ (1o mPoly 𝑅) = (1o mPoly 𝑅)
10		eqid 2760	. . . . . 6 ⊢ (𝑅 ↑s (𝐵 ↑m 1o)) = (𝑅 ↑s (𝐵 ↑m 1o))
11	2, 3, 9, 10	evlrhm 22318	. . . . 5 ⊢ ((1o ∈ On ∧ 𝑅 ∈ CRing) → (1o eval 𝑅) ∈ ((1o mPoly 𝑅) RingHom (𝑅 ↑s (𝐵 ↑m 1o))))
12	8, 11	mpan 703	. . . 4 ⊢ (𝑅 ∈ CRing → (1o eval 𝑅) ∈ ((1o mPoly 𝑅) RingHom (𝑅 ↑s (𝐵 ↑m 1o))))
13		eqidd 2761	. . . . 5 ⊢ (𝑅 ∈ CRing → (Base‘𝑃) = (Base‘𝑃))
14		eqidd 2761	. . . . 5 ⊢ (𝑅 ∈ CRing → (Base‘(𝑅 ↑s (𝐵 ↑m 1o))) = (Base‘(𝑅 ↑s (𝐵 ↑m 1o))))
15		evl1rhm.w	. . . . . . 7 ⊢ 𝑃 = (Poly1‘𝑅)
16		eqid 2760	. . . . . . 7 ⊢ (Base‘𝑃) = (Base‘𝑃)
17	15, 16	ply1bas 22421	. . . . . 6 ⊢ (Base‘𝑃) = (Base‘(1o mPoly 𝑅))
18	17	a1i 11	. . . . 5 ⊢ (𝑅 ∈ CRing → (Base‘𝑃) = (Base‘(1o mPoly 𝑅)))
19		eqid 2760	. . . . . . . 8 ⊢ (+g‘𝑃) = (+g‘𝑃)
20	15, 9, 19	ply1plusg 22449	. . . . . . 7 ⊢ (+g‘𝑃) = (+g‘(1o mPoly 𝑅))
21	20	a1i 11	. . . . . 6 ⊢ (𝑅 ∈ CRing → (+g‘𝑃) = (+g‘(1o mPoly 𝑅)))
22	21	oveqdr 7442	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (𝑥(+g‘𝑃)𝑦) = (𝑥(+g‘(1o mPoly 𝑅))𝑦))
23		eqidd 2761	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ (𝑥 ∈ (Base‘(𝑅 ↑s (𝐵 ↑m 1o))) ∧ 𝑦 ∈ (Base‘(𝑅 ↑s (𝐵 ↑m 1o))))) → (𝑥(+g‘(𝑅 ↑s (𝐵 ↑m 1o)))𝑦) = (𝑥(+g‘(𝑅 ↑s (𝐵 ↑m 1o)))𝑦))
24		eqid 2760	. . . . . . . 8 ⊢ (.r‘𝑃) = (.r‘𝑃)
25	15, 9, 24	ply1mulr 22451	. . . . . . 7 ⊢ (.r‘𝑃) = (.r‘(1o mPoly 𝑅))
26	25	a1i 11	. . . . . 6 ⊢ (𝑅 ∈ CRing → (.r‘𝑃) = (.r‘(1o mPoly 𝑅)))
27	26	oveqdr 7442	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (𝑥(.r‘𝑃)𝑦) = (𝑥(.r‘(1o mPoly 𝑅))𝑦))
28		eqidd 2761	. . . . 5 ⊢ ((𝑅 ∈ CRing ∧ (𝑥 ∈ (Base‘(𝑅 ↑s (𝐵 ↑m 1o))) ∧ 𝑦 ∈ (Base‘(𝑅 ↑s (𝐵 ↑m 1o))))) → (𝑥(.r‘(𝑅 ↑s (𝐵 ↑m 1o)))𝑦) = (𝑥(.r‘(𝑅 ↑s (𝐵 ↑m 1o)))𝑦))
29	13, 14, 18, 14, 22, 23, 27, 28	rhmpropd 20772	. . . 4 ⊢ (𝑅 ∈ CRing → (𝑃 RingHom (𝑅 ↑s (𝐵 ↑m 1o))) = ((1o mPoly 𝑅) RingHom (𝑅 ↑s (𝐵 ↑m 1o))))
30	12, 29	eleqtrrd 2863	. . 3 ⊢ (𝑅 ∈ CRing → (1o eval 𝑅) ∈ (𝑃 RingHom (𝑅 ↑s (𝐵 ↑m 1o))))
31		rhmco 20651	. . 3 ⊢ (((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∈ ((𝑅 ↑s (𝐵 ↑m 1o)) RingHom 𝑇) ∧ (1o eval 𝑅) ∈ (𝑃 RingHom (𝑅 ↑s (𝐵 ↑m 1o)))) → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑅)) ∈ (𝑃 RingHom 𝑇))
32	7, 30, 31	syl2anc 596	. 2 ⊢ (𝑅 ∈ CRing → ((𝑥 ∈ (𝐵 ↑m (𝐵 ↑m 1o)) ↦ (𝑥 ∘ (𝑦 ∈ 𝐵 ↦ (1o × {𝑦})))) ∘ (1o eval 𝑅)) ∈ (𝑃 RingHom 𝑇))
33	4, 32	eqeltrid 2864	1 ⊢ (𝑅 ∈ CRing → 𝑂 ∈ (𝑃 RingHom 𝑇))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2145  {csn 4584   ↦ cmpt 5186   × cxp 5653   ∘ ccom 5659  Oncon0 6357  ‘cfv 6533  (class class class)co 7414  1_oc1o 8449   ↑_m cmap 8827  Basecbs 17302  +_gcplusg 17343  ._rcmulr 17344   ↑_s cpws 17532  CRingccrg 20374   RingHom crh 20611   mPoly cmpl 22122   eval cevl 22290  Poly₁cpl1 22403  eval₁ce1 22540

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202

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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-ofr 7680  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8160  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8456  df-2o 8457  df-er 8697  df-map 8829  df-pm 8830  df-ixp 8906  df-en 8954  df-dom 8955  df-sdom 8956  df-fin 8957  df-fsupp 9333  df-sup 9413  df-oi 9483  df-card 9945  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-nn 12259  df-2 12328  df-3 12329  df-4 12330  df-5 12331  df-6 12332  df-7 12333  df-8 12334  df-9 12335  df-n0 12530  df-z 12617  df-dec 12738  df-uz 12889  df-fz 13563  df-fzo 13711  df-seq 14067  df-hash 14396  df-struct 17240  df-sets 17257  df-slot 17275  df-ndx 17287  df-base 17303  df-ress 17324  df-plusg 17356  df-mulr 17357  df-sca 17359  df-vsca 17360  df-ip 17361  df-tset 17362  df-ple 17363  df-ds 17365  df-hom 17367  df-cco 17368  df-0g 17527  df-gsum 17528  df-prds 17533  df-pws 17535  df-mre 17671  df-mrc 17672  df-acs 17674  df-mgm 18731  df-sgrp 18822  df-mnd 18838  df-mhm 18892  df-submnd 18893  df-grp 19061  df-minusg 19062  df-sbg 19063  df-mulg 19192  df-subg 19247  df-ghm 19342  df-cntz 19445  df-cmn 19910  df-abl 19911  df-mgp 20275  df-rng 20289  df-ur 20322  df-srg 20327  df-ring 20375  df-cring 20376  df-rhm 20614  df-subrng 20709  df-subrg 20733  df-lmod 21047  df-lss 21117  df-lsp 21157  df-assa 22069  df-asp 22070  df-ascl 22071  df-psr 22125  df-mvr 22126  df-mpl 22127  df-opsr 22129  df-evls 22291  df-evl 22292  df-psr1 22406  df-ply1 22408  df-evl1 22542

This theorem is used by:  fveval1fvcl  22559  evl1addd  22567  evl1subd  22568  evl1muld  22569  evl1expd  22571  pf1const  22572  pf1id  22573  pf1subrg  22574  mpfpf1  22577  pf1mpf  22578  evl1gsummul  22586  evl1scvarpw  22589  ressply1evl  22596  ply1remlem  26391  ply1rem  26392  fta1glem1  26394  fta1glem2  26395  fta1g  26396  fta1blem  26397  idomrootle  26399  plypf1  26439  lgsqrlem2  27584  lgsqrlem3  27585  evl1fvf  33974  irngss  34198  pl1cn  34466  aks6d1c2lem4  42994  aks6d1c6lem2  43038