Metamath Proof Explorer


Theorem trrelsuperreldg

Description: Concrete construction of a superclass of relation R which is a transitive relation. (Contributed by RP, 25-Dec-2019)

Ref Expression
Hypotheses trrelsuperreldg.r φRelR
trrelsuperreldg.s φS=domR×ranR
Assertion trrelsuperreldg φRSSSS

Proof

Step Hyp Ref Expression
1 trrelsuperreldg.r φRelR
2 trrelsuperreldg.s φS=domR×ranR
3 relssdmrn RelRRdomR×ranR
4 1 3 syl φRdomR×ranR
5 4 2 sseqtrrd φRS
6 xptrrel domR×ranRdomR×ranRdomR×ranR
7 6 a1i φdomR×ranRdomR×ranRdomR×ranR
8 2 2 coeq12d φSS=domR×ranRdomR×ranR
9 7 8 2 3sstr4d φSSS
10 5 9 jca φRSSSS