Metamath Proof Explorer


Theorem crctcshwlkn0

Description: Cyclically shifting the indices of a circuit <. F , P >. results in a walk <. H , Q >. . (Contributed by AV, 10-Mar-2021)

Ref Expression
Hypotheses crctcsh.v V=VtxG
crctcsh.i I=iEdgG
crctcsh.d φFCircuitsGP
crctcsh.n N=F
crctcsh.s φS0..^N
crctcsh.h H=FcyclShiftS
crctcsh.q Q=x0NifxNSPx+SPx+S-N
Assertion crctcshwlkn0 φS0HWalksGQ

Proof

Step Hyp Ref Expression
1 crctcsh.v V=VtxG
2 crctcsh.i I=iEdgG
3 crctcsh.d φFCircuitsGP
4 crctcsh.n N=F
5 crctcsh.s φS0..^N
6 crctcsh.h H=FcyclShiftS
7 crctcsh.q Q=x0NifxNSPx+SPx+S-N
8 crctiswlk FCircuitsGPFWalksGP
9 2 wlkf FWalksGPFWorddomI
10 3 8 9 3syl φFWorddomI
11 cshwcl FWorddomIFcyclShiftSWorddomI
12 10 11 syl φFcyclShiftSWorddomI
13 6 12 eqeltrid φHWorddomI
14 13 adantr φS0HWorddomI
15 3 8 syl φFWalksGP
16 1 wlkp FWalksGPP:0FV
17 simpll P:0FVφx0NxNSP:0FV
18 elfznn0 x0Nx0
19 18 adantl S0..^Nx0Nx0
20 elfzonn0 S0..^NS0
21 20 adantr S0..^Nx0NS0
22 19 21 nn0addcld S0..^Nx0Nx+S0
23 22 adantr S0..^Nx0NxNSx+S0
24 elfz3nn0 x0NN0
25 4 24 eqeltrrid x0NF0
26 25 ad2antlr S0..^Nx0NxNSF0
27 elfzelz x0Nx
28 27 zred x0Nx
29 28 adantl S0..^Nx0Nx
30 elfzoelz S0..^NS
31 30 zred S0..^NS
32 31 adantr S0..^Nx0NS
33 elfzel2 x0NN
34 33 zred x0NN
35 34 adantl S0..^Nx0NN
36 leaddsub xSNx+SNxNS
37 29 32 35 36 syl3anc S0..^Nx0Nx+SNxNS
38 37 biimpar S0..^Nx0NxNSx+SN
39 38 4 breqtrdi S0..^Nx0NxNSx+SF
40 23 26 39 3jca S0..^Nx0NxNSx+S0F0x+SF
41 5 40 sylanl1 φx0NxNSx+S0F0x+SF
42 elfz2nn0 x+S0Fx+S0F0x+SF
43 41 42 sylibr φx0NxNSx+S0F
44 43 adantll P:0FVφx0NxNSx+S0F
45 17 44 ffvelrnd P:0FVφx0NxNSPx+SV
46 simpll P:0FVφx0N¬xNSP:0FV
47 elfzoel2 S0..^NN
48 zaddcl xSx+S
49 48 adantrr xSNx+S
50 simprr xSNN
51 49 50 zsubcld xSNx+S-N
52 51 adantr xSN¬xNSx+S-N
53 zsubcl NSNS
54 53 ancoms SNNS
55 54 zred SNNS
56 zre xx
57 ltnle NSxNS<x¬xNS
58 55 56 57 syl2anr xSNNS<x¬xNS
59 zre NN
60 59 adantl SNN
61 zre SS
62 61 adantr SNS
63 56 adantr xSNx
64 ltsubadd NSxNS<xN<x+S
65 60 62 63 64 syl2an23an xSNNS<xN<x+S
66 60 adantl xSNN
67 49 zred xSNx+S
68 66 67 posdifd xSNN<x+S0<x+S-N
69 0red xSN0
70 51 zred xSNx+S-N
71 ltle 0x+S-N0<x+S-N0x+S-N
72 69 70 71 syl2anc xSN0<x+S-N0x+S-N
73 68 72 sylbid xSNN<x+S0x+S-N
74 65 73 sylbid xSNNS<x0x+S-N
75 58 74 sylbird xSN¬xNS0x+S-N
76 75 imp xSN¬xNS0x+S-N
77 52 76 jca xSN¬xNSx+S-N0x+S-N
78 77 exp31 xSN¬xNSx+S-N0x+S-N
79 78 27 syl11 SNx0N¬xNSx+S-N0x+S-N
80 30 47 79 syl2anc S0..^Nx0N¬xNSx+S-N0x+S-N
81 80 imp31 S0..^Nx0N¬xNSx+S-N0x+S-N
82 elnn0z x+S-N0x+S-N0x+S-N
83 81 82 sylibr S0..^Nx0N¬xNSx+S-N0
84 25 ad2antlr S0..^Nx0N¬xNSF0
85 elfzo0 S0..^NS0NS<N
86 elfz2nn0 x0Nx0N0xN
87 nn0re S0S
88 87 3ad2ant1 S0NS<NS
89 nn0re x0x
90 89 3ad2ant1 x0N0xNx
91 88 90 anim12ci S0NS<Nx0N0xNxS
92 nnre NN
93 92 92 jca NNN
94 93 3ad2ant2 S0NS<NNN
95 94 adantr S0NS<Nx0N0xNNN
96 91 95 jca S0NS<Nx0N0xNxSNN
97 simpr3 S0NS<Nx0N0xNxN
98 ltle SNS<NSN
99 87 92 98 syl2an S0NS<NSN
100 99 3impia S0NS<NSN
101 100 adantr S0NS<Nx0N0xNSN
102 96 97 101 jca32 S0NS<Nx0N0xNxSNNxNSN
103 85 86 102 syl2anb S0..^Nx0NxSNNxNSN
104 le2add xSNNxNSNx+SN+N
105 104 imp xSNNxNSNx+SN+N
106 103 105 syl S0..^Nx0Nx+SN+N
107 67 66 66 3jca xSNx+SNN
108 107 ex xSNx+SNN
109 108 27 syl11 SNx0Nx+SNN
110 30 47 109 syl2anc S0..^Nx0Nx+SNN
111 110 imp S0..^Nx0Nx+SNN
112 lesubadd x+SNNx+S-NNx+SN+N
113 111 112 syl S0..^Nx0Nx+S-NNx+SN+N
114 106 113 mpbird S0..^Nx0Nx+S-NN
115 114 adantr S0..^Nx0N¬xNSx+S-NN
116 115 4 breqtrdi S0..^Nx0N¬xNSx+S-NF
117 83 84 116 3jca S0..^Nx0N¬xNSx+S-N0F0x+S-NF
118 5 117 sylanl1 φx0N¬xNSx+S-N0F0x+S-NF
119 elfz2nn0 x+S-N0Fx+S-N0F0x+S-NF
120 118 119 sylibr φx0N¬xNSx+S-N0F
121 120 adantll P:0FVφx0N¬xNSx+S-N0F
122 46 121 ffvelrnd P:0FVφx0N¬xNSPx+S-NV
123 45 122 ifclda P:0FVφx0NifxNSPx+SPx+S-NV
124 123 exp32 P:0FVφx0NifxNSPx+SPx+S-NV
125 16 124 syl FWalksGPφx0NifxNSPx+SPx+S-NV
126 15 125 mpcom φx0NifxNSPx+SPx+S-NV
127 126 imp φx0NifxNSPx+SPx+S-NV
128 127 7 fmptd φQ:0NV
129 1 2 3 4 5 6 crctcshlem2 φH=N
130 129 oveq2d φ0H=0N
131 130 feq2d φQ:0HVQ:0NV
132 128 131 mpbird φQ:0HV
133 132 adantr φS0Q:0HV
134 1 2 wlkprop FWalksGPFWorddomIP:0FVi0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFi
135 3 8 134 3syl φFWorddomIP:0FVi0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFi
136 135 adantr φS0FWorddomIP:0FVi0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFi
137 4 eqcomi F=N
138 137 oveq2i 0..^F=0..^N
139 138 raleqi i0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFii0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFi
140 fzo1fzo0n0 S1..^NS0..^NS0
141 140 simplbi2 S0..^NS0S1..^N
142 5 141 syl φS0S1..^N
143 142 imp φS0S1..^N
144 143 ad2antlr FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFiS1..^N
145 simplll FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFiFWorddomI
146 wkslem1 i=kif-Pi=Pi+1IFi=PiPiPi+1IFiif-Pk=Pk+1IFk=PkPkPk+1IFk
147 146 cbvralvw i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFik0..^Nif-Pk=Pk+1IFk=PkPkPk+1IFk
148 147 biimpi i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFik0..^Nif-Pk=Pk+1IFk=PkPkPk+1IFk
149 148 adantl FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFik0..^Nif-Pk=Pk+1IFk=PkPkPk+1IFk
150 crctprop FCircuitsGPFTrailsGPP0=PF
151 137 fveq2i PF=PN
152 151 eqeq2i P0=PFP0=PN
153 152 biimpi P0=PFP0=PN
154 153 eqcomd P0=PFPN=P0
155 154 adantl FTrailsGPP0=PFPN=P0
156 3 150 155 3syl φPN=P0
157 156 ad2antrl FWorddomIP:0FVφS0PN=P0
158 157 adantr FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFiPN=P0
159 144 7 6 4 145 149 158 crctcshwlkn0lem7 FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFij0..^Nif-Qj=Qj+1IHj=QjQjQj+1IHj
160 129 oveq2d φ0..^H=0..^N
161 160 raleqdv φj0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHjj0..^Nif-Qj=Qj+1IHj=QjQjQj+1IHj
162 161 ad2antrl FWorddomIP:0FVφS0j0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHjj0..^Nif-Qj=Qj+1IHj=QjQjQj+1IHj
163 162 adantr FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFij0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHjj0..^Nif-Qj=Qj+1IHj=QjQjQj+1IHj
164 159 163 mpbird FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFij0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
165 164 ex FWorddomIP:0FVφS0i0..^Nif-Pi=Pi+1IFi=PiPiPi+1IFij0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
166 139 165 syl5bi FWorddomIP:0FVφS0i0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFij0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
167 166 ex FWorddomIP:0FVφS0i0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFij0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
168 167 com23 FWorddomIP:0FVi0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFiφS0j0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
169 168 3impia FWorddomIP:0FVi0..^Fif-Pi=Pi+1IFi=PiPiPi+1IFiφS0j0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
170 136 169 mpcom φS0j0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
171 14 133 170 3jca φS0HWorddomIQ:0HVj0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
172 1 2 3 4 5 6 7 crctcshlem3 φGVHVQV
173 172 adantr φS0GVHVQV
174 1 2 iswlk GVHVQVHWalksGQHWorddomIQ:0HVj0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
175 173 174 syl φS0HWalksGQHWorddomIQ:0HVj0..^Hif-Qj=Qj+1IHj=QjQjQj+1IHj
176 171 175 mpbird φS0HWalksGQ