Theorem issubrng 20484

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 20483	. . 3 ⊢ SubRng = (𝑤 ∈ Rng ↦ {𝑠 ∈ 𝒫 (Base‘𝑤) ∣ (𝑤 ↾s 𝑠) ∈ Rng})
2	1	mptrcl 6952	. 2 ⊢ (𝐴 ∈ (SubRng‘𝑅) → 𝑅 ∈ Rng)
3		simp1 1137	. 2 ⊢ ((𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) → 𝑅 ∈ Rng)
4		fveq2 6835	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5	4	pweqd 4572	. . . . . 6 ⊢ (𝑟 = 𝑅 → 𝒫 (Base‘𝑟) = 𝒫 (Base‘𝑅))
6		oveq1 7367	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (𝑟 ↾s 𝑠) = (𝑅 ↾s 𝑠))
7	6	eleq1d 2822	. . . . . 6 ⊢ (𝑟 = 𝑅 → ((𝑟 ↾s 𝑠) ∈ Rng ↔ (𝑅 ↾s 𝑠) ∈ Rng))
8	5, 7	rabeqbidv 3418	. . . . 5 ⊢ (𝑟 = 𝑅 → {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ (𝑟 ↾s 𝑠) ∈ Rng} = {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng})
9		df-subrng 20483	. . . . 5 ⊢ SubRng = (𝑟 ∈ Rng ↦ {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ (𝑟 ↾s 𝑠) ∈ Rng})
10		fvex 6848	. . . . . . 7 ⊢ (Base‘𝑅) ∈ V
11	10	pwex 5326	. . . . . 6 ⊢ 𝒫 (Base‘𝑅) ∈ V
12	11	rabex 5285	. . . . 5 ⊢ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ∈ V
13	8, 9, 12	fvmpt 6942	. . . 4 ⊢ (𝑅 ∈ Rng → (SubRng‘𝑅) = {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng})
14	13	eleq2d 2823	. . 3 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ (SubRng‘𝑅) ↔ 𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng}))
15		oveq2 7368	. . . . . 6 ⊢ (𝑠 = 𝐴 → (𝑅 ↾s 𝑠) = (𝑅 ↾s 𝐴))
16	15	eleq1d 2822	. . . . 5 ⊢ (𝑠 = 𝐴 → ((𝑅 ↾s 𝑠) ∈ Rng ↔ (𝑅 ↾s 𝐴) ∈ Rng))
17	16	elrab 3647	. . . 4 ⊢ (𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ↔ (𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng))
18		issubrng.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑅)
19	18	eqcomi 2746	. . . . . . . 8 ⊢ (Base‘𝑅) = 𝐵
20	19	sseq2i 3964	. . . . . . 7 ⊢ (𝐴 ⊆ (Base‘𝑅) ↔ 𝐴 ⊆ 𝐵)
21	20	anbi2i 624	. . . . . 6 ⊢ (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)) ↔ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))
22		ibar 528	. . . . . 6 ⊢ (𝑅 ∈ Rng → (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))))
23	21, 22	bitrid 283	. . . . 5 ⊢ (𝑅 ∈ Rng → (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))))
24	10	elpw2 5280	. . . . . 6 ⊢ (𝐴 ∈ 𝒫 (Base‘𝑅) ↔ 𝐴 ⊆ (Base‘𝑅))
25	24	anbi2ci 626	. . . . 5 ⊢ ((𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng) ↔ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)))
26		3anass 1095	. . . . 5 ⊢ ((𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
27	23, 25, 26	3bitr4g 314	. . . 4 ⊢ (𝑅 ∈ Rng → ((𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
28	17, 27	bitrid 283	. . 3 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
29	14, 28	bitrd 279	. 2 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ (SubRng‘𝑅) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵)))
30	2, 3, 29	pm5.21nii 378	1 ⊢ (𝐴 ∈ (SubRng‘𝑅) ↔ (𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))

Syntax hints:   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  {crab 3400   ⊆ wss 3902  𝒫 cpw 4555  ‘cfv 6493  (class class class)co 7360  Basecbs 17140   ↾_s cress 17161  Rngcrng 20091  SubRngcsubrng 20482

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3062  df-rab 3401  df-v 3443  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-br 5100  df-opab 5162  df-mpt 5181  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-iota 6449  df-fun 6495  df-fv 6501  df-ov 7363  df-subrng 20483

This theorem is referenced by:  subrngss  20485  subrngid  20486  subrngrng  20487  subrngrcl  20488  issubrng2  20495  subsubrng  20500  subrngpropd  20505  subrgsubrng  20515  rng2idlsubrng  21224