Theorem opprqus0g 33680

Description: The group identity element of the quotient of the opposite ring is the same as the group identity element of the opposite of the quotient ring. (Contributed by Thierry Arnoux, 13-Mar-2025.)

Hypotheses

Ref	Expression
opprqus.b	⊢ 𝐵 = (Base‘𝑅)
opprqus.o	⊢ 𝑂 = (oppr‘𝑅)
opprqus.q	⊢ 𝑄 = (𝑅 /s (𝑅 ~QG 𝐼))
opprqus.i	⊢ (𝜑 → 𝐼 ∈ (NrmSGrp‘𝑅))

Assertion

Ref	Expression
opprqus0g	⊢ (𝜑 → (0g‘(oppr‘𝑄)) = (0g‘(𝑂 /s (𝑂 ~QG 𝐼))))

Proof of Theorem opprqus0g

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

Step	Hyp	Ref	Expression
1		opprqus.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝑅)
2		opprqus.o	. . . . . . . 8 ⊢ 𝑂 = (oppr‘𝑅)
3		opprqus.q	. . . . . . . 8 ⊢ 𝑄 = (𝑅 /s (𝑅 ~QG 𝐼))
4		opprqus.i	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ∈ (NrmSGrp‘𝑅))
5	4	elfvexd 6905	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ V)
6		nsgsubg 19201	. . . . . . . . 9 ⊢ (𝐼 ∈ (NrmSGrp‘𝑅) → 𝐼 ∈ (SubGrp‘𝑅))
7	1	subgss 19171	. . . . . . . . 9 ⊢ (𝐼 ∈ (SubGrp‘𝑅) → 𝐼 ⊆ 𝐵)
8	4, 6, 7	3syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ⊆ 𝐵)
9	1, 2, 3, 5, 8	opprqusbas 33678	. . . . . . 7 ⊢ (𝜑 → (Base‘(oppr‘𝑄)) = (Base‘(𝑂 /s (𝑂 ~QG 𝐼))))
10	9	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) → (Base‘(oppr‘𝑄)) = (Base‘(𝑂 /s (𝑂 ~QG 𝐼))))
11	4	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → 𝐼 ∈ (NrmSGrp‘𝑅))
12		eqid 2764	. . . . . . . . 9 ⊢ (Base‘𝑄) = (Base‘𝑄)
13		simpr 488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) → 𝑒 ∈ (Base‘(oppr‘𝑄)))
14		eqid 2764	. . . . . . . . . . . . 13 ⊢ (oppr‘𝑄) = (oppr‘𝑄)
15	14, 12	opprbas 20394	. . . . . . . . . . . 12 ⊢ (Base‘𝑄) = (Base‘(oppr‘𝑄))
16	15	eqcomi 2773	. . . . . . . . . . 11 ⊢ (Base‘(oppr‘𝑄)) = (Base‘𝑄)
17	13, 16	eleqtrdi 2874	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) → 𝑒 ∈ (Base‘𝑄))
18	17	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → 𝑒 ∈ (Base‘𝑄))
19		simpr 488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → 𝑥 ∈ (Base‘(oppr‘𝑄)))
20	19, 16	eleqtrdi 2874	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → 𝑥 ∈ (Base‘𝑄))
21	20	adantlr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → 𝑥 ∈ (Base‘𝑄))
22	1, 2, 3, 11, 12, 18, 21	opprqusplusg 33679	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → (𝑒(+g‘(oppr‘𝑄))𝑥) = (𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥))
23	22	eqeq1d 2766	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → ((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ↔ (𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥))
24	1, 2, 3, 11, 12, 21, 18	opprqusplusg 33679	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → (𝑥(+g‘(oppr‘𝑄))𝑒) = (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒))
25	24	eqeq1d 2766	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → ((𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥 ↔ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥))
26	23, 25	anbi12d 641	. . . . . 6 ⊢ (((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) ∧ 𝑥 ∈ (Base‘(oppr‘𝑄))) → (((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ∧ (𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥) ↔ ((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥)))
27	10, 26	raleqbidva 3328	. . . . 5 ⊢ ((𝜑 ∧ 𝑒 ∈ (Base‘(oppr‘𝑄))) → (∀𝑥 ∈ (Base‘(oppr‘𝑄))((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ∧ (𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥) ↔ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥)))
28	27	pm5.32da 587	. . . 4 ⊢ (𝜑 → ((𝑒 ∈ (Base‘(oppr‘𝑄)) ∧ ∀𝑥 ∈ (Base‘(oppr‘𝑄))((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ∧ (𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥)) ↔ (𝑒 ∈ (Base‘(oppr‘𝑄)) ∧ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥))))
29	9	eleq2d 2850	. . . . 5 ⊢ (𝜑 → (𝑒 ∈ (Base‘(oppr‘𝑄)) ↔ 𝑒 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))))
30	29	anbi1d 640	. . . 4 ⊢ (𝜑 → ((𝑒 ∈ (Base‘(oppr‘𝑄)) ∧ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥)) ↔ (𝑒 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼))) ∧ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥))))
31	28, 30	bitrd 281	. . 3 ⊢ (𝜑 → ((𝑒 ∈ (Base‘(oppr‘𝑄)) ∧ ∀𝑥 ∈ (Base‘(oppr‘𝑄))((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ∧ (𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥)) ↔ (𝑒 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼))) ∧ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥))))
32	31	iotabidv 6507	. 2 ⊢ (𝜑 → (℩𝑒(𝑒 ∈ (Base‘(oppr‘𝑄)) ∧ ∀𝑥 ∈ (Base‘(oppr‘𝑄))((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ∧ (𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥))) = (℩𝑒(𝑒 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼))) ∧ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥))))
33		eqid 2764	. . . . 5 ⊢ (+g‘𝑄) = (+g‘𝑄)
34	14, 33	oppradd 20395	. . . 4 ⊢ (+g‘𝑄) = (+g‘(oppr‘𝑄))
35	34	eqcomi 2773	. . 3 ⊢ (+g‘(oppr‘𝑄)) = (+g‘𝑄)
36		eqid 2764	. . . . 5 ⊢ (0g‘𝑄) = (0g‘𝑄)
37	14, 36	oppr0 20400	. . . 4 ⊢ (0g‘𝑄) = (0g‘(oppr‘𝑄))
38	37	eqcomi 2773	. . 3 ⊢ (0g‘(oppr‘𝑄)) = (0g‘𝑄)
39	16, 35, 38	grpidval 18697	. 2 ⊢ (0g‘(oppr‘𝑄)) = (℩𝑒(𝑒 ∈ (Base‘(oppr‘𝑄)) ∧ ∀𝑥 ∈ (Base‘(oppr‘𝑄))((𝑒(+g‘(oppr‘𝑄))𝑥) = 𝑥 ∧ (𝑥(+g‘(oppr‘𝑄))𝑒) = 𝑥)))
40		eqid 2764	. . 3 ⊢ (Base‘(𝑂 /s (𝑂 ~QG 𝐼))) = (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))
41		eqid 2764	. . 3 ⊢ (+g‘(𝑂 /s (𝑂 ~QG 𝐼))) = (+g‘(𝑂 /s (𝑂 ~QG 𝐼)))
42		eqid 2764	. . 3 ⊢ (0g‘(𝑂 /s (𝑂 ~QG 𝐼))) = (0g‘(𝑂 /s (𝑂 ~QG 𝐼)))
43	40, 41, 42	grpidval 18697	. 2 ⊢ (0g‘(𝑂 /s (𝑂 ~QG 𝐼))) = (℩𝑒(𝑒 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼))) ∧ ∀𝑥 ∈ (Base‘(𝑂 /s (𝑂 ~QG 𝐼)))((𝑒(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑥) = 𝑥 ∧ (𝑥(+g‘(𝑂 /s (𝑂 ~QG 𝐼)))𝑒) = 𝑥)))
44	32, 39, 43	3eqtr4g 2824	1 ⊢ (𝜑 → (0g‘(oppr‘𝑄)) = (0g‘(𝑂 /s (𝑂 ~QG 𝐼))))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1562   ∈ wcel 2144  ∀wral 3078  Vcvv 3456   ⊆ wss 3906  ℩cio 6477  ‘cfv 6523  (class class class)co 7398  Basecbs 17247  +_gcplusg 17288  0_gc0g 17470   /_s cqus 17537  SubGrpcsubg 19164  NrmSGrpcnsg 19165   ~_QG cqg 19166  opp_rcoppr 20387

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-rep 5229  ax-sep 5248  ax-nul 5258  ax-pow 5324  ax-pr 5392  ax-un 7720  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5544  df-eprel 5549  df-po 5557  df-so 5558  df-fr 5602  df-we 5604  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-pred 6290  df-ord 6351  df-on 6352  df-lim 6353  df-suc 6354  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-f1 6528  df-fo 6529  df-f1o 6530  df-fv 6531  df-riota 7355  df-ov 7401  df-oprab 7402  df-mpo 7403  df-om 7849  df-1st 7972  df-2nd 7973  df-tpos 8208  df-frecs 8264  df-wrecs 8295  df-recs 8344  df-rdg 8383  df-1o 8439  df-er 8680  df-ec 8682  df-qs 8686  df-en 8930  df-dom 8931  df-sdom 8932  df-fin 8933  df-sup 9390  df-inf 9391  df-pnf 11220  df-mnf 11221  df-xr 11222  df-ltxr 11223  df-le 11224  df-sub 11418  df-neg 11419  df-nn 12213  df-2 12282  df-3 12283  df-4 12284  df-5 12285  df-6 12286  df-7 12287  df-8 12288  df-9 12289  df-n0 12484  df-z 12571  df-dec 12691  df-uz 12842  df-fz 13515  df-struct 17185  df-sets 17202  df-slot 17220  df-ndx 17232  df-base 17248  df-ress 17269  df-plusg 17301  df-mulr 17302  df-sca 17304  df-vsca 17305  df-ip 17306  df-tset 17307  df-ple 17308  df-ds 17310  df-0g 17472  df-imas 17540  df-qus 17541  df-mgm 18676  df-sgrp 18755  df-mnd 18771  df-grp 18980  df-minusg 18981  df-subg 19167  df-nsg 19168  df-eqg 19169  df-oppr 20388

This theorem is referenced by:  opprqusdrng  33683