Theorem ressbas 17272

Description: Base set of a structure restriction. (Contributed by Stefan O'Rear, 26-Nov-2014.) (Proof shortened by AV, 7-Nov-2024.)

Hypotheses

Ref	Expression
ressbas.r	⊢ 𝑅 = (𝑊 ↾s 𝐴)
ressbas.b	⊢ 𝐵 = (Base‘𝑊)

Assertion

Ref	Expression
ressbas	⊢ (𝐴 ∈ 𝑉 → (𝐴 ∩ 𝐵) = (Base‘𝑅))

Proof of Theorem ressbas

Step	Hyp	Ref	Expression
1		ressbas.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑊)
2		simp1 1149	. . . . . 6 ⊢ ((𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → 𝐵 ⊆ 𝐴)
3		sseqin2 4175	. . . . . 6 ⊢ (𝐵 ⊆ 𝐴 ↔ (𝐴 ∩ 𝐵) = 𝐵)
4	2, 3	sylib 220	. . . . 5 ⊢ ((𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = 𝐵)
5		ressbas.r	. . . . . . 7 ⊢ 𝑅 = (𝑊 ↾s 𝐴)
6	5, 1	ressid2 17270	. . . . . 6 ⊢ ((𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → 𝑅 = 𝑊)
7	6	fveq2d 6871	. . . . 5 ⊢ ((𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (Base‘𝑅) = (Base‘𝑊))
8	1, 4, 7	3eqtr4a 2823	. . . 4 ⊢ ((𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘𝑅))
9	8	3expib 1135	. . 3 ⊢ (𝐵 ⊆ 𝐴 → ((𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘𝑅)))
10		simp2 1150	. . . . . 6 ⊢ ((¬ 𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → 𝑊 ∈ V)
11	1	fvexi 6881	. . . . . . 7 ⊢ 𝐵 ∈ V
12	11	inex2 5274	. . . . . 6 ⊢ (𝐴 ∩ 𝐵) ∈ V
13		baseid 17248	. . . . . . 7 ⊢ Base = Slot (Base‘ndx)
14	13	setsid 17243	. . . . . 6 ⊢ ((𝑊 ∈ V ∧ (𝐴 ∩ 𝐵) ∈ V) → (𝐴 ∩ 𝐵) = (Base‘(𝑊 sSet ⟨(Base‘ndx), (𝐴 ∩ 𝐵)⟩)))
15	10, 12, 14	sylancl 595	. . . . 5 ⊢ ((¬ 𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘(𝑊 sSet ⟨(Base‘ndx), (𝐴 ∩ 𝐵)⟩)))
16	5, 1	ressval2 17271	. . . . . 6 ⊢ ((¬ 𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → 𝑅 = (𝑊 sSet ⟨(Base‘ndx), (𝐴 ∩ 𝐵)⟩))
17	16	fveq2d 6871	. . . . 5 ⊢ ((¬ 𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (Base‘𝑅) = (Base‘(𝑊 sSet ⟨(Base‘ndx), (𝐴 ∩ 𝐵)⟩)))
18	15, 17	eqtr4d 2800	. . . 4 ⊢ ((¬ 𝐵 ⊆ 𝐴 ∧ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘𝑅))
19	18	3expib 1135	. . 3 ⊢ (¬ 𝐵 ⊆ 𝐴 → ((𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘𝑅)))
20	9, 19	pm2.61i 183	. 2 ⊢ ((𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘𝑅))
21		in0 4349	. . . . 5 ⊢ (𝐴 ∩ ∅) = ∅
22		fvprc 6859	. . . . . . 7 ⊢ (¬ 𝑊 ∈ V → (Base‘𝑊) = ∅)
23	1, 22	eqtrid 2809	. . . . . 6 ⊢ (¬ 𝑊 ∈ V → 𝐵 = ∅)
24	23	ineq2d 4172	. . . . 5 ⊢ (¬ 𝑊 ∈ V → (𝐴 ∩ 𝐵) = (𝐴 ∩ ∅))
25	21, 24, 22	3eqtr4a 2823	. . . 4 ⊢ (¬ 𝑊 ∈ V → (𝐴 ∩ 𝐵) = (Base‘𝑊))
26		base0 17250	. . . . . 6 ⊢ ∅ = (Base‘∅)
27	26	eqcomi 2771	. . . . 5 ⊢ (Base‘∅) = ∅
28		reldmress 17268	. . . . 5 ⊢ Rel dom ↾s
29	27, 5, 28	oveqprc 17228	. . . 4 ⊢ (¬ 𝑊 ∈ V → (Base‘𝑊) = (Base‘𝑅))
30	25, 29	eqtrd 2797	. . 3 ⊢ (¬ 𝑊 ∈ V → (𝐴 ∩ 𝐵) = (Base‘𝑅))
31	30	adantr 484	. 2 ⊢ ((¬ 𝑊 ∈ V ∧ 𝐴 ∈ 𝑉) → (𝐴 ∩ 𝐵) = (Base‘𝑅))
32	20, 31	pm2.61ian 821	1 ⊢ (𝐴 ∈ 𝑉 → (𝐴 ∩ 𝐵) = (Base‘𝑅))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1098   = wceq 1560   ∈ wcel 2142  Vcvv 3454   ∩ cin 3903   ⊆ wss 3904  ∅c0 4285  ⟨cop 4588  ‘cfv 6521  (class class class)co 7396   sSet csts 17199  ndxcnx 17229  Basecbs 17245   ↾_s cress 17266

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-cnex 11129  ax-1cn 11131  ax-addcl 11133

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-nn 12211  df-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-ress 17267

This theorem is referenced by:  ressbasssg  17273  ressbas2  17274  ressbasssOLD  17276  ressress  17283  xrge0base  17637  rescabs  17866  resscatc  18142  resspos  18461  resstos  18462  idresefmnd  18933  smndex1bas  18943  resscntz  19373  idrespermg  19451  submomnd  20172  opprsubg  20397  subrngpropd  20614  subrgpropd  20654  suborng  20922  sralmod  21251  lidlssbas  21280  lidlbas  21281  resstopn  23243  resstps  23244  ressuss  24319  ressxms  24582  ressms  24583  cphsubrglem  25236  cphsscph  25310  xrge00  33189  gsumge0cl  46942  sge0tsms  46951  uzlidlring  48854  dmatALTbas  49020