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

Theorem rclexi 43577
Description: The reflexive closure of a set exists. (Contributed by RP, 27-Oct-2020.)
Hypothesis
Ref Expression
rclexi.1 𝐴𝑉
Assertion
Ref Expression
rclexi {𝑥 ∣ (𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥)} ∈ V
Distinct variable group:   𝑥,𝐴
Allowed substitution hint:   𝑉(𝑥)

Proof of Theorem rclexi
StepHypRef Expression
1 ssun1 4201 . 2 𝐴 ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))
2 dmun 5935 . . . . . . 7 dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) = (dom 𝐴 ∪ dom ( I ↾ (dom 𝐴 ∪ ran 𝐴)))
3 dmresi 6081 . . . . . . . 8 dom ( I ↾ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴)
43uneq2i 4188 . . . . . . 7 (dom 𝐴 ∪ dom ( I ↾ (dom 𝐴 ∪ ran 𝐴))) = (dom 𝐴 ∪ (dom 𝐴 ∪ ran 𝐴))
5 ssun1 4201 . . . . . . . 8 dom 𝐴 ⊆ (dom 𝐴 ∪ ran 𝐴)
6 ssequn1 4209 . . . . . . . 8 (dom 𝐴 ⊆ (dom 𝐴 ∪ ran 𝐴) ↔ (dom 𝐴 ∪ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴))
75, 6mpbi 230 . . . . . . 7 (dom 𝐴 ∪ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴)
82, 4, 73eqtri 2772 . . . . . 6 dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) = (dom 𝐴 ∪ ran 𝐴)
9 rnun 6177 . . . . . . 7 ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) = (ran 𝐴 ∪ ran ( I ↾ (dom 𝐴 ∪ ran 𝐴)))
10 rnresi 6104 . . . . . . . 8 ran ( I ↾ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴)
1110uneq2i 4188 . . . . . . 7 (ran 𝐴 ∪ ran ( I ↾ (dom 𝐴 ∪ ran 𝐴))) = (ran 𝐴 ∪ (dom 𝐴 ∪ ran 𝐴))
12 ssun2 4202 . . . . . . . 8 ran 𝐴 ⊆ (dom 𝐴 ∪ ran 𝐴)
13 ssequn1 4209 . . . . . . . 8 (ran 𝐴 ⊆ (dom 𝐴 ∪ ran 𝐴) ↔ (ran 𝐴 ∪ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴))
1412, 13mpbi 230 . . . . . . 7 (ran 𝐴 ∪ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴)
159, 11, 143eqtri 2772 . . . . . 6 ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) = (dom 𝐴 ∪ ran 𝐴)
168, 15uneq12i 4189 . . . . 5 (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))) = ((dom 𝐴 ∪ ran 𝐴) ∪ (dom 𝐴 ∪ ran 𝐴))
17 unidm 4180 . . . . 5 ((dom 𝐴 ∪ ran 𝐴) ∪ (dom 𝐴 ∪ ran 𝐴)) = (dom 𝐴 ∪ ran 𝐴)
1816, 17eqtri 2768 . . . 4 (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))) = (dom 𝐴 ∪ ran 𝐴)
1918reseq2i 6006 . . 3 ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))) = ( I ↾ (dom 𝐴 ∪ ran 𝐴))
20 ssun2 4202 . . 3 ( I ↾ (dom 𝐴 ∪ ran 𝐴)) ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))
2119, 20eqsstri 4043 . 2 ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))) ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))
22 rclexi.1 . . . . . 6 𝐴𝑉
2322elexi 3511 . . . . 5 𝐴 ∈ V
24 dmexg 7941 . . . . . . . 8 (𝐴𝑉 → dom 𝐴 ∈ V)
25 rnexg 7942 . . . . . . . 8 (𝐴𝑉 → ran 𝐴 ∈ V)
2624, 25unexd 7789 . . . . . . 7 (𝐴𝑉 → (dom 𝐴 ∪ ran 𝐴) ∈ V)
2726resiexd 7253 . . . . . 6 (𝐴𝑉 → ( I ↾ (dom 𝐴 ∪ ran 𝐴)) ∈ V)
2822, 27ax-mp 5 . . . . 5 ( I ↾ (dom 𝐴 ∪ ran 𝐴)) ∈ V
2923, 28unex 7779 . . . 4 (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∈ V
30 dmeq 5928 . . . . . . . 8 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → dom 𝑥 = dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))
31 rneq 5961 . . . . . . . 8 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → ran 𝑥 = ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))
3230, 31uneq12d 4192 . . . . . . 7 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → (dom 𝑥 ∪ ran 𝑥) = (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))))
3332reseq2d 6009 . . . . . 6 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → ( I ↾ (dom 𝑥 ∪ ran 𝑥)) = ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))))
34 id 22 . . . . . 6 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → 𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))
3533, 34sseq12d 4042 . . . . 5 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → (( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥 ↔ ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))) ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))))
3635cleq2lem 43570 . . . 4 (𝑥 = (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) → ((𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥) ↔ (𝐴 ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∧ ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))) ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))))
3729, 36spcev 3619 . . 3 ((𝐴 ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∧ ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))) ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))) → ∃𝑥(𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥))
38 intexab 5364 . . 3 (∃𝑥(𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥) ↔ {𝑥 ∣ (𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥)} ∈ V)
3937, 38sylib 218 . 2 ((𝐴 ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∧ ( I ↾ (dom (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))) ∪ ran (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴))))) ⊆ (𝐴 ∪ ( I ↾ (dom 𝐴 ∪ ran 𝐴)))) → {𝑥 ∣ (𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥)} ∈ V)
401, 21, 39mp2an 691 1 {𝑥 ∣ (𝐴𝑥 ∧ ( I ↾ (dom 𝑥 ∪ ran 𝑥)) ⊆ 𝑥)} ∈ V
Colors of variables: wff setvar class
Syntax hints:  wa 395   = wceq 1537  wex 1777  wcel 2108  {cab 2717  Vcvv 3488  cun 3974  wss 3976   cint 4970   I cid 5592  dom cdm 5700  ran crn 5701  cres 5702
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pr 5447  ax-un 7770
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator