Metamath Proof Explorer


Theorem cycpmrn

Description: The range of the word used to build a cycle is the cycle's orbit, i.e., the set of points it moves. (Contributed by Thierry Arnoux, 20-Nov-2023)

Ref Expression
Hypotheses cycpmrn.1 M=toCycD
cycpmrn.2 φDV
cycpmrn.3 φWWordD
cycpmrn.4 φW:domW1-1D
cycpmrn.5 φ1<W
Assertion cycpmrn φranW=domMWI

Proof

Step Hyp Ref Expression
1 cycpmrn.1 M=toCycD
2 cycpmrn.2 φDV
3 cycpmrn.3 φWWordD
4 cycpmrn.4 φW:domW1-1D
5 cycpmrn.5 φ1<W
6 4 ad4antr φyranWxdomWy=Wxx0..^W1W:domW1-1D
7 simpllr φyranWxdomWy=Wxx0..^W1xdomW
8 fzo0ss1 1..^W0..^W
9 simpr φyranWxdomWy=Wxx0..^W1x0..^W1
10 lencl WWordDW0
11 3 10 syl φW0
12 11 ad4antr φyranWxdomWy=Wxx0..^W1W0
13 12 nn0zd φyranWxdomWy=Wxx0..^W1W
14 1zzd φyranWxdomWy=Wxx0..^W11
15 fzoaddel2 x0..^W1W1x+11..^W
16 9 13 14 15 syl3anc φyranWxdomWy=Wxx0..^W1x+11..^W
17 8 16 sselid φyranWxdomWy=Wxx0..^W1x+10..^W
18 3 ad4antr φyranWxdomWy=Wxx0..^W1WWordD
19 wrddm WWordDdomW=0..^W
20 18 19 syl φyranWxdomWy=Wxx0..^W1domW=0..^W
21 17 20 eleqtrrd φyranWxdomWy=Wxx0..^W1x+1domW
22 fzossz 0..^W1
23 22 9 sselid φyranWxdomWy=Wxx0..^W1x
24 23 zred φyranWxdomWy=Wxx0..^W1x
25 24 ltp1d φyranWxdomWy=Wxx0..^W1x<x+1
26 24 25 ltned φyranWxdomWy=Wxx0..^W1xx+1
27 f1veqaeq W:domW1-1DxdomWx+1domWWx=Wx+1x=x+1
28 27 necon3d W:domW1-1DxdomWx+1domWxx+1WxWx+1
29 28 anassrs W:domW1-1DxdomWx+1domWxx+1WxWx+1
30 29 imp W:domW1-1DxdomWx+1domWxx+1WxWx+1
31 6 7 21 26 30 syl1111anc φyranWxdomWy=Wxx0..^W1WxWx+1
32 2 ad4antr φyranWxdomWy=Wxx0..^W1DV
33 1 32 18 6 9 cycpmfv1 φyranWxdomWy=Wxx0..^W1MWWx=Wx+1
34 31 33 neeqtrrd φyranWxdomWy=Wxx0..^W1WxMWWx
35 34 necomd φyranWxdomWy=Wxx0..^W1MWWxWx
36 simplr φyranWxdomWy=Wxx0..^W1y=Wx
37 36 fveq2d φyranWxdomWy=Wxx0..^W1MWy=MWWx
38 35 37 36 3netr4d φyranWxdomWy=Wxx0..^W1MWyy
39 4 ad4antr φyranWxdomWy=Wxx=W1W:domW1-1D
40 3 ad3antrrr φyranWxdomWy=WxWWordD
41 eldmne0 xdomWW
42 41 ad2antlr φyranWxdomWy=WxW
43 lennncl WWordDWW
44 40 42 43 syl2anc φyranWxdomWy=WxW
45 lbfzo0 00..^WW
46 44 45 sylibr φyranWxdomWy=Wx00..^W
47 40 19 syl φyranWxdomWy=WxdomW=0..^W
48 46 47 eleqtrrd φyranWxdomWy=Wx0domW
49 48 adantr φyranWxdomWy=Wxx=W10domW
50 simpllr φyranWxdomWy=Wxx=W1xdomW
51 0red φ0
52 1red φ1
53 11 nn0red φW
54 52 53 posdifd φ1<W0<W1
55 5 54 mpbid φ0<W1
56 51 55 ltned φ0W1
57 56 ad4antr φyranWxdomWy=Wxx=W10W1
58 simpr φyranWxdomWy=Wxx=W1x=W1
59 57 58 neeqtrrd φyranWxdomWy=Wxx=W10x
60 f1veqaeq W:domW1-1D0domWxdomWW0=Wx0=x
61 60 necon3d W:domW1-1D0domWxdomW0xW0Wx
62 61 anassrs W:domW1-1D0domWxdomW0xW0Wx
63 62 imp W:domW1-1D0domWxdomW0xW0Wx
64 39 49 50 59 63 syl1111anc φyranWxdomWy=Wxx=W1W0Wx
65 simplr φyranWxdomWy=Wxx=W1y=Wx
66 65 fveq2d φyranWxdomWy=Wxx=W1MWy=MWWx
67 2 ad4antr φyranWxdomWy=Wxx=W1DV
68 3 ad4antr φyranWxdomWy=Wxx=W1WWordD
69 44 nngt0d φyranWxdomWy=Wx0<W
70 69 adantr φyranWxdomWy=Wxx=W10<W
71 1 67 68 39 70 58 cycpmfv2 φyranWxdomWy=Wxx=W1MWWx=W0
72 66 71 eqtrd φyranWxdomWy=Wxx=W1MWy=W0
73 64 72 65 3netr4d φyranWxdomWy=Wxx=W1MWyy
74 simplr φyranWxdomWy=WxxdomW
75 74 47 eleqtrd φyranWxdomWy=Wxx0..^W
76 0z 0
77 0p1e1 0+1=1
78 77 fveq2i 0+1=1
79 nnuz =1
80 78 79 eqtr4i 0+1=
81 44 80 eleqtrrdi φyranWxdomWy=WxW0+1
82 fzosplitsnm1 0W0+10..^W=0..^W1W1
83 76 81 82 sylancr φyranWxdomWy=Wx0..^W=0..^W1W1
84 75 83 eleqtrd φyranWxdomWy=Wxx0..^W1W1
85 elun x0..^W1W1x0..^W1xW1
86 84 85 sylib φyranWxdomWy=Wxx0..^W1xW1
87 velsn xW1x=W1
88 87 orbi2i x0..^W1xW1x0..^W1x=W1
89 86 88 sylib φyranWxdomWy=Wxx0..^W1x=W1
90 38 73 89 mpjaodan φyranWxdomWy=WxMWyy
91 f1fun W:domW1-1DFunW
92 elrnrexdmb FunWyranWxdomWy=Wx
93 4 91 92 3syl φyranWxdomWy=Wx
94 93 biimpa φyranWxdomWy=Wx
95 90 94 r19.29a φyranWMWyy
96 eqid SymGrpD=SymGrpD
97 1 2 3 4 96 cycpmcl φMWBaseSymGrpD
98 eqid BaseSymGrpD=BaseSymGrpD
99 96 98 elsymgbas DVMWBaseSymGrpDMW:D1-1 ontoD
100 2 99 syl φMWBaseSymGrpDMW:D1-1 ontoD
101 97 100 mpbid φMW:D1-1 ontoD
102 f1ofn MW:D1-1 ontoDMWFnD
103 101 102 syl φMWFnD
104 103 adantr φyranWMWFnD
105 wrdf WWordDW:0..^WD
106 frn W:0..^WDranWD
107 3 105 106 3syl φranWD
108 107 sselda φyranWyD
109 fnelnfp MWFnDyDydomMWIMWyy
110 104 108 109 syl2anc φyranWydomMWIMWyy
111 95 110 mpbird φyranWydomMWI
112 111 ex φyranWydomMWI
113 112 ssrdv φranWdomMWI
114 1 2 3 4 tocycfv φMW=IDranWWcyclShift1W-1
115 114 difeq1d φMWI=IDranWWcyclShift1W-1I
116 115 dmeqd φdomMWI=domIDranWWcyclShift1W-1I
117 difundir IDranWWcyclShift1W-1I=IDranWIWcyclShift1W-1I
118 resdifcom IDranWI=IIDranW
119 difid II=
120 119 reseq1i IIDranW=DranW
121 0res DranW=
122 118 120 121 3eqtri IDranWI=
123 122 uneq1i IDranWIWcyclShift1W-1I=WcyclShift1W-1I
124 0un WcyclShift1W-1I=WcyclShift1W-1I
125 117 123 124 3eqtri IDranWWcyclShift1W-1I=WcyclShift1W-1I
126 125 dmeqi domIDranWWcyclShift1W-1I=domWcyclShift1W-1I
127 difss WcyclShift1W-1IWcyclShift1W-1
128 dmss WcyclShift1W-1IWcyclShift1W-1domWcyclShift1W-1IdomWcyclShift1W-1
129 127 128 ax-mp domWcyclShift1W-1IdomWcyclShift1W-1
130 dmcoss domWcyclShift1W-1domW-1
131 df-rn ranW=domW-1
132 130 131 sseqtrri domWcyclShift1W-1ranW
133 129 132 sstri domWcyclShift1W-1IranW
134 126 133 eqsstri domIDranWWcyclShift1W-1IranW
135 116 134 eqsstrdi φdomMWIranW
136 113 135 eqssd φranW=domMWI