Metamath Proof Explorer


Theorem wwlktovf1

Description: Lemma 2 for wrd2f1tovbij . (Contributed by Alexander van der Vekens, 27-Jul-2018)

Ref Expression
Hypotheses wwlktovf1o.d D = w Word V | w = 2 w 0 = P w 0 w 1 X
wwlktovf1o.r R = n V | P n X
wwlktovf1o.f F = t D t 1
Assertion wwlktovf1 F : D 1-1 R

Proof

Step Hyp Ref Expression
1 wwlktovf1o.d D = w Word V | w = 2 w 0 = P w 0 w 1 X
2 wwlktovf1o.r R = n V | P n X
3 wwlktovf1o.f F = t D t 1
4 1 2 3 wwlktovf F : D R
5 fveq1 t = x t 1 = x 1
6 fvex x 1 V
7 5 3 6 fvmpt x D F x = x 1
8 fveq1 t = y t 1 = y 1
9 fvex y 1 V
10 8 3 9 fvmpt y D F y = y 1
11 7 10 eqeqan12d x D y D F x = F y x 1 = y 1
12 fveqeq2 w = x w = 2 x = 2
13 fveq1 w = x w 0 = x 0
14 13 eqeq1d w = x w 0 = P x 0 = P
15 fveq1 w = x w 1 = x 1
16 13 15 preq12d w = x w 0 w 1 = x 0 x 1
17 16 eleq1d w = x w 0 w 1 X x 0 x 1 X
18 12 14 17 3anbi123d w = x w = 2 w 0 = P w 0 w 1 X x = 2 x 0 = P x 0 x 1 X
19 18 1 elrab2 x D x Word V x = 2 x 0 = P x 0 x 1 X
20 fveqeq2 w = y w = 2 y = 2
21 fveq1 w = y w 0 = y 0
22 21 eqeq1d w = y w 0 = P y 0 = P
23 fveq1 w = y w 1 = y 1
24 21 23 preq12d w = y w 0 w 1 = y 0 y 1
25 24 eleq1d w = y w 0 w 1 X y 0 y 1 X
26 20 22 25 3anbi123d w = y w = 2 w 0 = P w 0 w 1 X y = 2 y 0 = P y 0 y 1 X
27 26 1 elrab2 y D y Word V y = 2 y 0 = P y 0 y 1 X
28 simpr1 x Word V x = 2 x 0 = P x 0 x 1 X x = 2
29 simpr1 y Word V y = 2 y 0 = P y 0 y 1 X y = 2
30 29 eqcomd y Word V y = 2 y 0 = P y 0 y 1 X 2 = y
31 28 30 sylan9eq x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x = y
32 31 adantr x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 x = y
33 simpr2 x Word V x = 2 x 0 = P x 0 x 1 X x 0 = P
34 simpr2 y Word V y = 2 y 0 = P y 0 y 1 X y 0 = P
35 34 eqcomd y Word V y = 2 y 0 = P y 0 y 1 X P = y 0
36 33 35 sylan9eq x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 0 = y 0
37 36 adantr x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 x 0 = y 0
38 simpr x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 x 1 = y 1
39 oveq2 x = 2 0 ..^ x = 0 ..^ 2
40 fzo0to2pr 0 ..^ 2 = 0 1
41 39 40 eqtrdi x = 2 0 ..^ x = 0 1
42 41 raleqdv x = 2 i 0 ..^ x x i = y i i 0 1 x i = y i
43 c0ex 0 V
44 1ex 1 V
45 fveq2 i = 0 x i = x 0
46 fveq2 i = 0 y i = y 0
47 45 46 eqeq12d i = 0 x i = y i x 0 = y 0
48 fveq2 i = 1 x i = x 1
49 fveq2 i = 1 y i = y 1
50 48 49 eqeq12d i = 1 x i = y i x 1 = y 1
51 43 44 47 50 ralpr i 0 1 x i = y i x 0 = y 0 x 1 = y 1
52 42 51 bitrdi x = 2 i 0 ..^ x x i = y i x 0 = y 0 x 1 = y 1
53 52 3ad2ant1 x = 2 x 0 = P x 0 x 1 X i 0 ..^ x x i = y i x 0 = y 0 x 1 = y 1
54 53 ad3antlr x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 i 0 ..^ x x i = y i x 0 = y 0 x 1 = y 1
55 37 38 54 mpbir2and x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 i 0 ..^ x x i = y i
56 eqwrd x Word V y Word V x = y x = y i 0 ..^ x x i = y i
57 56 ad2ant2r x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x = y x = y i 0 ..^ x x i = y i
58 57 adantr x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 x = y x = y i 0 ..^ x x i = y i
59 32 55 58 mpbir2and x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 x = y
60 59 ex x Word V x = 2 x 0 = P x 0 x 1 X y Word V y = 2 y 0 = P y 0 y 1 X x 1 = y 1 x = y
61 19 27 60 syl2anb x D y D x 1 = y 1 x = y
62 11 61 sylbid x D y D F x = F y x = y
63 62 rgen2 x D y D F x = F y x = y
64 dff13 F : D 1-1 R F : D R x D y D F x = F y x = y
65 4 63 64 mpbir2an F : D 1-1 R