Theorem issubrng 20811

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 20810	. . 3 ⊢ SubRng = (𝑤 ∈ Rng ↦ {𝑠 ∈ 𝒫 (Base‘𝑤) ∣ (𝑤 ↾s 𝑠) ∈ Rng})
2	1	mptrcl 7011	. 2 ⊢ (𝐴 ∈ (SubRng‘𝑅) → 𝑅 ∈ Rng)
3		simp1 1154	. 2 ⊢ ((𝑅 ∈ Rng ∧ (𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) → 𝑅 ∈ Rng)
4		fveq2 6893	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (Base‘𝑟) = (Base‘𝑅))
5	4	pweqd 4576	. . . . . 6 ⊢ (𝑟 = 𝑅 → 𝒫 (Base‘𝑟) = 𝒫 (Base‘𝑅))
6		oveq1 7434	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (𝑟 ↾s 𝑠) = (𝑅 ↾s 𝑠))
7	6	eleq1d 2848	. . . . . 6 ⊢ (𝑟 = 𝑅 → ((𝑟 ↾s 𝑠) ∈ Rng ↔ (𝑅 ↾s 𝑠) ∈ Rng))
8	5, 7	rabeqbidv 3432	. . . . 5 ⊢ (𝑟 = 𝑅 → {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ (𝑟 ↾s 𝑠) ∈ Rng} = {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng})
9		df-subrng 20810	. . . . 5 ⊢ SubRng = (𝑟 ∈ Rng ↦ {𝑠 ∈ 𝒫 (Base‘𝑟) ∣ (𝑟 ↾s 𝑠) ∈ Rng})
10		fvex 6906	. . . . . . 7 ⊢ (Base‘𝑅) ∈ V
11	10	pwex 5345	. . . . . 6 ⊢ 𝒫 (Base‘𝑅) ∈ V
12	11	rabex 5303	. . . . 5 ⊢ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ∈ V
13	8, 9, 12	fvmpt 7001	. . . 4 ⊢ (𝑅 ∈ Rng → (SubRng‘𝑅) = {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng})
14	13	eleq2d 2849	. . 3 ⊢ (𝑅 ∈ Rng → (𝐴 ∈ (SubRng‘𝑅) ↔ 𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng}))
15		oveq2 7435	. . . . . 6 ⊢ (𝑠 = 𝐴 → (𝑅 ↾s 𝑠) = (𝑅 ↾s 𝐴))
16	15	eleq1d 2848	. . . . 5 ⊢ (𝑠 = 𝐴 → ((𝑅 ↾s 𝑠) ∈ Rng ↔ (𝑅 ↾s 𝐴) ∈ Rng))
17	16	elrab 3647	. . . 4 ⊢ (𝐴 ∈ {𝑠 ∈ 𝒫 (Base‘𝑅) ∣ (𝑅 ↾s 𝑠) ∈ Rng} ↔ (𝐴 ∈ 𝒫 (Base‘𝑅) ∧ (𝑅 ↾s 𝐴) ∈ Rng))
18		issubrng.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑅)
19	18	eqcomi 2772	. . . . . . . 8 ⊢ (Base‘𝑅) = 𝐵
20	19	sseq2i 3941	. . . . . . 7 ⊢ (𝐴 ⊆ (Base‘𝑅) ↔ 𝐴 ⊆ 𝐵)
21	20	anbi2i 635	. . . . . 6 ⊢ (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)) ↔ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))
22		ibar 538	. . . . . 6 ⊢ (𝑅 ∈ Rng → (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))))
23	21, 22	bitrid 286	. . . . 5 ⊢ (𝑅 ∈ Rng → (((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ (Base‘𝑅)) ↔ (𝑅 ∈ Rng ∧ ((𝑅 ↾s 𝐴) ∈ Rng ∧ 𝐴 ⊆ 𝐵))))
24	10	elpw2 5299	. . . . . 6 ⊢ (𝐴 ∈ 𝒫 (Base‘𝑅) ↔ 𝐴 ⊆ (Base‘𝑅))
25	24	anbi2ci 637	. . . . 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 ∧ 𝐴 ⊆ 𝐵))

This proof depends on syntax axioms:   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2146  {crab 3415   ⊆ wss 3899  𝒫 cpw 4559  ‘cfv 6546  (class class class)co 7427  Basecbs 17399   ↾_s cress 17420  Rngcrng 20386  SubRngcsubrng 20809

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-sep 5251  ax-nul 5262  ax-pow 5330  ax-pr 5394

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  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 3416  df-v 3455  df-ss 3900  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-pw 4561  df-sn 4588  df-pr 4590  df-op 4838  df-uni 4870  df-br 5106  df-opab 5170  df-mpt 5189  df-id 5549  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-iota 6500  df-fun 6548  df-fv 6554  df-ov 7430  df-subrng 20810

This theorem is used by:  subrngss  20812  subrngid  20813  subrngrng  20814  subrngrcl  20815  issubrng2  20822  subsubrng  20827  subrngpropd  20832  subrgsubrng  20842  rng2idlsubrng  21571