Theorem issubrg 20456

Description: The subring predicate. (Contributed by Stefan O'Rear, 27-Nov-2014.) (Proof shortened by AV, 12-Oct-2020.)

Hypotheses

Ref	Expression
issubrg.b	⊢ 𝐵 = (Base‘𝑅)
issubrg.i	⊢ 1 = (1r‘𝑅)

Assertion

Ref	Expression
issubrg	⊢ (𝐴 ∈ (SubRing‘𝑅) ↔ ((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)))

Proof of Theorem issubrg

Dummy variables 𝑠 𝑟 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-subrg 20455	. . 3 ⊢ SubRing = (𝑟 ∈ Ring ↦ {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ ((𝑟 ↾s 𝑠) ∈ Ring ∧ (1r‘𝑟) ∈ 𝑠)})
2	1	mptrcl 6939	. 2 ⊢ (𝐴 ∈ (SubRing‘𝑅) → 𝑅 ∈ Ring)
3		simpll 766	. 2 ⊢ (((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)) → 𝑅 ∈ Ring)
4		fveq2 6822	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5		issubrg.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝑅)
6	4, 5	eqtr4di 2782	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = 𝐵)
7	6	pweqd 4568	. . . . . 6 ⊢ (𝑟 = 𝑅 → 𝒫 (Base‘𝑟) = 𝒫 𝐵)
8		oveq1 7356	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (𝑟 ↾s 𝑠) = (𝑅 ↾s 𝑠))
9	8	eleq1d 2813	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ((𝑟 ↾s 𝑠) ∈ Ring ↔ (𝑅 ↾s 𝑠) ∈ Ring))
10		fveq2 6822	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = (1r‘𝑅))
11		issubrg.i	. . . . . . . . 9 ⊢ 1 = (1r‘𝑅)
12	10, 11	eqtr4di 2782	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = 1 )
13	12	eleq1d 2813	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ((1r‘𝑟) ∈ 𝑠 ↔ 1 ∈ 𝑠))
14	9, 13	anbi12d 632	. . . . . 6 ⊢ (𝑟 = 𝑅 → (((𝑟 ↾s 𝑠) ∈ Ring ∧ (1r‘𝑟) ∈ 𝑠) ↔ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)))
15	7, 14	rabeqbidv 3413	. . . . 5 ⊢ (𝑟 = 𝑅 → {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ ((𝑟 ↾s 𝑠) ∈ Ring ∧ (1r‘𝑟) ∈ 𝑠)} = {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)})
16	5	fvexi 6836	. . . . . . 7 ⊢ 𝐵 ∈ V
17	16	pwex 5319	. . . . . 6 ⊢ 𝒫 𝐵 ∈ V
18	17	rabex 5278	. . . . 5 ⊢ {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)} ∈ V
19	15, 1, 18	fvmpt 6930	. . . 4 ⊢ (𝑅 ∈ Ring → (SubRing‘𝑅) = {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)})
20	19	eleq2d 2814	. . 3 ⊢ (𝑅 ∈ Ring → (𝐴 ∈ (SubRing‘𝑅) ↔ 𝐴 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)}))
21		oveq2 7357	. . . . . . . 8 ⊢ (𝑠 = 𝐴 → (𝑅 ↾s 𝑠) = (𝑅 ↾s 𝐴))
22	21	eleq1d 2813	. . . . . . 7 ⊢ (𝑠 = 𝐴 → ((𝑅 ↾s 𝑠) ∈ Ring ↔ (𝑅 ↾s 𝐴) ∈ Ring))
23		eleq2 2817	. . . . . . 7 ⊢ (𝑠 = 𝐴 → ( 1 ∈ 𝑠 ↔ 1 ∈ 𝐴))
24	22, 23	anbi12d 632	. . . . . 6 ⊢ (𝑠 = 𝐴 → (((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠) ↔ ((𝑅 ↾s 𝐴) ∈ Ring ∧ 1 ∈ 𝐴)))
25	24	elrab 3648	. . . . 5 ⊢ (𝐴 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)} ↔ (𝐴 ∈ 𝒫 𝐵 ∧ ((𝑅 ↾s 𝐴) ∈ Ring ∧ 1 ∈ 𝐴)))
26	16	elpw2 5273	. . . . . 6 ⊢ (𝐴 ∈ 𝒫 𝐵 ↔ 𝐴 ⊆ 𝐵)
27	26	anbi1i 624	. . . . 5 ⊢ ((𝐴 ∈ 𝒫 𝐵 ∧ ((𝑅 ↾s 𝐴) ∈ Ring ∧ 1 ∈ 𝐴)) ↔ (𝐴 ⊆ 𝐵 ∧ ((𝑅 ↾s 𝐴) ∈ Ring ∧ 1 ∈ 𝐴)))
28		an12 645	. . . . 5 ⊢ ((𝐴 ⊆ 𝐵 ∧ ((𝑅 ↾s 𝐴) ∈ Ring ∧ 1 ∈ 𝐴)) ↔ ((𝑅 ↾s 𝐴) ∈ Ring ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)))
29	25, 27, 28	3bitri 297	. . . 4 ⊢ (𝐴 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)} ↔ ((𝑅 ↾s 𝐴) ∈ Ring ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)))
30		ibar 528	. . . . 5 ⊢ (𝑅 ∈ Ring → ((𝑅 ↾s 𝐴) ∈ Ring ↔ (𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring)))
31	30	anbi1d 631	. . . 4 ⊢ (𝑅 ∈ Ring → (((𝑅 ↾s 𝐴) ∈ Ring ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)) ↔ ((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴))))
32	29, 31	bitrid 283	. . 3 ⊢ (𝑅 ∈ Ring → (𝐴 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ ((𝑅 ↾s 𝑠) ∈ Ring ∧ 1 ∈ 𝑠)} ↔ ((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴))))
33	20, 32	bitrd 279	. 2 ⊢ (𝑅 ∈ Ring → (𝐴 ∈ (SubRing‘𝑅) ↔ ((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴))))
34	2, 3, 33	pm5.21nii 378	1 ⊢ (𝐴 ∈ (SubRing‘𝑅) ↔ ((𝑅 ∈ Ring ∧ (𝑅 ↾s 𝐴) ∈ Ring) ∧ (𝐴 ⊆ 𝐵 ∧ 1 ∈ 𝐴)))

Syntax hints:   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  {crab 3394   ⊆ wss 3903  𝒫 cpw 4551  ‘cfv 6482  (class class class)co 7349  Basecbs 17120   ↾_s cress 17141  1_rcur 20066  Ringcrg 20118  SubRingcsubrg 20454

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rab 3395  df-v 3438  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-br 5093  df-opab 5155  df-mpt 5174  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6438  df-fun 6484  df-fv 6490  df-ov 7352  df-subrg 20455

This theorem is referenced by:  subrgss  20457  subrgid  20458  subrgring  20459  subrgrcl  20461  subrgsubrng  20463  subrg1cl  20465  issubrg2  20477  subsubrg  20483  subrgpropd  20493  issubassa  21774  subrgpsr  21885  cphsubrglem  25075  fldgensdrg  33254  fldgenfldext  33641  fldextrspundgdvdslem  33653  fldextrspundgdvds  33654