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

Theorem trclublem 14941
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 14940 . 2 (𝑅𝑉 → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V)
2 ssun1 4172 . . 3 𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
3 relcnv 6103 . . . . . . . . . . . . . 14 Rel 𝑅
4 relssdmrn 6267 . . . . . . . . . . . . . 14 (Rel 𝑅𝑅 ⊆ (dom 𝑅 × ran 𝑅))
53, 4ax-mp 5 . . . . . . . . . . . . 13 𝑅 ⊆ (dom 𝑅 × ran 𝑅)
6 ssequn1 4180 . . . . . . . . . . . . 13 (𝑅 ⊆ (dom 𝑅 × ran 𝑅) ↔ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (dom 𝑅 × ran 𝑅))
75, 6mpbi 229 . . . . . . . . . . . 12 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (dom 𝑅 × ran 𝑅)
8 cnvun 6142 . . . . . . . . . . . . 13 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (𝑅(dom 𝑅 × ran 𝑅))
9 cnvxp 6156 . . . . . . . . . . . . . . 15 (dom 𝑅 × ran 𝑅) = (ran 𝑅 × dom 𝑅)
10 df-rn 5687 . . . . . . . . . . . . . . . 16 ran 𝑅 = dom 𝑅
11 dfdm4 5895 . . . . . . . . . . . . . . . 16 dom 𝑅 = ran 𝑅
1210, 11xpeq12i 5704 . . . . . . . . . . . . . . 15 (ran 𝑅 × dom 𝑅) = (dom 𝑅 × ran 𝑅)
139, 12eqtri 2760 . . . . . . . . . . . . . 14 (dom 𝑅 × ran 𝑅) = (dom 𝑅 × ran 𝑅)
1413uneq2i 4160 . . . . . . . . . . . . 13 (𝑅(dom 𝑅 × ran 𝑅)) = (𝑅 ∪ (dom 𝑅 × ran 𝑅))
158, 14eqtri 2760 . . . . . . . . . . . 12 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (𝑅 ∪ (dom 𝑅 × ran 𝑅))
167, 15, 133eqtr4i 2770 . . . . . . . . . . 11 (𝑅 ∪ (dom 𝑅 × ran 𝑅)) = (dom 𝑅 × ran 𝑅)
1716breqi 5154 . . . . . . . . . 10 (𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑎𝑏(dom 𝑅 × ran 𝑅)𝑎)
18 vex 3478 . . . . . . . . . . 11 𝑏 ∈ V
19 vex 3478 . . . . . . . . . . 11 𝑎 ∈ V
2018, 19brcnv 5882 . . . . . . . . . 10 (𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑎𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏)
2118, 19brcnv 5882 . . . . . . . . . 10 (𝑏(dom 𝑅 × ran 𝑅)𝑎𝑎(dom 𝑅 × ran 𝑅)𝑏)
2217, 20, 213bitr3i 300 . . . . . . . . 9 (𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑎(dom 𝑅 × ran 𝑅)𝑏)
2316breqi 5154 . . . . . . . . . 10 (𝑐(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑐(dom 𝑅 × ran 𝑅)𝑏)
24 vex 3478 . . . . . . . . . . 11 𝑐 ∈ V
2524, 18brcnv 5882 . . . . . . . . . 10 (𝑐(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐)
2624, 18brcnv 5882 . . . . . . . . . 10 (𝑐(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐)
2723, 25, 263bitr3i 300 . . . . . . . . 9 (𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐𝑏(dom 𝑅 × ran 𝑅)𝑐)
2822, 27anbi12i 627 . . . . . . . 8 ((𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐) ↔ (𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐))
2928biimpi 215 . . . . . . 7 ((𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐) → (𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐))
3029eximi 1837 . . . . . 6 (∃𝑏(𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐) → ∃𝑏(𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐))
3130ssopab2i 5550 . . . . 5 {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐)} ⊆ {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐)}
32 df-co 5685 . . . . 5 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑏𝑏(𝑅 ∪ (dom 𝑅 × ran 𝑅))𝑐)}
33 df-co 5685 . . . . 5 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) = {⟨𝑎, 𝑐⟩ ∣ ∃𝑏(𝑎(dom 𝑅 × ran 𝑅)𝑏𝑏(dom 𝑅 × ran 𝑅)𝑐)}
3431, 32, 333sstr4i 4025 . . . 4 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))
35 xptrrel 14926 . . . . 5 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (dom 𝑅 × ran 𝑅)
36 ssun2 4173 . . . . 5 (dom 𝑅 × ran 𝑅) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
3735, 36sstri 3991 . . . 4 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
3834, 37sstri 3991 . . 3 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
39 trcleq2lem 14937 . . . . 5 (𝑥 = (𝑅 ∪ (dom 𝑅 × ran 𝑅)) → ((𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥) ↔ (𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∧ ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))))
4039elabg 3666 . . . 4 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V → ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)} ↔ (𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∧ ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))))
4140biimprd 247 . . 3 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V → ((𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∧ ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)}))
422, 38, 41mp2ani 696 . 2 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ V → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)})
431, 42syl 17 1 (𝑅𝑉 → (𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∈ {𝑥 ∣ (𝑅𝑥 ∧ (𝑥𝑥) ⊆ 𝑥)})
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1541  wex 1781  wcel 2106  {cab 2709  Vcvv 3474  cun 3946  wss 3948   class class class wbr 5148  {copab 5210   × cxp 5674  ccnv 5675  dom cdm 5676  ran crn 5677  ccom 5680  Rel wrel 5681
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-br 5149  df-opab 5211  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688
This theorem is referenced by:  trclubi  14942  trclubgi  14943  trclub  14944  trclubg  14945
  Copyright terms: Public domain W3C validator