Metamath Proof Explorer


Theorem sprsymrelfo

Description: The mapping F is a function from the subsets of the set of pairs over a fixed set V onto the symmetric relations R on the fixed set V . (Contributed by AV, 23-Nov-2021)

Ref Expression
Hypotheses sprsymrelf.p P=𝒫PairsV
sprsymrelf.r R=r𝒫V×V|xVyVxryyrx
sprsymrelf.f F=pPxy|cpc=xy
Assertion sprsymrelfo VWF:PontoR

Proof

Step Hyp Ref Expression
1 sprsymrelf.p P=𝒫PairsV
2 sprsymrelf.r R=r𝒫V×V|xVyVxryyrx
3 sprsymrelf.f F=pPxy|cpc=xy
4 1 2 3 sprsymrelf F:PR
5 4 a1i VWF:PR
6 breq r=txryxty
7 breq r=tyrxytx
8 6 7 bibi12d r=txryyrxxtyytx
9 8 2ralbidv r=txVyVxryyrxxVyVxtyytx
10 9 2 elrab2 tRt𝒫V×VxVyVxtyytx
11 eqid qPairsV|aVbVq=abatb=qPairsV|aVbVq=abatb
12 11 sprsymrelfolem1 qPairsV|aVbVq=abatb𝒫PairsV
13 12 1 eleqtrri qPairsV|aVbVq=abatbP
14 13 a1i t𝒫V×VxVyVxtyytxVWqPairsV|aVbVq=abatbP
15 rexeq f=qPairsV|aVbVq=abatbcfc=xycqPairsV|aVbVq=abatbc=xy
16 15 opabbidv f=qPairsV|aVbVq=abatbxy|cfc=xy=xy|cqPairsV|aVbVq=abatbc=xy
17 16 eqeq2d f=qPairsV|aVbVq=abatbt=xy|cfc=xyt=xy|cqPairsV|aVbVq=abatbc=xy
18 17 adantl t𝒫V×VxVyVxtyytxVWf=qPairsV|aVbVq=abatbt=xy|cfc=xyt=xy|cqPairsV|aVbVq=abatbc=xy
19 velpw t𝒫V×VtV×V
20 xpss V×VV×V
21 sstr2 tV×VV×VV×VtV×V
22 20 21 mpi tV×VtV×V
23 df-rel RelttV×V
24 22 23 sylibr tV×VRelt
25 24 adantl VWtV×VRelt
26 dfrel4v Reltt=xy|xty
27 nfv xVWtV×V
28 nfra1 xxVyVxtyytx
29 27 28 nfan xVWtV×VxVyVxtyytx
30 nfv yVWtV×V
31 nfra2w yxVyVxtyytx
32 30 31 nfan yVWtV×VxVyVxtyytx
33 11 sprsymrelfolem2 VWtV×VxVyVxtyytxxtycqPairsV|aVbVq=abatbc=xy
34 33 3expa VWtV×VxVyVxtyytxxtycqPairsV|aVbVq=abatbc=xy
35 29 32 34 opabbid VWtV×VxVyVxtyytxxy|xty=xy|cqPairsV|aVbVq=abatbc=xy
36 35 eqeq2d VWtV×VxVyVxtyytxt=xy|xtyt=xy|cqPairsV|aVbVq=abatbc=xy
37 36 biimpd VWtV×VxVyVxtyytxt=xy|xtyt=xy|cqPairsV|aVbVq=abatbc=xy
38 37 ex VWtV×VxVyVxtyytxt=xy|xtyt=xy|cqPairsV|aVbVq=abatbc=xy
39 38 com23 VWtV×Vt=xy|xtyxVyVxtyytxt=xy|cqPairsV|aVbVq=abatbc=xy
40 26 39 biimtrid VWtV×VReltxVyVxtyytxt=xy|cqPairsV|aVbVq=abatbc=xy
41 25 40 mpd VWtV×VxVyVxtyytxt=xy|cqPairsV|aVbVq=abatbc=xy
42 41 expcom tV×VVWxVyVxtyytxt=xy|cqPairsV|aVbVq=abatbc=xy
43 42 com23 tV×VxVyVxtyytxVWt=xy|cqPairsV|aVbVq=abatbc=xy
44 19 43 sylbi t𝒫V×VxVyVxtyytxVWt=xy|cqPairsV|aVbVq=abatbc=xy
45 44 imp31 t𝒫V×VxVyVxtyytxVWt=xy|cqPairsV|aVbVq=abatbc=xy
46 14 18 45 rspcedvd t𝒫V×VxVyVxtyytxVWfPt=xy|cfc=xy
47 46 ex t𝒫V×VxVyVxtyytxVWfPt=xy|cfc=xy
48 10 47 sylbi tRVWfPt=xy|cfc=xy
49 48 impcom VWtRfPt=xy|cfc=xy
50 1 2 3 sprsymrelfv fPFf=xy|cfc=xy
51 50 adantl VWtRfPFf=xy|cfc=xy
52 51 eqeq2d VWtRfPt=Fft=xy|cfc=xy
53 52 rexbidva VWtRfPt=FffPt=xy|cfc=xy
54 49 53 mpbird VWtRfPt=Ff
55 54 ralrimiva VWtRfPt=Ff
56 dffo3 F:PontoRF:PRtRfPt=Ff
57 5 55 56 sylanbrc VWF:PontoR