Metamath Proof Explorer


Theorem rclexi

Description: The reflexive closure of a set exists. (Contributed by RP, 27-Oct-2020)

Ref Expression
Hypothesis rclexi.1 ⊢ A ∈ V
Assertion rclexi ⊢ ⋂ x | A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ∈ V

Proof

Step Hyp Ref Expression
1 rclexi.1 ⊢ A ∈ V
2 ssun1 ⊢ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
3 dmun ⊢ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ dom ⁡ I ↾ dom ⁡ A ∪ ran ⁡ A
4 dmresi ⊢ dom ⁡ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
5 4 uneq2i ⊢ dom ⁡ A ∪ dom ⁡ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A
6 ssun1 ⊢ dom ⁡ A ⊆ dom ⁡ A ∪ ran ⁡ A
7 ssequn1 ⊢ dom ⁡ A ⊆ dom ⁡ A ∪ ran ⁡ A ↔ dom ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
8 6 7 mpbi ⊢ dom ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
9 3 5 8 3eqtri ⊢ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
10 rnun ⊢ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = ran ⁡ A ∪ ran ⁡ I ↾ dom ⁡ A ∪ ran ⁡ A
11 rnresi ⊢ ran ⁡ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
12 11 uneq2i ⊢ ran ⁡ A ∪ ran ⁡ I ↾ dom ⁡ A ∪ ran ⁡ A = ran ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A
13 ssun2 ⊢ ran ⁡ A ⊆ dom ⁡ A ∪ ran ⁡ A
14 ssequn1 ⊢ ran ⁡ A ⊆ dom ⁡ A ∪ ran ⁡ A ↔ ran ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
15 13 14 mpbi ⊢ ran ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
16 10 12 15 3eqtri ⊢ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
17 9 16 uneq12i ⊢ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A
18 unidm ⊢ dom ⁡ A ∪ ran ⁡ A ∪ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
19 17 18 eqtri ⊢ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = dom ⁡ A ∪ ran ⁡ A
20 19 reseq2i ⊢ I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A = I ↾ dom ⁡ A ∪ ran ⁡ A
21 ssun2 ⊢ I ↾ dom ⁡ A ∪ ran ⁡ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
22 20 21 eqsstri ⊢ I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
23 1 elexi ⊢ A ∈ V
24 dmexg ⊢ A ∈ V → dom ⁡ A ∈ V
25 rnexg ⊢ A ∈ V → ran ⁡ A ∈ V
26 24 25 unexd ⊢ A ∈ V → dom ⁡ A ∪ ran ⁡ A ∈ V
27 26 resiexd ⊢ A ∈ V → I ↾ dom ⁡ A ∪ ran ⁡ A ∈ V
28 1 27 ax-mp ⊢ I ↾ dom ⁡ A ∪ ran ⁡ A ∈ V
29 23 28 unex ⊢ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∈ V
30 dmeq ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → dom ⁡ x = dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
31 rneq ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → ran ⁡ x = ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
32 30 31 uneq12d ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → dom ⁡ x ∪ ran ⁡ x = dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
33 32 reseq2d ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → I ↾ dom ⁡ x ∪ ran ⁡ x = I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
34 id ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
35 33 34 sseq12d ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ↔ I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
36 35 cleq2lem ⊢ x = A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ↔ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∧ I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A
37 29 36 spcev ⊢ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∧ I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → ∃ x A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x
38 intexab ⊢ ∃ x A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ↔ ⋂ x | A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ∈ V
39 37 38 sylib ⊢ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∧ I ↾ dom ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ∪ ran ⁡ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A ⊆ A ∪ I ↾ dom ⁡ A ∪ ran ⁡ A → ⋂ x | A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ∈ V
40 2 22 39 mp2an ⊢ ⋂ x | A ⊆ x ∧ I ↾ dom ⁡ x ∪ ran ⁡ x ⊆ x ∈ V