Theorem rhmply1vr1 22373

Description: A ring homomorphism between two univariate polynomial algebras sends one variable to the other. (Contributed by SN, 20-May-2025.)

Hypotheses

Ref	Expression
rhmply1vr1.p	⊢ 𝑃 = (Poly1‘𝑅)
rhmply1vr1.q	⊢ 𝑄 = (Poly1‘𝑆)
rhmply1vr1.b	⊢ 𝐵 = (Base‘𝑃)
rhmply1vr1.f	⊢ 𝐹 = (𝑝 ∈ 𝐵 ↦ (𝐻 ∘ 𝑝))
rhmply1vr1.x	⊢ 𝑋 = (var1‘𝑅)
rhmply1vr1.y	⊢ 𝑌 = (var1‘𝑆)
rhmply1vr1.h	⊢ (𝜑 → 𝐻 ∈ (𝑅 RingHom 𝑆))

Assertion

Ref	Expression
rhmply1vr1	⊢ (𝜑 → (𝐹‘𝑋) = 𝑌)

Distinct variable groups:   𝑋,𝑝   𝐻,𝑝   𝐵,𝑝

Allowed substitution hints:   𝜑(𝑝)   𝑃(𝑝)   𝑄(𝑝)   𝑅(𝑝)   𝑆(𝑝)   𝐹(𝑝)   𝑌(𝑝)

Proof of Theorem rhmply1vr1

Dummy variables 𝑓 ℎ 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		rhmply1vr1.f	. . 3 ⊢ 𝐹 = (𝑝 ∈ 𝐵 ↦ (𝐻 ∘ 𝑝))
2		coeq2 5802	. . 3 ⊢ (𝑝 = 𝑋 → (𝐻 ∘ 𝑝) = (𝐻 ∘ 𝑋))
3		rhmply1vr1.h	. . . . 5 ⊢ (𝜑 → 𝐻 ∈ (𝑅 RingHom 𝑆))
4		rhmrcl1 20450	. . . . 5 ⊢ (𝐻 ∈ (𝑅 RingHom 𝑆) → 𝑅 ∈ Ring)
5	3, 4	syl 17	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Ring)
6		rhmply1vr1.x	. . . . 5 ⊢ 𝑋 = (var1‘𝑅)
7		rhmply1vr1.p	. . . . 5 ⊢ 𝑃 = (Poly1‘𝑅)
8		rhmply1vr1.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑃)
9	6, 7, 8	vr1cl 22205	. . . 4 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ 𝐵)
10	5, 9	syl 17	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
11	6	fvexi 6844	. . . . 5 ⊢ 𝑋 ∈ V
12	11	a1i 11	. . . 4 ⊢ (𝜑 → 𝑋 ∈ V)
13	3, 12	coexd 7875	. . 3 ⊢ (𝜑 → (𝐻 ∘ 𝑋) ∈ V)
14	1, 2, 10, 13	fvmptd3 6962	. 2 ⊢ (𝜑 → (𝐹‘𝑋) = (𝐻 ∘ 𝑋))
15		eqid 2741	. . . . . . . 8 ⊢ (Base‘𝑅) = (Base‘𝑅)
16		eqid 2741	. . . . . . . 8 ⊢ (Base‘𝑆) = (Base‘𝑆)
17	15, 16	rhmf 20458	. . . . . . 7 ⊢ (𝐻 ∈ (𝑅 RingHom 𝑆) → 𝐻:(Base‘𝑅)⟶(Base‘𝑆))
18	3, 17	syl 17	. . . . . 6 ⊢ (𝜑 → 𝐻:(Base‘𝑅)⟶(Base‘𝑆))
19		eqid 2741	. . . . . . . . . 10 ⊢ (1r‘𝑅) = (1r‘𝑅)
20	15, 19	ringidcl 20240	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Base‘𝑅))
21	5, 20	syl 17	. . . . . . . 8 ⊢ (𝜑 → (1r‘𝑅) ∈ (Base‘𝑅))
22		eqid 2741	. . . . . . . . . 10 ⊢ (0g‘𝑅) = (0g‘𝑅)
23	15, 22	ring0cl 20242	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → (0g‘𝑅) ∈ (Base‘𝑅))
24	5, 23	syl 17	. . . . . . . 8 ⊢ (𝜑 → (0g‘𝑅) ∈ (Base‘𝑅))
25	21, 24	ifcld 4503	. . . . . . 7 ⊢ (𝜑 → if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)) ∈ (Base‘𝑅))
26	25	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin}) → if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)) ∈ (Base‘𝑅))
27	18, 26	cofmpt 7077	. . . . 5 ⊢ (𝜑 → (𝐻 ∘ (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)))) = (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐻‘if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)))))
28		fvif 6846	. . . . . . 7 ⊢ (𝐻‘if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅))) = if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (𝐻‘(1r‘𝑅)), (𝐻‘(0g‘𝑅)))
29		eqid 2741	. . . . . . . . . 10 ⊢ (1r‘𝑆) = (1r‘𝑆)
30	19, 29	rhm1 20463	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑅 RingHom 𝑆) → (𝐻‘(1r‘𝑅)) = (1r‘𝑆))
31	3, 30	syl 17	. . . . . . . 8 ⊢ (𝜑 → (𝐻‘(1r‘𝑅)) = (1r‘𝑆))
32		rhmghm 20457	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑅 RingHom 𝑆) → 𝐻 ∈ (𝑅 GrpHom 𝑆))
33		eqid 2741	. . . . . . . . . 10 ⊢ (0g‘𝑆) = (0g‘𝑆)
34	22, 33	ghmid 19191	. . . . . . . . 9 ⊢ (𝐻 ∈ (𝑅 GrpHom 𝑆) → (𝐻‘(0g‘𝑅)) = (0g‘𝑆))
35	3, 32, 34	3syl 18	. . . . . . . 8 ⊢ (𝜑 → (𝐻‘(0g‘𝑅)) = (0g‘𝑆))
36	31, 35	ifeq12d 4478	. . . . . . 7 ⊢ (𝜑 → if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (𝐻‘(1r‘𝑅)), (𝐻‘(0g‘𝑅))) = if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑆), (0g‘𝑆)))
37	28, 36	eqtrid 2788	. . . . . 6 ⊢ (𝜑 → (𝐻‘if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅))) = if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑆), (0g‘𝑆)))
38	37	mpteq2dv 5168	. . . . 5 ⊢ (𝜑 → (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐻‘if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)))) = (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑆), (0g‘𝑆))))
39	27, 38	eqtrd 2776	. . . 4 ⊢ (𝜑 → (𝐻 ∘ (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)))) = (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑆), (0g‘𝑆))))
40		eqid 2741	. . . . . 6 ⊢ (1o mVar 𝑅) = (1o mVar 𝑅)
41		eqid 2741	. . . . . 6 ⊢ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} = {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin}
42		1oex 8409	. . . . . . 7 ⊢ 1o ∈ V
43	42	a1i 11	. . . . . 6 ⊢ (𝜑 → 1o ∈ V)
44		0lt1o 8433	. . . . . . 7 ⊢ ∅ ∈ 1o
45	44	a1i 11	. . . . . 6 ⊢ (𝜑 → ∅ ∈ 1o)
46	40, 41, 22, 19, 43, 5, 45	mvrval 21959	. . . . 5 ⊢ (𝜑 → ((1o mVar 𝑅)‘∅) = (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅))))
47	46	coeq2d 5806	. . . 4 ⊢ (𝜑 → (𝐻 ∘ ((1o mVar 𝑅)‘∅)) = (𝐻 ∘ (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑅), (0g‘𝑅)))))
48		eqid 2741	. . . . 5 ⊢ (1o mVar 𝑆) = (1o mVar 𝑆)
49		rhmrcl2 20451	. . . . . 6 ⊢ (𝐻 ∈ (𝑅 RingHom 𝑆) → 𝑆 ∈ Ring)
50	3, 49	syl 17	. . . . 5 ⊢ (𝜑 → 𝑆 ∈ Ring)
51	48, 41, 33, 29, 43, 50, 45	mvrval 21959	. . . 4 ⊢ (𝜑 → ((1o mVar 𝑆)‘∅) = (𝑓 ∈ {ℎ ∈ (ℕ0 ↑m 1o) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ if(𝑓 = (𝑦 ∈ 1o ↦ if(𝑦 = ∅, 1, 0)), (1r‘𝑆), (0g‘𝑆))))
52	39, 47, 51	3eqtr4d 2786	. . 3 ⊢ (𝜑 → (𝐻 ∘ ((1o mVar 𝑅)‘∅)) = ((1o mVar 𝑆)‘∅))
53	6	vr1val 22180	. . . 4 ⊢ 𝑋 = ((1o mVar 𝑅)‘∅)
54	53	coeq2i 5804	. . 3 ⊢ (𝐻 ∘ 𝑋) = (𝐻 ∘ ((1o mVar 𝑅)‘∅))
55		rhmply1vr1.y	. . . 4 ⊢ 𝑌 = (var1‘𝑆)
56	55	vr1val 22180	. . 3 ⊢ 𝑌 = ((1o mVar 𝑆)‘∅)
57	52, 54, 56	3eqtr4g 2801	. 2 ⊢ (𝜑 → (𝐻 ∘ 𝑋) = 𝑌)
58	14, 57	eqtrd 2776	1 ⊢ (𝜑 → (𝐹‘𝑋) = 𝑌)

Syntax hints:   → wi 4   = wceq 1548   ∈ wcel 2121  {crab 3393  Vcvv 3433  ∅c0 4263  ifcif 4456   ↦ cmpt 5155  ^◡ccnv 5619   “ cima 5623   ∘ ccom 5624  ⟶wf 6484  ‘cfv 6488  (class class class)co 7359  1_oc1o 8392   ↑_m cmap 8767  Fincfn 8887  0cc0 11034  1c1 11035  ℕcn 12169  ℕ₀cn0 12432  Basecbs 17174  0_gc0g 17397   GrpHom cghm 19182  1_rcur 20156  Ringcrg 20208   RingHom crh 20443   mVar cmvr 21883  var₁cv1 22164  Poly₁cpl1 22165

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7681  ax-cnex 11090  ax-resscn 11091  ax-1cn 11092  ax-icn 11093  ax-addcl 11094  ax-addrcl 11095  ax-mulcl 11096  ax-mulrcl 11097  ax-mulcom 11098  ax-addass 11099  ax-mulass 11100  ax-distr 11101  ax-i2m1 11102  ax-1ne0 11103  ax-1rid 11104  ax-rnegex 11105  ax-rrecex 11106  ax-cnre 11107  ax-pre-lttri 11108  ax-pre-lttrn 11109  ax-pre-ltadd 11110  ax-pre-mulgt0 11111

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-nel 3041  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3725  df-csb 3833  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-pss 3904  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-tp 4562  df-op 4564  df-uni 4841  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6255  df-ord 6316  df-on 6317  df-lim 6318  df-suc 6319  df-iota 6444  df-fun 6490  df-fn 6491  df-f 6492  df-f1 6493  df-fo 6494  df-f1o 6495  df-fv 6496  df-riota 7316  df-ov 7362  df-oprab 7363  df-mpo 7364  df-of 7623  df-om 7810  df-1st 7933  df-2nd 7934  df-supp 8103  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-fsupp 9269  df-pnf 11177  df-mnf 11178  df-xr 11179  df-ltxr 11180  df-le 11181  df-sub 11375  df-neg 11376  df-nn 12170  df-2 12239  df-3 12240  df-4 12241  df-5 12242  df-6 12243  df-7 12244  df-8 12245  df-9 12246  df-n0 12433  df-z 12520  df-dec 12640  df-uz 12784  df-fz 13457  df-struct 17112  df-sets 17129  df-slot 17147  df-ndx 17159  df-base 17175  df-ress 17196  df-plusg 17228  df-mulr 17229  df-sca 17231  df-vsca 17232  df-tset 17234  df-ple 17235  df-0g 17399  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-mhm 18746  df-grp 18907  df-ghm 19183  df-mgp 20116  df-ur 20157  df-ring 20210  df-rhm 20446  df-psr 21887  df-mvr 21888  df-mpl 21889  df-opsr 21891  df-psr1 22168  df-vr1 22169  df-ply1 22170

This theorem is referenced by:  rhmply1mon  22375  aks5lem3a  42687