Metamath Proof Explorer


Theorem restuni3

Description: The underlying set of a subspace induced by the subspace operator ` |``t ` . The result can be applied, for instance, to topologies and sigma-algebras. (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses restuni3.1 ( 𝜑𝐴𝑉 )
restuni3.2 ( 𝜑𝐵𝑊 )
Assertion restuni3 ( 𝜑 ( 𝐴t 𝐵 ) = ( 𝐴𝐵 ) )

Proof

Step Hyp Ref Expression
1 restuni3.1 ( 𝜑𝐴𝑉 )
2 restuni3.2 ( 𝜑𝐵𝑊 )
3 eluni2 ( 𝑥 ( 𝐴t 𝐵 ) ↔ ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 )
4 3 bilani ( ( 𝜑𝑥 ( 𝐴t 𝐵 ) ) → ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 )
5 simpr ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ) → 𝑦 ∈ ( 𝐴t 𝐵 ) )
6 elrest ( ( 𝐴𝑉𝐵𝑊 ) → ( 𝑦 ∈ ( 𝐴t 𝐵 ) ↔ ∃ 𝑧𝐴 𝑦 = ( 𝑧𝐵 ) ) )
7 1 2 6 syl2anc ( 𝜑 → ( 𝑦 ∈ ( 𝐴t 𝐵 ) ↔ ∃ 𝑧𝐴 𝑦 = ( 𝑧𝐵 ) ) )
8 7 adantr ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ) → ( 𝑦 ∈ ( 𝐴t 𝐵 ) ↔ ∃ 𝑧𝐴 𝑦 = ( 𝑧𝐵 ) ) )
9 5 8 mpbid ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ) → ∃ 𝑧𝐴 𝑦 = ( 𝑧𝐵 ) )
10 9 3adant3 ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ∧ 𝑥𝑦 ) → ∃ 𝑧𝐴 𝑦 = ( 𝑧𝐵 ) )
11 simpl ( ( 𝑥𝑦𝑦 = ( 𝑧𝐵 ) ) → 𝑥𝑦 )
12 simpr ( ( 𝑥𝑦𝑦 = ( 𝑧𝐵 ) ) → 𝑦 = ( 𝑧𝐵 ) )
13 11 12 eleqtrd ( ( 𝑥𝑦𝑦 = ( 𝑧𝐵 ) ) → 𝑥 ∈ ( 𝑧𝐵 ) )
14 13 ex ( 𝑥𝑦 → ( 𝑦 = ( 𝑧𝐵 ) → 𝑥 ∈ ( 𝑧𝐵 ) ) )
15 14 3ad2ant3 ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ∧ 𝑥𝑦 ) → ( 𝑦 = ( 𝑧𝐵 ) → 𝑥 ∈ ( 𝑧𝐵 ) ) )
16 15 reximdv ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ∧ 𝑥𝑦 ) → ( ∃ 𝑧𝐴 𝑦 = ( 𝑧𝐵 ) → ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) ) )
17 10 16 mpd ( ( 𝜑𝑦 ∈ ( 𝐴t 𝐵 ) ∧ 𝑥𝑦 ) → ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) )
18 17 3exp ( 𝜑 → ( 𝑦 ∈ ( 𝐴t 𝐵 ) → ( 𝑥𝑦 → ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) ) ) )
19 18 rexlimdv ( 𝜑 → ( ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 → ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) ) )
20 19 adantr ( ( 𝜑𝑥 ( 𝐴t 𝐵 ) ) → ( ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 → ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) ) )
21 4 20 mpd ( ( 𝜑𝑥 ( 𝐴t 𝐵 ) ) → ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) )
22 elinel1 ( 𝑥 ∈ ( 𝑧𝐵 ) → 𝑥𝑧 )
23 22 adantl ( ( 𝑧𝐴𝑥 ∈ ( 𝑧𝐵 ) ) → 𝑥𝑧 )
24 simpl ( ( 𝑧𝐴𝑥 ∈ ( 𝑧𝐵 ) ) → 𝑧𝐴 )
25 elunii ( ( 𝑥𝑧𝑧𝐴 ) → 𝑥 𝐴 )
26 23 24 25 syl2anc ( ( 𝑧𝐴𝑥 ∈ ( 𝑧𝐵 ) ) → 𝑥 𝐴 )
27 elinel2 ( 𝑥 ∈ ( 𝑧𝐵 ) → 𝑥𝐵 )
28 27 adantl ( ( 𝑧𝐴𝑥 ∈ ( 𝑧𝐵 ) ) → 𝑥𝐵 )
29 26 28 elind ( ( 𝑧𝐴𝑥 ∈ ( 𝑧𝐵 ) ) → 𝑥 ∈ ( 𝐴𝐵 ) )
30 29 ex ( 𝑧𝐴 → ( 𝑥 ∈ ( 𝑧𝐵 ) → 𝑥 ∈ ( 𝐴𝐵 ) ) )
31 30 adantl ( ( ( 𝜑𝑥 ( 𝐴t 𝐵 ) ) ∧ 𝑧𝐴 ) → ( 𝑥 ∈ ( 𝑧𝐵 ) → 𝑥 ∈ ( 𝐴𝐵 ) ) )
32 31 rexlimdva ( ( 𝜑𝑥 ( 𝐴t 𝐵 ) ) → ( ∃ 𝑧𝐴 𝑥 ∈ ( 𝑧𝐵 ) → 𝑥 ∈ ( 𝐴𝐵 ) ) )
33 21 32 mpd ( ( 𝜑𝑥 ( 𝐴t 𝐵 ) ) → 𝑥 ∈ ( 𝐴𝐵 ) )
34 33 ralrimiva ( 𝜑 → ∀ 𝑥 ( 𝐴t 𝐵 ) 𝑥 ∈ ( 𝐴𝐵 ) )
35 dfss3 ( ( 𝐴t 𝐵 ) ⊆ ( 𝐴𝐵 ) ↔ ∀ 𝑥 ( 𝐴t 𝐵 ) 𝑥 ∈ ( 𝐴𝐵 ) )
36 34 35 sylibr ( 𝜑 ( 𝐴t 𝐵 ) ⊆ ( 𝐴𝐵 ) )
37 elinel1 ( 𝑥 ∈ ( 𝐴𝐵 ) → 𝑥 𝐴 )
38 eluni2 ( 𝑥 𝐴 ↔ ∃ 𝑧𝐴 𝑥𝑧 )
39 37 38 sylib ( 𝑥 ∈ ( 𝐴𝐵 ) → ∃ 𝑧𝐴 𝑥𝑧 )
40 39 adantl ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) → ∃ 𝑧𝐴 𝑥𝑧 )
41 1 adantr ( ( 𝜑𝑧𝐴 ) → 𝐴𝑉 )
42 2 adantr ( ( 𝜑𝑧𝐴 ) → 𝐵𝑊 )
43 simpr ( ( 𝜑𝑧𝐴 ) → 𝑧𝐴 )
44 eqid ( 𝑧𝐵 ) = ( 𝑧𝐵 )
45 41 42 43 44 elrestd ( ( 𝜑𝑧𝐴 ) → ( 𝑧𝐵 ) ∈ ( 𝐴t 𝐵 ) )
46 45 3adant3 ( ( 𝜑𝑧𝐴𝑥𝑧 ) → ( 𝑧𝐵 ) ∈ ( 𝐴t 𝐵 ) )
47 46 3adant1r ( ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) ∧ 𝑧𝐴𝑥𝑧 ) → ( 𝑧𝐵 ) ∈ ( 𝐴t 𝐵 ) )
48 simp3 ( ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) ∧ 𝑧𝐴𝑥𝑧 ) → 𝑥𝑧 )
49 simp1r ( ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) ∧ 𝑧𝐴𝑥𝑧 ) → 𝑥 ∈ ( 𝐴𝐵 ) )
50 elinel2 ( 𝑥 ∈ ( 𝐴𝐵 ) → 𝑥𝐵 )
51 49 50 syl ( ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) ∧ 𝑧𝐴𝑥𝑧 ) → 𝑥𝐵 )
52 simpl ( ( 𝑥𝑧𝑥𝐵 ) → 𝑥𝑧 )
53 simpr ( ( 𝑥𝑧𝑥𝐵 ) → 𝑥𝐵 )
54 52 53 elind ( ( 𝑥𝑧𝑥𝐵 ) → 𝑥 ∈ ( 𝑧𝐵 ) )
55 48 51 54 syl2anc ( ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) ∧ 𝑧𝐴𝑥𝑧 ) → 𝑥 ∈ ( 𝑧𝐵 ) )
56 eleq2 ( 𝑦 = ( 𝑧𝐵 ) → ( 𝑥𝑦𝑥 ∈ ( 𝑧𝐵 ) ) )
57 56 rspcev ( ( ( 𝑧𝐵 ) ∈ ( 𝐴t 𝐵 ) ∧ 𝑥 ∈ ( 𝑧𝐵 ) ) → ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 )
58 47 55 57 syl2anc ( ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) ∧ 𝑧𝐴𝑥𝑧 ) → ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 )
59 58 3exp ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) → ( 𝑧𝐴 → ( 𝑥𝑧 → ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 ) ) )
60 59 rexlimdv ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) → ( ∃ 𝑧𝐴 𝑥𝑧 → ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 ) )
61 40 60 mpd ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) → ∃ 𝑦 ∈ ( 𝐴t 𝐵 ) 𝑥𝑦 )
62 61 3 sylibr ( ( 𝜑𝑥 ∈ ( 𝐴𝐵 ) ) → 𝑥 ( 𝐴t 𝐵 ) )
63 36 62 eqelssd ( 𝜑 ( 𝐴t 𝐵 ) = ( 𝐴𝐵 ) )