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

Theorem trrelsuperrel2dg 38662
Description: Concrete construction of a superclass of relation 𝑅 which is a transitive relation. (Contributed by RP, 20-Jul-2020.)
Hypothesis
Ref Expression
trrelsuperrel2dg.s (𝜑𝑆 = (𝑅 ∪ (dom 𝑅 × ran 𝑅)))
Assertion
Ref Expression
trrelsuperrel2dg (𝜑 → (𝑅𝑆 ∧ (𝑆𝑆) ⊆ 𝑆))

Proof of Theorem trrelsuperrel2dg
StepHypRef Expression
1 ssun1 3940 . . 3 𝑅 ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
2 trrelsuperrel2dg.s . . 3 (𝜑𝑆 = (𝑅 ∪ (dom 𝑅 × ran 𝑅)))
31, 2syl5sseqr 3816 . 2 (𝜑𝑅𝑆)
4 xptrrel 14020 . . . . 5 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (dom 𝑅 × ran 𝑅)
5 ssun2 3941 . . . . 5 (dom 𝑅 × ran 𝑅) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
64, 5sstri 3772 . . . 4 ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅))
76a1i 11 . . 3 (𝜑 → ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ⊆ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))
82, 2coeq12d 5457 . . . 4 (𝜑 → (𝑆𝑆) = ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
9 coundir 5825 . . . . . 6 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = ((𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ∪ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
10 relcnv 5687 . . . . . . 7 Rel 𝑅
11 cocnvcnv1 5834 . . . . . . . . 9 (𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = (𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))
12 relssdmrn 5844 . . . . . . . . . . 11 (Rel 𝑅𝑅 ⊆ (dom 𝑅 × ran 𝑅))
13 dmcnvcnv 5518 . . . . . . . . . . . 12 dom 𝑅 = dom 𝑅
14 rncnvcnv 5519 . . . . . . . . . . . 12 ran 𝑅 = ran 𝑅
1513, 14xpeq12i 5307 . . . . . . . . . . 11 (dom 𝑅 × ran 𝑅) = (dom 𝑅 × ran 𝑅)
1612, 15syl6sseq 3813 . . . . . . . . . 10 (Rel 𝑅𝑅 ⊆ (dom 𝑅 × ran 𝑅))
17 coss1 5448 . . . . . . . . . 10 (𝑅 ⊆ (dom 𝑅 × ran 𝑅) → (𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
1816, 17syl 17 . . . . . . . . 9 (Rel 𝑅 → (𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
1911, 18syl5eqssr 3812 . . . . . . . 8 (Rel 𝑅 → (𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
20 ssequn1 3947 . . . . . . . 8 ((𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ↔ ((𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ∪ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))) = ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
2119, 20sylib 209 . . . . . . 7 (Rel 𝑅 → ((𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ∪ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))) = ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))))
2210, 21ax-mp 5 . . . . . 6 ((𝑅 ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) ∪ ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))) = ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))
239, 22eqtri 2787 . . . . 5 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅)))
24 coundi 5824 . . . . . 6 ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = (((dom 𝑅 × ran 𝑅) ∘ 𝑅) ∪ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
25 cocnvcnv2 5835 . . . . . . . . 9 ((dom 𝑅 × ran 𝑅) ∘ 𝑅) = ((dom 𝑅 × ran 𝑅) ∘ 𝑅)
26 coss2 5449 . . . . . . . . . 10 (𝑅 ⊆ (dom 𝑅 × ran 𝑅) → ((dom 𝑅 × ran 𝑅) ∘ 𝑅) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
2716, 26syl 17 . . . . . . . . 9 (Rel 𝑅 → ((dom 𝑅 × ran 𝑅) ∘ 𝑅) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
2825, 27syl5eqssr 3812 . . . . . . . 8 (Rel 𝑅 → ((dom 𝑅 × ran 𝑅) ∘ 𝑅) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
29 ssequn1 3947 . . . . . . . 8 (((dom 𝑅 × ran 𝑅) ∘ 𝑅) ⊆ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)) ↔ (((dom 𝑅 × ran 𝑅) ∘ 𝑅) ∪ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))) = ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
3028, 29sylib 209 . . . . . . 7 (Rel 𝑅 → (((dom 𝑅 × ran 𝑅) ∘ 𝑅) ∪ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))) = ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
3110, 30ax-mp 5 . . . . . 6 (((dom 𝑅 × ran 𝑅) ∘ 𝑅) ∪ ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))) = ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))
3224, 31eqtri 2787 . . . . 5 ((dom 𝑅 × ran 𝑅) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))
3323, 32eqtri 2787 . . . 4 ((𝑅 ∪ (dom 𝑅 × ran 𝑅)) ∘ (𝑅 ∪ (dom 𝑅 × ran 𝑅))) = ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅))
348, 33syl6eq 2815 . . 3 (𝜑 → (𝑆𝑆) = ((dom 𝑅 × ran 𝑅) ∘ (dom 𝑅 × ran 𝑅)))
357, 34, 23sstr4d 3810 . 2 (𝜑 → (𝑆𝑆) ⊆ 𝑆)
363, 35jca 507 1 (𝜑 → (𝑅𝑆 ∧ (𝑆𝑆) ⊆ 𝑆))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 384   = wceq 1652  cun 3732  wss 3734   × cxp 5277  ccnv 5278  dom cdm 5279  ran crn 5280  ccom 5283  Rel wrel 5284
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2070  ax-7 2105  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-sep 4943  ax-nul 4951  ax-pr 5064
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2063  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-ral 3060  df-rex 3061  df-rab 3064  df-v 3352  df-dif 3737  df-un 3739  df-in 3741  df-ss 3748  df-nul 4082  df-if 4246  df-sn 4337  df-pr 4339  df-op 4343  df-br 4812  df-opab 4874  df-xp 5285  df-rel 5286  df-cnv 5287  df-co 5288  df-dm 5289  df-rn 5290  df-res 5291
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator