MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  trclublem Structured version   Visualization version   GIF version

Theorem trclublem 15030
Description: If a relation exists then the class of transitive relations which are supersets of that relation is not empty. (Contributed by RP, 28-Apr-2020.)
Assertion
Ref Expression
trclublem (𝑅𝑉 → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)})
Distinct variable group:   𝑥,𝑅
Allowed substitution hint:   𝑉(𝑥)

Proof of Theorem trclublem
Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 trclexlem 15029 . 2 (𝑅𝑉 → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V)
2 ssun1 4187 . . 3 𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
3 relcnv 6124 . . . . . . . . . . . . . 14 Rel 𝑅
4 relssdmrn 6289 . . . . . . . . . . . . . 14 (Rel 𝑅𝑅 ⊆ (dom 𝑅 × ran 𝑅))
53, 4ax-mp 5 . . . . . . . . . . . . 13 𝑅 ⊆ (dom 𝑅 × ran 𝑅)
6 ssequn1 4195 . . . . . . . . . . . . 13 (𝑅 ⊆ (dom 𝑅 × ran 𝑅) ↔ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (dom 𝑅 × ran 𝑅))
75, 6mpbi 230 . . . . . . . . . . . 12 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (dom 𝑅 × ran 𝑅)
8 cnvun 6164 . . . . . . . . . . . . 13 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (𝑅(dom 𝑅 × ran 𝑅))
9 cnvxp 6178 . . . . . . . . . . . . . . 15 (dom 𝑅 × ran 𝑅) = (ran 𝑅 × dom 𝑅)
10 df-rn 5699 . . . . . . . . . . . . . . . 16 ran 𝑅 = dom 𝑅
11 dfdm4 5908 . . . . . . . . . . . . . . . 16 dom 𝑅 = ran 𝑅
1210, 11xpeq12i 5716 . . . . . . . . . . . . . . 15 (ran 𝑅 × dom 𝑅) = (dom 𝑅 × ran 𝑅)
139, 12eqtri 2762 . . . . . . . . . . . . . 14 (dom 𝑅 × ran 𝑅) = (dom 𝑅 × ran 𝑅)
1413uneq2i 4174 . . . . . . . . . . . . 13 (𝑅(dom 𝑅 × ran 𝑅)) = (𝑅 ∪ (dom 𝑅 × ran 𝑅))
158, 14eqtri 2762 . . . . . . . . . . . 12 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (𝑅 ∪ (dom 𝑅 × ran 𝑅))
167, 15, 133eqtr4i 2772 . . . . . . . . . . 11 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (dom 𝑅 × ran 𝑅)
1716breqi 5153 . . . . . . . . . 10 (𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑎𝑏(dom 𝑅 × ran 𝑅)𝑎)
18 vex 3481 . . . . . . . . . . 11 𝑏 ∈ V
19 vex 3481 . . . . . . . . . . 11 𝑎 ∈ V
2018, 19brcnv 5895 . . . . . . . . . 10 (𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑎𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏)
2118, 19brcnv 5895 . . . . . . . . . 10 (𝑏(dom 𝑅 × ran 𝑅)𝑎𝑎(dom 𝑅 × ran 𝑅)𝑏)
2217, 20, 213bitr3i 301 . . . . . . . . 9 (𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑎(dom 𝑅 × ran 𝑅)𝑏)
2316breqi 5153 . . . . . . . . . 10 (𝑐(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑐(dom 𝑅 × ran 𝑅)𝑏)
24 vex 3481 . . . . . . . . . . 11 𝑐 ∈ V
2524, 18brcnv 5895 . . . . . . . . . 10 (𝑐(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐)
2624, 18brcnv 5895 . . . . . . . . . 10 (𝑐(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐)
2723, 25, 263bitr3i 301 . . . . . . . . 9 (𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐𝑏(dom 𝑅 × ran 𝑅)𝑐)
2822, 27anbi12i 628 . . . . . . . 8 ((𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐) ↔ (𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐))
2928biimpi 216 . . . . . . 7 ((𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐) → (𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐))
3029eximi 1831 . . . . . 6 (∃𝑏(𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐) → ∃𝑏(𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐))
3130ssopab2i 5559 . . . . 5 {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐)} ⊆ {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐)}
32 df-co 5697 . . . . 5 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐)}
33 df-co 5697 . . . . 5 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) = {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐)}
3431, 32, 333sstr4i 4038 . . . 4 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))
35 xptrrel 15015 . . . . 5 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (dom 𝑅 × ran 𝑅)
36 ssun2 4188 . . . . 5 (dom 𝑅 × ran 𝑅) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
3735, 36sstri 4004 . . . 4 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
3834, 37sstri 4004 . . 3 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
39 trcleq2lem 15026 . . . . 5 (𝑥 = (𝑅 ∪ (dom 𝑅 × ran 𝑅)) → ((𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥) ↔ (𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∧ ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))))
4039elabg 3676 . . . 4 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V → ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)} ↔ (𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∧ ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))))
4140biimprd 248 . . 3 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V → ((𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∧ ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)}))
422, 38, 41mp2ani 698 . 2 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)})
431, 42syl 17 1 (𝑅𝑉 → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1536  wex 1775  wcel 2105  {cab 2711  Vcvv 3477  cun 3960  wss 3962   class class class wbr 5147  {copab 5209   × cxp 5686  ccnv 5687  dom cdm 5688  ran crn 5689  ccom 5692  Rel wrel 5693
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1791  ax-4 1805  ax-5 1907  ax-6 1964  ax-7 2004  ax-8 2107  ax-9 2115  ax-10 2138  ax-11 2154  ax-12 2174  ax-ext 2705  ax-sep 5301  ax-nul 5311  ax-pow 5370  ax-pr 5437  ax-un 7753
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1539  df-fal 1549  df-ex 1776  df-nf 1780  df-sb 2062  df-clab 2712  df-cleq 2726  df-clel 2813  df-ne 2938  df-ral 3059  df-rex 3068  df-rab 3433  df-v 3479  df-dif 3965  df-un 3967  df-in 3969  df-ss 3979  df-nul 4339  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-op 4637  df-uni 4912  df-br 5148  df-opab 5210  df-xp 5694  df-rel 5695  df-cnv 5696  df-co 5697  df-dm 5698  df-rn 5699  df-res 5700
This theorem is referenced by:  trclubi  15031  trclubgi  15032  trclub  15033  trclubg  15034
  Copyright terms: Public domain W3C validator