Metamath Proof Explorer


Theorem f13dfv

Description: A one-to-one function with a domain with at least three different elements in terms of function values. (Contributed by Alexander van der Vekens, 26-Jan-2018)

Ref Expression
Hypothesis f13dfv.a A=XYZ
Assertion f13dfv XUYVZWXYXZYZF:A1-1BF:ABFXFYFXFZFYFZ

Proof

Step Hyp Ref Expression
1 f13dfv.a A=XYZ
2 dff14b F:A1-1BF:ABxAyAxFxFy
3 1 raleqi xAyAxFxFyxXYZyAxFxFy
4 sneq x=Xx=X
5 4 difeq2d x=XAx=AX
6 fveq2 x=XFx=FX
7 6 neeq1d x=XFxFyFXFy
8 5 7 raleqbidv x=XyAxFxFyyAXFXFy
9 sneq x=Yx=Y
10 9 difeq2d x=YAx=AY
11 fveq2 x=YFx=FY
12 11 neeq1d x=YFxFyFYFy
13 10 12 raleqbidv x=YyAxFxFyyAYFYFy
14 sneq x=Zx=Z
15 14 difeq2d x=ZAx=AZ
16 fveq2 x=ZFx=FZ
17 16 neeq1d x=ZFxFyFZFy
18 15 17 raleqbidv x=ZyAxFxFyyAZFZFy
19 8 13 18 raltpg XUYVZWxXYZyAxFxFyyAXFXFyyAYFYFyyAZFZFy
20 19 adantr XUYVZWXYXZYZxXYZyAxFxFyyAXFXFyyAYFYFyyAZFZFy
21 1 difeq1i AX=XYZX
22 tprot XYZ=YZX
23 22 difeq1i XYZX=YZXX
24 necom XYYX
25 necom XZZX
26 24 25 anbi12i XYXZYXZX
27 26 biimpi XYXZYXZX
28 27 3adant3 XYXZYZYXZX
29 diftpsn3 YXZXYZXX=YZ
30 28 29 syl XYXZYZYZXX=YZ
31 23 30 eqtrid XYXZYZXYZX=YZ
32 21 31 eqtrid XYXZYZAX=YZ
33 32 adantl XUYVZWXYXZYZAX=YZ
34 33 raleqdv XUYVZWXYXZYZyAXFXFyyYZFXFy
35 fveq2 y=YFy=FY
36 35 neeq2d y=YFXFyFXFY
37 fveq2 y=ZFy=FZ
38 37 neeq2d y=ZFXFyFXFZ
39 36 38 ralprg YVZWyYZFXFyFXFYFXFZ
40 39 3adant1 XUYVZWyYZFXFyFXFYFXFZ
41 40 adantr XUYVZWXYXZYZyYZFXFyFXFYFXFZ
42 34 41 bitrd XUYVZWXYXZYZyAXFXFyFXFYFXFZ
43 1 difeq1i AY=XYZY
44 tpcomb XYZ=XZY
45 44 difeq1i XYZY=XZYY
46 necom YZZY
47 46 biimpi YZZY
48 47 anim2i XYYZXYZY
49 48 3adant2 XYXZYZXYZY
50 diftpsn3 XYZYXZYY=XZ
51 49 50 syl XYXZYZXZYY=XZ
52 45 51 eqtrid XYXZYZXYZY=XZ
53 43 52 eqtrid XYXZYZAY=XZ
54 53 adantl XUYVZWXYXZYZAY=XZ
55 54 raleqdv XUYVZWXYXZYZyAYFYFyyXZFYFy
56 fveq2 y=XFy=FX
57 56 neeq2d y=XFYFyFYFX
58 37 neeq2d y=ZFYFyFYFZ
59 57 58 ralprg XUZWyXZFYFyFYFXFYFZ
60 59 3adant2 XUYVZWyXZFYFyFYFXFYFZ
61 60 adantr XUYVZWXYXZYZyXZFYFyFYFXFYFZ
62 55 61 bitrd XUYVZWXYXZYZyAYFYFyFYFXFYFZ
63 1 difeq1i AZ=XYZZ
64 diftpsn3 XZYZXYZZ=XY
65 64 3adant1 XYXZYZXYZZ=XY
66 63 65 eqtrid XYXZYZAZ=XY
67 66 adantl XUYVZWXYXZYZAZ=XY
68 67 raleqdv XUYVZWXYXZYZyAZFZFyyXYFZFy
69 56 neeq2d y=XFZFyFZFX
70 35 neeq2d y=YFZFyFZFY
71 69 70 ralprg XUYVyXYFZFyFZFXFZFY
72 71 3adant3 XUYVZWyXYFZFyFZFXFZFY
73 72 adantr XUYVZWXYXZYZyXYFZFyFZFXFZFY
74 68 73 bitrd XUYVZWXYXZYZyAZFZFyFZFXFZFY
75 42 62 74 3anbi123d XUYVZWXYXZYZyAXFXFyyAYFYFyyAZFZFyFXFYFXFZFYFXFYFZFZFXFZFY
76 ancom FYFXFYFZFYFZFYFX
77 76 3anbi2i FXFYFXFZFYFXFYFZFZFXFZFYFXFYFXFZFYFZFYFXFZFXFZFY
78 3an6 FXFYFXFZFYFZFYFXFZFXFZFYFXFYFYFZFZFXFXFZFYFXFZFY
79 3anrot FZFXFXFYFYFZFXFYFYFZFZFX
80 79 bicomi FXFYFYFZFZFXFZFXFXFYFYFZ
81 necom FXFZFZFX
82 necom FYFXFXFY
83 necom FZFYFYFZ
84 81 82 83 3anbi123i FXFZFYFXFZFYFZFXFXFYFYFZ
85 80 84 anbi12i FXFYFYFZFZFXFXFZFYFXFZFYFZFXFXFYFYFZFZFXFXFYFYFZ
86 anidm FZFXFXFYFYFZFZFXFXFYFYFZFZFXFXFYFYFZ
87 3ancoma FZFXFXFYFYFZFXFYFZFXFYFZ
88 necom FZFXFXFZ
89 88 3anbi2i FXFYFZFXFYFZFXFYFXFZFYFZ
90 87 89 bitri FZFXFXFYFYFZFXFYFXFZFYFZ
91 85 86 90 3bitri FXFYFYFZFZFXFXFZFYFXFZFYFXFYFXFZFYFZ
92 77 78 91 3bitri FXFYFXFZFYFXFYFZFZFXFZFYFXFYFXFZFYFZ
93 75 92 bitrdi XUYVZWXYXZYZyAXFXFyyAYFYFyyAZFZFyFXFYFXFZFYFZ
94 20 93 bitrd XUYVZWXYXZYZxXYZyAxFxFyFXFYFXFZFYFZ
95 3 94 bitrid XUYVZWXYXZYZxAyAxFxFyFXFYFXFZFYFZ
96 95 anbi2d XUYVZWXYXZYZF:ABxAyAxFxFyF:ABFXFYFXFZFYFZ
97 2 96 bitrid XUYVZWXYXZYZF:A1-1BF:ABFXFYFXFZFYFZ