Metamath Proof Explorer


Theorem swrdf1

Description: Condition for a subword to be injective. (Contributed by Thierry Arnoux, 12-Dec-2023)

Ref Expression
Hypotheses swrdf1.w φ W Word D
swrdf1.m φ M 0 N
swrdf1.n φ N 0 W
swrdf1.1 φ W : dom W 1-1 D
Assertion swrdf1 φ W substr M N : dom W substr M N 1-1 D

Proof

Step Hyp Ref Expression
1 swrdf1.w φ W Word D
2 swrdf1.m φ M 0 N
3 swrdf1.n φ N 0 W
4 swrdf1.1 φ W : dom W 1-1 D
5 swrdf W Word D M 0 N N 0 W W substr M N : 0 ..^ N M D
6 1 2 3 5 syl3anc φ W substr M N : 0 ..^ N M D
7 6 ffdmd φ W substr M N : dom W substr M N D
8 fzossz 0 ..^ N M
9 simpllr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i dom W substr M N
10 6 fdmd φ dom W substr M N = 0 ..^ N M
11 10 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j dom W substr M N = 0 ..^ N M
12 9 11 eleqtrd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i 0 ..^ N M
13 8 12 sseldi φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i
14 13 zcnd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i
15 simplr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j dom W substr M N
16 15 11 eleqtrd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j 0 ..^ N M
17 8 16 sseldi φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j
18 17 zcnd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j
19 fzssz 0 N
20 19 2 sseldi φ M
21 20 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j M
22 21 zcnd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j M
23 4 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j W : dom W 1-1 D
24 elfzuz M 0 N M 0
25 fzoss1 M 0 M ..^ N 0 ..^ N
26 2 24 25 3syl φ M ..^ N 0 ..^ N
27 elfzuz3 N 0 W W N
28 fzoss2 W N 0 ..^ N 0 ..^ W
29 3 27 28 3syl φ 0 ..^ N 0 ..^ W
30 26 29 sstrd φ M ..^ N 0 ..^ W
31 30 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j M ..^ N 0 ..^ W
32 elfzelz N 0 W N
33 3 32 syl φ N
34 33 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j N
35 fzoaddel2 i 0 ..^ N M N M i + M M ..^ N
36 12 34 21 35 syl3anc φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i + M M ..^ N
37 31 36 sseldd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i + M 0 ..^ W
38 wrddm W Word D dom W = 0 ..^ W
39 1 38 syl φ dom W = 0 ..^ W
40 39 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j dom W = 0 ..^ W
41 37 40 eleqtrrd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i + M dom W
42 fzoaddel2 j 0 ..^ N M N M j + M M ..^ N
43 16 34 21 42 syl3anc φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j + M M ..^ N
44 31 43 sseldd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j + M 0 ..^ W
45 44 40 eleqtrrd φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j j + M dom W
46 simpr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j W substr M N i = W substr M N j
47 1 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j W Word D
48 2 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j M 0 N
49 3 ad3antrrr φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j N 0 W
50 swrdfv W Word D M 0 N N 0 W i 0 ..^ N M W substr M N i = W i + M
51 47 48 49 12 50 syl31anc φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j W substr M N i = W i + M
52 swrdfv W Word D M 0 N N 0 W j 0 ..^ N M W substr M N j = W j + M
53 47 48 49 16 52 syl31anc φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j W substr M N j = W j + M
54 46 51 53 3eqtr3d φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j W i + M = W j + M
55 f1veqaeq W : dom W 1-1 D i + M dom W j + M dom W W i + M = W j + M i + M = j + M
56 55 anassrs W : dom W 1-1 D i + M dom W j + M dom W W i + M = W j + M i + M = j + M
57 56 imp W : dom W 1-1 D i + M dom W j + M dom W W i + M = W j + M i + M = j + M
58 23 41 45 54 57 syl1111anc φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i + M = j + M
59 14 18 22 58 addcan2ad φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i = j
60 59 ex φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i = j
61 60 anasss φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i = j
62 61 ralrimivva φ i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i = j
63 dff13 W substr M N : dom W substr M N 1-1 D W substr M N : dom W substr M N D i dom W substr M N j dom W substr M N W substr M N i = W substr M N j i = j
64 7 62 63 sylanbrc φ W substr M N : dom W substr M N 1-1 D