Metamath Proof Explorer


Theorem s3f1

Description: Conditions for a length 3 string to be a one-to-one function. (Contributed by Thierry Arnoux, 19-Sep-2023)

Ref Expression
Hypotheses s3f1.i φ I D
s3f1.j φ J D
s3f1.k φ K D
s3f1.1 φ I J
s3f1.2 φ J K
s3f1.3 φ K I
Assertion s3f1 φ ⟨“ IJK ”⟩ : dom ⟨“ IJK ”⟩ 1-1 D

Proof

Step Hyp Ref Expression
1 s3f1.i φ I D
2 s3f1.j φ J D
3 s3f1.k φ K D
4 s3f1.1 φ I J
5 s3f1.2 φ J K
6 s3f1.3 φ K I
7 1 2 3 s3cld φ ⟨“ IJK ”⟩ Word D
8 wrdf ⟨“ IJK ”⟩ Word D ⟨“ IJK ”⟩ : 0 ..^ ⟨“ IJK ”⟩ D
9 7 8 syl φ ⟨“ IJK ”⟩ : 0 ..^ ⟨“ IJK ”⟩ D
10 9 ffdmd φ ⟨“ IJK ”⟩ : dom ⟨“ IJK ”⟩ D
11 simplr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 0 i = 0
12 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 0 j = 0
13 11 12 eqtr4d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 0 i = j
14 simpllr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 1 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j
15 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 i = 0
16 15 fveq2d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ 0
17 s3fv0 I D ⟨“ IJK ”⟩ 0 = I
18 1 17 syl φ ⟨“ IJK ”⟩ 0 = I
19 18 ad4antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 ⟨“ IJK ”⟩ 0 = I
20 16 19 eqtrd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 ⟨“ IJK ”⟩ i = I
21 20 adantr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 1 ⟨“ IJK ”⟩ i = I
22 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 1 j = 1
23 22 fveq2d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 1 ⟨“ IJK ”⟩ j = ⟨“ IJK ”⟩ 1
24 s3fv1 J D ⟨“ IJK ”⟩ 1 = J
25 2 24 syl φ ⟨“ IJK ”⟩ 1 = J
26 25 ad4antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 1 ⟨“ IJK ”⟩ 1 = J
27 23 26 eqtrd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 1 ⟨“ IJK ”⟩ j = J
28 27 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 1 ⟨“ IJK ”⟩ j = J
29 14 21 28 3eqtr3d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 1 I = J
30 4 ad5antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 1 I J
31 29 30 pm2.21ddne φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 1 i = j
32 simpllr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 2 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j
33 20 adantr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 2 ⟨“ IJK ”⟩ i = I
34 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 2 j = 2
35 34 fveq2d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 2 ⟨“ IJK ”⟩ j = ⟨“ IJK ”⟩ 2
36 s3fv2 K D ⟨“ IJK ”⟩ 2 = K
37 3 36 syl φ ⟨“ IJK ”⟩ 2 = K
38 37 ad4antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 2 ⟨“ IJK ”⟩ 2 = K
39 35 38 eqtrd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 2 ⟨“ IJK ”⟩ j = K
40 39 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 2 ⟨“ IJK ”⟩ j = K
41 32 33 40 3eqtr3rd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 2 K = I
42 6 ad5antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 2 K I
43 41 42 pm2.21ddne φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 2 i = j
44 wrddm ⟨“ IJK ”⟩ Word D dom ⟨“ IJK ”⟩ = 0 ..^ ⟨“ IJK ”⟩
45 7 44 syl φ dom ⟨“ IJK ”⟩ = 0 ..^ ⟨“ IJK ”⟩
46 s3len ⟨“ IJK ”⟩ = 3
47 46 oveq2i 0 ..^ ⟨“ IJK ”⟩ = 0 ..^ 3
48 fzo0to3tp 0 ..^ 3 = 0 1 2
49 47 48 eqtri 0 ..^ ⟨“ IJK ”⟩ = 0 1 2
50 45 49 syl6eq φ dom ⟨“ IJK ”⟩ = 0 1 2
51 50 eleq2d φ j dom ⟨“ IJK ”⟩ j 0 1 2
52 51 biimpa φ j dom ⟨“ IJK ”⟩ j 0 1 2
53 vex j V
54 53 eltp j 0 1 2 j = 0 j = 1 j = 2
55 52 54 sylib φ j dom ⟨“ IJK ”⟩ j = 0 j = 1 j = 2
56 55 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ j = 0 j = 1 j = 2
57 56 ad2antrr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 j = 0 j = 1 j = 2
58 13 31 43 57 mpjao3dan φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 i = j
59 simpllr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j
60 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 i = 1
61 60 fveq2d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ 1
62 25 ad4antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 ⟨“ IJK ”⟩ 1 = J
63 61 62 eqtrd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 ⟨“ IJK ”⟩ i = J
64 63 adantr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 ⟨“ IJK ”⟩ i = J
65 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 0 j = 0
66 65 fveq2d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 0 ⟨“ IJK ”⟩ j = ⟨“ IJK ”⟩ 0
67 18 ad4antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 0 ⟨“ IJK ”⟩ 0 = I
68 66 67 eqtrd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j j = 0 ⟨“ IJK ”⟩ j = I
69 68 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 ⟨“ IJK ”⟩ j = I
70 59 64 69 3eqtr3rd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 I = J
71 4 ad5antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 I J
72 70 71 pm2.21ddne φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 i = j
73 simplr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 1 i = 1
74 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 1 j = 1
75 73 74 eqtr4d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 1 i = j
76 simpllr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 2 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j
77 63 adantr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 2 ⟨“ IJK ”⟩ i = J
78 39 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 2 ⟨“ IJK ”⟩ j = K
79 76 77 78 3eqtr3d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 2 J = K
80 5 ad5antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 2 J K
81 79 80 pm2.21ddne φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 2 i = j
82 56 ad2antrr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 j = 0 j = 1 j = 2
83 72 75 81 82 mpjao3dan φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 1 i = j
84 simpllr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j
85 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 i = 2
86 85 fveq2d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ 2
87 37 ad4antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 ⟨“ IJK ”⟩ 2 = K
88 86 87 eqtrd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 ⟨“ IJK ”⟩ i = K
89 88 adantr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 ⟨“ IJK ”⟩ i = K
90 68 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 ⟨“ IJK ”⟩ j = I
91 84 89 90 3eqtr3d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 K = I
92 6 ad5antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 K I
93 91 92 pm2.21ddne φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 i = j
94 simpllr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 1 ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j
95 88 adantr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 1 ⟨“ IJK ”⟩ i = K
96 27 adantlr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 1 ⟨“ IJK ”⟩ j = J
97 94 95 96 3eqtr3rd φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 1 J = K
98 5 ad5antr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 1 J K
99 97 98 pm2.21ddne φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 1 i = j
100 simplr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 2 i = 2
101 simpr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 2 j = 2
102 100 101 eqtr4d φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 2 i = j
103 56 ad2antrr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 j = 0 j = 1 j = 2
104 93 99 102 103 mpjao3dan φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 2 i = j
105 50 eleq2d φ i dom ⟨“ IJK ”⟩ i 0 1 2
106 105 biimpa φ i dom ⟨“ IJK ”⟩ i 0 1 2
107 vex i V
108 107 eltp i 0 1 2 i = 0 i = 1 i = 2
109 106 108 sylib φ i dom ⟨“ IJK ”⟩ i = 0 i = 1 i = 2
110 109 ad2antrr φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = 0 i = 1 i = 2
111 58 83 104 110 mpjao3dan φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = j
112 111 ex φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = j
113 112 anasss φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = j
114 113 ralrimivva φ i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = j
115 dff13 ⟨“ IJK ”⟩ : dom ⟨“ IJK ”⟩ 1-1 D ⟨“ IJK ”⟩ : dom ⟨“ IJK ”⟩ D i dom ⟨“ IJK ”⟩ j dom ⟨“ IJK ”⟩ ⟨“ IJK ”⟩ i = ⟨“ IJK ”⟩ j i = j
116 10 114 115 sylanbrc φ ⟨“ IJK ”⟩ : dom ⟨“ IJK ”⟩ 1-1 D