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 φ A V
restuni3.2 φ B W
Assertion restuni3 φ A 𝑡 B = A B

Proof

Step Hyp Ref Expression
1 restuni3.1 φ A V
2 restuni3.2 φ B W
3 eluni2 x A 𝑡 B y A 𝑡 B x y
4 3 biimpi x A 𝑡 B y A 𝑡 B x y
5 4 adantl φ x A 𝑡 B y A 𝑡 B x y
6 simpr φ y A 𝑡 B y A 𝑡 B
7 elrest A V B W y A 𝑡 B z A y = z B
8 1 2 7 syl2anc φ y A 𝑡 B z A y = z B
9 8 adantr φ y A 𝑡 B y A 𝑡 B z A y = z B
10 6 9 mpbid φ y A 𝑡 B z A y = z B
11 10 3adant3 φ y A 𝑡 B x y z A y = z B
12 simpl x y y = z B x y
13 simpr x y y = z B y = z B
14 12 13 eleqtrd x y y = z B x z B
15 14 ex x y y = z B x z B
16 15 3ad2ant3 φ y A 𝑡 B x y y = z B x z B
17 16 reximdv φ y A 𝑡 B x y z A y = z B z A x z B
18 11 17 mpd φ y A 𝑡 B x y z A x z B
19 18 3exp φ y A 𝑡 B x y z A x z B
20 19 rexlimdv φ y A 𝑡 B x y z A x z B
21 20 adantr φ x A 𝑡 B y A 𝑡 B x y z A x z B
22 5 21 mpd φ x A 𝑡 B z A x z B
23 elinel1 x z B x z
24 23 adantl z A x z B x z
25 simpl z A x z B z A
26 elunii x z z A x A
27 24 25 26 syl2anc z A x z B x A
28 elinel2 x z B x B
29 28 adantl z A x z B x B
30 27 29 elind z A x z B x A B
31 30 ex z A x z B x A B
32 31 adantl φ x A 𝑡 B z A x z B x A B
33 32 rexlimdva φ x A 𝑡 B z A x z B x A B
34 22 33 mpd φ x A 𝑡 B x A B
35 34 ralrimiva φ x A 𝑡 B x A B
36 dfss3 A 𝑡 B A B x A 𝑡 B x A B
37 35 36 sylibr φ A 𝑡 B A B
38 elinel1 x A B x A
39 eluni2 x A z A x z
40 38 39 sylib x A B z A x z
41 40 adantl φ x A B z A x z
42 1 adantr φ z A A V
43 2 adantr φ z A B W
44 simpr φ z A z A
45 eqid z B = z B
46 42 43 44 45 elrestd φ z A z B A 𝑡 B
47 46 3adant3 φ z A x z z B A 𝑡 B
48 47 3adant1r φ x A B z A x z z B A 𝑡 B
49 simp3 φ x A B z A x z x z
50 simp1r φ x A B z A x z x A B
51 elinel2 x A B x B
52 50 51 syl φ x A B z A x z x B
53 simpl x z x B x z
54 simpr x z x B x B
55 53 54 elind x z x B x z B
56 49 52 55 syl2anc φ x A B z A x z x z B
57 eleq2 y = z B x y x z B
58 57 rspcev z B A 𝑡 B x z B y A 𝑡 B x y
59 48 56 58 syl2anc φ x A B z A x z y A 𝑡 B x y
60 59 3exp φ x A B z A x z y A 𝑡 B x y
61 60 rexlimdv φ x A B z A x z y A 𝑡 B x y
62 41 61 mpd φ x A B y A 𝑡 B x y
63 62 3 sylibr φ x A B x A 𝑡 B
64 37 63 eqelssd φ A 𝑡 B = A B