Theorem pwsco2rhm 19493

Description: Left composition with a ring homomorphism yields a ring homomorphism of structure powers. (Contributed by Mario Carneiro, 12-Jun-2015.)

Hypotheses

Ref	Expression
pwsco2rhm.y	⊢ 𝑌 = (𝑅 ↑s 𝐴)
pwsco2rhm.z	⊢ 𝑍 = (𝑆 ↑s 𝐴)
pwsco2rhm.b	⊢ 𝐵 = (Base‘𝑌)
pwsco2rhm.a	⊢ (𝜑 → 𝐴 ∈ 𝑉)
pwsco2rhm.f	⊢ (𝜑 → 𝐹 ∈ (𝑅 RingHom 𝑆))

Assertion

Ref	Expression
pwsco2rhm	⊢ (𝜑 → (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 RingHom 𝑍))

Distinct variable groups:   𝐴,𝑔   𝜑,𝑔   𝑅,𝑔   𝑆,𝑔   𝑔,𝑌   𝐵,𝑔   𝑔,𝐹   𝑔,𝑍

Allowed substitution hint:   𝑉(𝑔)

Proof of Theorem pwsco2rhm

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

Step	Hyp	Ref	Expression
1		pwsco2rhm.f	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝑅 RingHom 𝑆))
2		rhmrcl1 19473	. . . 4 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝑅 ∈ Ring)
3	1, 2	syl 17	. . 3 ⊢ (𝜑 → 𝑅 ∈ Ring)
4		pwsco2rhm.a	. . 3 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
5		pwsco2rhm.y	. . . 4 ⊢ 𝑌 = (𝑅 ↑s 𝐴)
6	5	pwsring 19367	. . 3 ⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ 𝑉) → 𝑌 ∈ Ring)
7	3, 4, 6	syl2anc 586	. 2 ⊢ (𝜑 → 𝑌 ∈ Ring)
8		rhmrcl2 19474	. . . 4 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝑆 ∈ Ring)
9	1, 8	syl 17	. . 3 ⊢ (𝜑 → 𝑆 ∈ Ring)
10		pwsco2rhm.z	. . . 4 ⊢ 𝑍 = (𝑆 ↑s 𝐴)
11	10	pwsring 19367	. . 3 ⊢ ((𝑆 ∈ Ring ∧ 𝐴 ∈ 𝑉) → 𝑍 ∈ Ring)
12	9, 4, 11	syl2anc 586	. 2 ⊢ (𝜑 → 𝑍 ∈ Ring)
13		pwsco2rhm.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑌)
14		rhmghm 19479	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
15	1, 14	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ (𝑅 GrpHom 𝑆))
16		ghmmhm 18370	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝐹 ∈ (𝑅 MndHom 𝑆))
17	15, 16	syl 17	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝑅 MndHom 𝑆))
18	5, 10, 13, 4, 17	pwsco2mhm 17999	. . . 4 ⊢ (𝜑 → (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 MndHom 𝑍))
19		ringgrp 19304	. . . . . 6 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Grp)
20	7, 19	syl 17	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ Grp)
21		ringgrp 19304	. . . . . 6 ⊢ (𝑍 ∈ Ring → 𝑍 ∈ Grp)
22	12, 21	syl 17	. . . . 5 ⊢ (𝜑 → 𝑍 ∈ Grp)
23		ghmmhmb 18371	. . . . 5 ⊢ ((𝑌 ∈ Grp ∧ 𝑍 ∈ Grp) → (𝑌 GrpHom 𝑍) = (𝑌 MndHom 𝑍))
24	20, 22, 23	syl2anc 586	. . . 4 ⊢ (𝜑 → (𝑌 GrpHom 𝑍) = (𝑌 MndHom 𝑍))
25	18, 24	eleqtrrd 2918	. . 3 ⊢ (𝜑 → (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 GrpHom 𝑍))
26		eqid 2823	. . . . 5 ⊢ ((mulGrp‘𝑅) ↑s 𝐴) = ((mulGrp‘𝑅) ↑s 𝐴)
27		eqid 2823	. . . . 5 ⊢ ((mulGrp‘𝑆) ↑s 𝐴) = ((mulGrp‘𝑆) ↑s 𝐴)
28		eqid 2823	. . . . 5 ⊢ (Base‘((mulGrp‘𝑅) ↑s 𝐴)) = (Base‘((mulGrp‘𝑅) ↑s 𝐴))
29		eqid 2823	. . . . . . 7 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
30		eqid 2823	. . . . . . 7 ⊢ (mulGrp‘𝑆) = (mulGrp‘𝑆)
31	29, 30	rhmmhm 19476	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ ((mulGrp‘𝑅) MndHom (mulGrp‘𝑆)))
32	1, 31	syl 17	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ ((mulGrp‘𝑅) MndHom (mulGrp‘𝑆)))
33	26, 27, 28, 4, 32	pwsco2mhm 17999	. . . 4 ⊢ (𝜑 → (𝑔 ∈ (Base‘((mulGrp‘𝑅) ↑s 𝐴)) ↦ (𝐹 ∘ 𝑔)) ∈ (((mulGrp‘𝑅) ↑s 𝐴) MndHom ((mulGrp‘𝑆) ↑s 𝐴)))
34		eqid 2823	. . . . . . . . 9 ⊢ (Base‘𝑅) = (Base‘𝑅)
35	5, 34	pwsbas 16762	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ 𝑉) → ((Base‘𝑅) ↑m 𝐴) = (Base‘𝑌))
36	3, 4, 35	syl2anc 586	. . . . . . 7 ⊢ (𝜑 → ((Base‘𝑅) ↑m 𝐴) = (Base‘𝑌))
37	36, 13	syl6eqr 2876	. . . . . 6 ⊢ (𝜑 → ((Base‘𝑅) ↑m 𝐴) = 𝐵)
38	29	ringmgp 19305	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
39	3, 38	syl 17	. . . . . . 7 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ Mnd)
40	29, 34	mgpbas 19247	. . . . . . . 8 ⊢ (Base‘𝑅) = (Base‘(mulGrp‘𝑅))
41	26, 40	pwsbas 16762	. . . . . . 7 ⊢ (((mulGrp‘𝑅) ∈ Mnd ∧ 𝐴 ∈ 𝑉) → ((Base‘𝑅) ↑m 𝐴) = (Base‘((mulGrp‘𝑅) ↑s 𝐴)))
42	39, 4, 41	syl2anc 586	. . . . . 6 ⊢ (𝜑 → ((Base‘𝑅) ↑m 𝐴) = (Base‘((mulGrp‘𝑅) ↑s 𝐴)))
43	37, 42	eqtr3d 2860	. . . . 5 ⊢ (𝜑 → 𝐵 = (Base‘((mulGrp‘𝑅) ↑s 𝐴)))
44	43	mpteq1d 5157	. . . 4 ⊢ (𝜑 → (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) = (𝑔 ∈ (Base‘((mulGrp‘𝑅) ↑s 𝐴)) ↦ (𝐹 ∘ 𝑔)))
45		eqidd 2824	. . . . 5 ⊢ (𝜑 → (Base‘(mulGrp‘𝑌)) = (Base‘(mulGrp‘𝑌)))
46		eqidd 2824	. . . . 5 ⊢ (𝜑 → (Base‘(mulGrp‘𝑍)) = (Base‘(mulGrp‘𝑍)))
47		eqid 2823	. . . . . . . 8 ⊢ (mulGrp‘𝑌) = (mulGrp‘𝑌)
48		eqid 2823	. . . . . . . 8 ⊢ (Base‘(mulGrp‘𝑌)) = (Base‘(mulGrp‘𝑌))
49		eqid 2823	. . . . . . . 8 ⊢ (+g‘(mulGrp‘𝑌)) = (+g‘(mulGrp‘𝑌))
50		eqid 2823	. . . . . . . 8 ⊢ (+g‘((mulGrp‘𝑅) ↑s 𝐴)) = (+g‘((mulGrp‘𝑅) ↑s 𝐴))
51	5, 29, 26, 47, 48, 28, 49, 50	pwsmgp 19370	. . . . . . 7 ⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ 𝑉) → ((Base‘(mulGrp‘𝑌)) = (Base‘((mulGrp‘𝑅) ↑s 𝐴)) ∧ (+g‘(mulGrp‘𝑌)) = (+g‘((mulGrp‘𝑅) ↑s 𝐴))))
52	3, 4, 51	syl2anc 586	. . . . . 6 ⊢ (𝜑 → ((Base‘(mulGrp‘𝑌)) = (Base‘((mulGrp‘𝑅) ↑s 𝐴)) ∧ (+g‘(mulGrp‘𝑌)) = (+g‘((mulGrp‘𝑅) ↑s 𝐴))))
53	52	simpld 497	. . . . 5 ⊢ (𝜑 → (Base‘(mulGrp‘𝑌)) = (Base‘((mulGrp‘𝑅) ↑s 𝐴)))
54		eqid 2823	. . . . . . . 8 ⊢ (mulGrp‘𝑍) = (mulGrp‘𝑍)
55		eqid 2823	. . . . . . . 8 ⊢ (Base‘(mulGrp‘𝑍)) = (Base‘(mulGrp‘𝑍))
56		eqid 2823	. . . . . . . 8 ⊢ (Base‘((mulGrp‘𝑆) ↑s 𝐴)) = (Base‘((mulGrp‘𝑆) ↑s 𝐴))
57		eqid 2823	. . . . . . . 8 ⊢ (+g‘(mulGrp‘𝑍)) = (+g‘(mulGrp‘𝑍))
58		eqid 2823	. . . . . . . 8 ⊢ (+g‘((mulGrp‘𝑆) ↑s 𝐴)) = (+g‘((mulGrp‘𝑆) ↑s 𝐴))
59	10, 30, 27, 54, 55, 56, 57, 58	pwsmgp 19370	. . . . . . 7 ⊢ ((𝑆 ∈ Ring ∧ 𝐴 ∈ 𝑉) → ((Base‘(mulGrp‘𝑍)) = (Base‘((mulGrp‘𝑆) ↑s 𝐴)) ∧ (+g‘(mulGrp‘𝑍)) = (+g‘((mulGrp‘𝑆) ↑s 𝐴))))
60	9, 4, 59	syl2anc 586	. . . . . 6 ⊢ (𝜑 → ((Base‘(mulGrp‘𝑍)) = (Base‘((mulGrp‘𝑆) ↑s 𝐴)) ∧ (+g‘(mulGrp‘𝑍)) = (+g‘((mulGrp‘𝑆) ↑s 𝐴))))
61	60	simpld 497	. . . . 5 ⊢ (𝜑 → (Base‘(mulGrp‘𝑍)) = (Base‘((mulGrp‘𝑆) ↑s 𝐴)))
62	52	simprd 498	. . . . . 6 ⊢ (𝜑 → (+g‘(mulGrp‘𝑌)) = (+g‘((mulGrp‘𝑅) ↑s 𝐴)))
63	62	oveqdr 7186	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(mulGrp‘𝑌)) ∧ 𝑦 ∈ (Base‘(mulGrp‘𝑌)))) → (𝑥(+g‘(mulGrp‘𝑌))𝑦) = (𝑥(+g‘((mulGrp‘𝑅) ↑s 𝐴))𝑦))
64	60	simprd 498	. . . . . 6 ⊢ (𝜑 → (+g‘(mulGrp‘𝑍)) = (+g‘((mulGrp‘𝑆) ↑s 𝐴)))
65	64	oveqdr 7186	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘(mulGrp‘𝑍)) ∧ 𝑦 ∈ (Base‘(mulGrp‘𝑍)))) → (𝑥(+g‘(mulGrp‘𝑍))𝑦) = (𝑥(+g‘((mulGrp‘𝑆) ↑s 𝐴))𝑦))
66	45, 46, 53, 61, 63, 65	mhmpropd 17964	. . . 4 ⊢ (𝜑 → ((mulGrp‘𝑌) MndHom (mulGrp‘𝑍)) = (((mulGrp‘𝑅) ↑s 𝐴) MndHom ((mulGrp‘𝑆) ↑s 𝐴)))
67	33, 44, 66	3eltr4d 2930	. . 3 ⊢ (𝜑 → (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ ((mulGrp‘𝑌) MndHom (mulGrp‘𝑍)))
68	25, 67	jca 514	. 2 ⊢ (𝜑 → ((𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 GrpHom 𝑍) ∧ (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ ((mulGrp‘𝑌) MndHom (mulGrp‘𝑍))))
69	47, 54	isrhm 19475	. 2 ⊢ ((𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 RingHom 𝑍) ↔ ((𝑌 ∈ Ring ∧ 𝑍 ∈ Ring) ∧ ((𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 GrpHom 𝑍) ∧ (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ ((mulGrp‘𝑌) MndHom (mulGrp‘𝑍)))))
70	7, 12, 68, 69	syl21anbrc 1340	1 ⊢ (𝜑 → (𝑔 ∈ 𝐵 ↦ (𝐹 ∘ 𝑔)) ∈ (𝑌 RingHom 𝑍))

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114   ↦ cmpt 5148   ∘ ccom 5561  ‘cfv 6357  (class class class)co 7158   ↑_m cmap 8408  Basecbs 16485  +_gcplusg 16567   ↑_s cpws 16722  Mndcmnd 17913   MndHom cmhm 17956  Grpcgrp 18105   GrpHom cghm 18357  mulGrpcmgp 19241  Ringcrg 19299   RingHom crh 19466

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-om 7583  df-1st 7691  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-oadd 8108  df-er 8291  df-map 8410  df-ixp 8464  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-sup 8908  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-fz 12896  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-plusg 16580  df-mulr 16581  df-sca 16583  df-vsca 16584  df-ip 16585  df-tset 16586  df-ple 16587  df-ds 16589  df-hom 16591  df-cco 16592  df-0g 16717  df-prds 16723  df-pws 16725  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-mhm 17958  df-grp 18108  df-minusg 18109  df-ghm 18358  df-mgp 19242  df-ur 19254  df-ring 19301  df-rnghom 19469

This theorem is referenced by: (None)