Theorem issubrng 20646

Description: The subring of non-unital ring predicate. (Contributed by AV, 14-Feb-2025.)

Hypothesis

Ref	Expression
issubrng.b	⊢ 𝐵 = (Base‘𝑅)

Assertion

Ref	Expression
issubrng	⊢ (𝐴 ∈ (SubRng‘𝑅) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))

Proof of Theorem issubrng

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

Step	Hyp	Ref	Expression
1		df-subrng 20645	. . 3 ⊢ SubRng = (𝑤 ∈ Rng ↦ {𝑠 ∈ 𝒫 (Base‘𝑤) ∣ (𝑤 ↾s 𝑠) ∈ Rng})
2	1	mptrcl 6999	. 2 ⊢ (𝐴 ∈ (SubRng‘𝑅) → 𝑅 ∈ Rng)
3		simp1 1154	. 2 ⊢ ((𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) → 𝑅 ∈ Rng)
4		fveq2 6881	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5	4	pweqd 4579	. . . . . 6 ⊢ (𝑟 = 𝑅 → 𝒫 (Base‘𝑟) = 𝒫 (Base‘𝑅))
6		oveq1 7417	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (𝑟 ↾s 𝑠) = (𝑅 ↾s 𝑠))
7	6	eleq1d 2848	. . . . . 6 ⊢ (𝑟 = 𝑅 → ((𝑟 ↾s 𝑠) ∈ Rng ↔ (𝑅 ↾s 𝑠) ∈ Rng))
8	5, 7	rabeqbidv 3434	. . . . 5 ⊢ (𝑟 = 𝑅 → {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ (𝑟 ↾s 𝑠) ∈ Rng} = {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng})
9		df-subrng 20645	. . . . 5 ⊢ SubRng = (𝑟 ∈ Rng ↦ {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ (𝑟 ↾s 𝑠) ∈ Rng})
10		fvex 6894	. . . . . . 7 ⊢ (Base‘𝑅) ∈ V
11	10	pwex 5351	. . . . . 6 ⊢ 𝒫 (Base‘𝑅) ∈ V
12	11	rabex 5309	. . . . 5 ⊢ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ∈ V
13	8, 9, 12	fvmpt 6989	. . . 4 ⊢ (𝑅 ∈ Rng → (SubRng‘𝑅) = {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng})
14	13	eleq2d 2849	. . 3 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ (SubRng‘𝑅) ↔ 𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng}))
15		oveq2 7418	. . . . . 6 ⊢ (𝑠 = 𝐴 → (𝑅 ↾s 𝑠) = (𝑅 ↾s 𝐴))
16	15	eleq1d 2848	. . . . 5 ⊢ (𝑠 = 𝐴 → ((𝑅 ↾s 𝑠) ∈ Rng ↔ (𝑅 ↾s 𝐴) ∈ Rng))
17	16	elrab 3650	. . . 4 ⊢ (𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ↔ (𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng))
18		issubrng.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑅)
19	18	eqcomi 2772	. . . . . . . 8 ⊢ (Base‘𝑅) = 𝐵
20	19	sseq2i 3966	. . . . . . 7 ⊢ (𝐴 ⊆ (Base‘𝑅) ↔ 𝐴 ⊆ 𝐵)
21	20	anbi2i 634	. . . . . 6 ⊢ (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)) ↔ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))
22		ibar 537	. . . . . 6 ⊢ (𝑅 ∈ Rng → (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))))
23	21, 22	bitrid 286	. . . . 5 ⊢ (𝑅 ∈ Rng → (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))))
24	10	elpw2 5305	. . . . . 6 ⊢ (𝐴 ∈ 𝒫 (Base‘𝑅) ↔ 𝐴 ⊆ (Base‘𝑅))
25	24	anbi2ci 636	. . . . 5 ⊢ ((𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng) ↔ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)))
26		3anass 1111	. . . . 5 ⊢ ((𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
27	23, 25, 26	3bitr4g 317	. . . 4 ⊢ (𝑅 ∈ Rng → ((𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
28	17, 27	bitrid 286	. . 3 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
29	14, 28	bitrd 282	. 2 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ (SubRng‘𝑅) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
30	2, 3, 29	pm5.21nii 381	1 ⊢ (𝐴 ∈ (SubRng‘𝑅) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))

Syntax hints:   ↔ wb 209   ∧ wa 400   ∧ w3a 1103   = wceq 1570   ∈ wcel 2143  {crab 3416   ⊆ wss 3905  𝒫 cpw 4562  ‘cfv 6536  (class class class)co 7410  Basecbs 17264   ↾_s cress 17285  Rngcrng 20225  SubRngcsubrng 20644

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fv 6544  df-ov 7413  df-subrng 20645

This theorem is referenced by:  subrngss  20647  subrngid  20648  subrngrng  20649  subrngrcl  20650  issubrng2  20657  subsubrng  20662  subrngpropd  20667  subrgsubrng  20677  rng2idlsubrng  21404