Users' Mathboxes Mathbox for Richard Penner < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dfrcl2 Structured version   Visualization version   GIF version

Theorem dfrcl2 36985
Description: Reflexive closure of a relation as union with restricted identity relation. (Contributed by RP, 6-Jun-2020.)
Assertion
Ref Expression
dfrcl2 r* = (𝑥 ∈ V ↦ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))

Proof of Theorem dfrcl2
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 df-rcl 36984 . 2 r* = (𝑥 ∈ V ↦ {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)})
2 rabab 3196 . . . . . . . 8 {𝑧 ∈ V ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} = {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)}
32eqcomi 2619 . . . . . . 7 {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} = {𝑧 ∈ V ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)}
43inteqi 4414 . . . . . 6 {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} = {𝑧 ∈ V ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)}
54a1i 11 . . . . 5 (𝑥 ∈ V → {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} = {𝑧 ∈ V ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)})
6 vex 3176 . . . . . . . . . . 11 𝑥 ∈ V
76dmex 6991 . . . . . . . . . 10 dom 𝑥 ∈ V
86rnex 6992 . . . . . . . . . 10 ran 𝑥 ∈ V
97, 8unex 6854 . . . . . . . . 9 (dom 𝑥 ∪ ran 𝑥) ∈ V
10 resiexg 6994 . . . . . . . . 9 ((dom 𝑥 ∪ ran 𝑥) ∈ V → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∈ V)
119, 10ax-mp 5 . . . . . . . 8 ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∈ V
1211, 6unex 6854 . . . . . . 7 (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∈ V
1312a1i 11 . . . . . 6 (𝑥 ∈ V → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∈ V)
14 ssun2 3739 . . . . . . 7 𝑥 ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)
15 dmun 5253 . . . . . . . . . . . 12 dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) = (dom ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ dom 𝑥)
16 dmresi 5376 . . . . . . . . . . . . 13 dom ( I ↾ (dom 𝑥 ∪ ran 𝑥)) = (dom 𝑥 ∪ ran 𝑥)
1716uneq1i 3725 . . . . . . . . . . . 12 (dom ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ dom 𝑥) = ((dom 𝑥 ∪ ran 𝑥) ∪ dom 𝑥)
18 un23 3734 . . . . . . . . . . . . 13 ((dom 𝑥 ∪ ran 𝑥) ∪ dom 𝑥) = ((dom 𝑥 ∪ dom 𝑥) ∪ ran 𝑥)
19 unidm 3718 . . . . . . . . . . . . . 14 (dom 𝑥 ∪ dom 𝑥) = dom 𝑥
2019uneq1i 3725 . . . . . . . . . . . . 13 ((dom 𝑥 ∪ dom 𝑥) ∪ ran 𝑥) = (dom 𝑥 ∪ ran 𝑥)
2118, 20eqtri 2632 . . . . . . . . . . . 12 ((dom 𝑥 ∪ ran 𝑥) ∪ dom 𝑥) = (dom 𝑥 ∪ ran 𝑥)
2215, 17, 213eqtri 2636 . . . . . . . . . . 11 dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) = (dom 𝑥 ∪ ran 𝑥)
23 rnun 5460 . . . . . . . . . . . 12 ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) = (ran ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ ran 𝑥)
24 rnresi 5398 . . . . . . . . . . . . 13 ran ( I ↾ (dom 𝑥 ∪ ran 𝑥)) = (dom 𝑥 ∪ ran 𝑥)
2524uneq1i 3725 . . . . . . . . . . . 12 (ran ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ ran 𝑥) = ((dom 𝑥 ∪ ran 𝑥) ∪ ran 𝑥)
26 unass 3732 . . . . . . . . . . . . 13 ((dom 𝑥 ∪ ran 𝑥) ∪ ran 𝑥) = (dom 𝑥 ∪ (ran 𝑥 ∪ ran 𝑥))
27 unidm 3718 . . . . . . . . . . . . . 14 (ran 𝑥 ∪ ran 𝑥) = ran 𝑥
2827uneq2i 3726 . . . . . . . . . . . . 13 (dom 𝑥 ∪ (ran 𝑥 ∪ ran 𝑥)) = (dom 𝑥 ∪ ran 𝑥)
2926, 28eqtri 2632 . . . . . . . . . . . 12 ((dom 𝑥 ∪ ran 𝑥) ∪ ran 𝑥) = (dom 𝑥 ∪ ran 𝑥)
3023, 25, 293eqtri 2636 . . . . . . . . . . 11 ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) = (dom 𝑥 ∪ ran 𝑥)
3122, 30uneq12i 3727 . . . . . . . . . 10 (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)) = ((dom 𝑥 ∪ ran 𝑥) ∪ (dom 𝑥 ∪ ran 𝑥))
32 unidm 3718 . . . . . . . . . 10 ((dom 𝑥 ∪ ran 𝑥) ∪ (dom 𝑥 ∪ ran 𝑥)) = (dom 𝑥 ∪ ran 𝑥)
3331, 32eqtri 2632 . . . . . . . . 9 (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)) = (dom 𝑥 ∪ ran 𝑥)
3433reseq2i 5314 . . . . . . . 8 ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) = ( I ↾ (dom 𝑥 ∪ ran 𝑥))
35 ssun1 3738 . . . . . . . 8 ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)
3634, 35eqsstri 3598 . . . . . . 7 ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)
3714, 36pm3.2i 470 . . . . . 6 (𝑥 ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∧ ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
38 dmeq 5246 . . . . . . . . . . 11 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → dom 𝑧 = dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
39 rneq 5272 . . . . . . . . . . 11 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → ran 𝑧 = ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
4038, 39uneq12d 3730 . . . . . . . . . 10 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → (dom 𝑧 ∪ ran 𝑧) = (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)))
4140reseq2d 5317 . . . . . . . . 9 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → ( I ↾ (dom 𝑧 ∪ ran 𝑧)) = ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))))
42 id 22 . . . . . . . . 9 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → 𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
4341, 42sseq12d 3597 . . . . . . . 8 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → (( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧 ↔ ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥)))
4443cleq2lem 36933 . . . . . . 7 (𝑧 = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) → ((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) ↔ (𝑥 ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∧ ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))))
4544intminss 4438 . . . . . 6 (((( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∈ V ∧ (𝑥 ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∧ ( I ↾ (dom (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ∪ ran (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))) → {𝑧 ∈ V ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
4613, 37, 45sylancl 693 . . . . 5 (𝑥 ∈ V → {𝑧 ∈ V ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
475, 46eqsstrd 3602 . . . 4 (𝑥 ∈ V → {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} ⊆ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
48 dmss 5245 . . . . . . . . . . . . . . . 16 (𝑥𝑧 → dom 𝑥 ⊆ dom 𝑧)
49 rnss 5275 . . . . . . . . . . . . . . . 16 (𝑥𝑧 → ran 𝑥 ⊆ ran 𝑧)
50 unss12 3747 . . . . . . . . . . . . . . . 16 ((dom 𝑥 ⊆ dom 𝑧 ∧ ran 𝑥 ⊆ ran 𝑧) → (dom 𝑥 ∪ ran 𝑥) ⊆ (dom 𝑧 ∪ ran 𝑧))
5148, 49, 50syl2anc 691 . . . . . . . . . . . . . . 15 (𝑥𝑧 → (dom 𝑥 ∪ ran 𝑥) ⊆ (dom 𝑧 ∪ ran 𝑧))
52 dfss 3555 . . . . . . . . . . . . . . 15 ((dom 𝑥 ∪ ran 𝑥) ⊆ (dom 𝑧 ∪ ran 𝑧) ↔ (dom 𝑥 ∪ ran 𝑥) = ((dom 𝑥 ∪ ran 𝑥) ∩ (dom 𝑧 ∪ ran 𝑧)))
5351, 52sylib 207 . . . . . . . . . . . . . 14 (𝑥𝑧 → (dom 𝑥 ∪ ran 𝑥) = ((dom 𝑥 ∪ ran 𝑥) ∩ (dom 𝑧 ∪ ran 𝑧)))
54 incom 3767 . . . . . . . . . . . . . 14 ((dom 𝑥 ∪ ran 𝑥) ∩ (dom 𝑧 ∪ ran 𝑧)) = ((dom 𝑧 ∪ ran 𝑧) ∩ (dom 𝑥 ∪ ran 𝑥))
5553, 54syl6eq 2660 . . . . . . . . . . . . 13 (𝑥𝑧 → (dom 𝑥 ∪ ran 𝑥) = ((dom 𝑧 ∪ ran 𝑧) ∩ (dom 𝑥 ∪ ran 𝑥)))
5655reseq2d 5317 . . . . . . . . . . . 12 (𝑥𝑧 → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) = ( I ↾ ((dom 𝑧 ∪ ran 𝑧) ∩ (dom 𝑥 ∪ ran 𝑥))))
57 resres 5329 . . . . . . . . . . . 12 (( I ↾ (dom 𝑧 ∪ ran 𝑧)) ↾ (dom 𝑥 ∪ ran 𝑥)) = ( I ↾ ((dom 𝑧 ∪ ran 𝑧) ∩ (dom 𝑥 ∪ ran 𝑥)))
5856, 57syl6eqr 2662 . . . . . . . . . . 11 (𝑥𝑧 → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) = (( I ↾ (dom 𝑧 ∪ ran 𝑧)) ↾ (dom 𝑥 ∪ ran 𝑥)))
59 resss 5342 . . . . . . . . . . . 12 (( I ↾ (dom 𝑧 ∪ ran 𝑧)) ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ ( I ↾ (dom 𝑧 ∪ ran 𝑧))
6059a1i 11 . . . . . . . . . . 11 (𝑥𝑧 → (( I ↾ (dom 𝑧 ∪ ran 𝑧)) ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ ( I ↾ (dom 𝑧 ∪ ran 𝑧)))
6158, 60eqsstrd 3602 . . . . . . . . . 10 (𝑥𝑧 → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ ( I ↾ (dom 𝑧 ∪ ran 𝑧)))
6261adantr 480 . . . . . . . . 9 ((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ ( I ↾ (dom 𝑧 ∪ ran 𝑧)))
63 simpr 476 . . . . . . . . 9 ((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)
6462, 63sstrd 3578 . . . . . . . 8 ((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑧)
65 simpl 472 . . . . . . . 8 ((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → 𝑥𝑧)
6664, 65unssd 3751 . . . . . . 7 ((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ⊆ 𝑧)
6766ax-gen 1713 . . . . . 6 𝑧((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ⊆ 𝑧)
6867a1i 11 . . . . 5 (𝑥 ∈ V → ∀𝑧((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ⊆ 𝑧))
69 ssintab 4429 . . . . 5 ((( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ⊆ {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} ↔ ∀𝑧((𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧) → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ⊆ 𝑧))
7068, 69sylibr 223 . . . 4 (𝑥 ∈ V → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥) ⊆ {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)})
7147, 70eqssd 3585 . . 3 (𝑥 ∈ V → {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)} = (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
7271mpteq2ia 4668 . 2 (𝑥 ∈ V ↦ {𝑧 ∣ (𝑥𝑧 ∧ ( I ↾ (dom 𝑧 ∪ ran 𝑧)) ⊆ 𝑧)}) = (𝑥 ∈ V ↦ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
731, 72eqtri 2632 1 r* = (𝑥 ∈ V ↦ (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ∪ 𝑥))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383  wal 1473   = wceq 1475  wcel 1977  {cab 2596  {crab 2900  Vcvv 3173  cun 3538  cin 3539  wss 3540   cint 4410  cmpt 4643   I cid 4948  dom cdm 5038  ran crn 5039  cres 5040  r*crcl 36983
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-int 4411  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-rcl 36984
This theorem is referenced by:  dfrcl3  36986
  Copyright terms: Public domain W3C validator