MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  wlkres Structured version   Visualization version   GIF version

Theorem wlkres 29194
Description: The restriction ⟨𝐻, π‘„βŸ© of a walk ⟨𝐹, π‘ƒβŸ© to an initial segment of the walk (of length 𝑁) forms a walk on the subgraph 𝑆 consisting of the edges in the initial segment. Formerly proven directly for Eulerian paths, see eupthres 29735. (Contributed by Mario Carneiro, 12-Mar-2015.) (Revised by Mario Carneiro, 3-May-2015.) (Revised by AV, 5-Mar-2021.) Hypothesis revised using the prefix operation. (Revised by AV, 30-Nov-2022.)
Hypotheses
Ref Expression
wlkres.v 𝑉 = (Vtxβ€˜πΊ)
wlkres.i 𝐼 = (iEdgβ€˜πΊ)
wlkres.d (πœ‘ β†’ 𝐹(Walksβ€˜πΊ)𝑃)
wlkres.n (πœ‘ β†’ 𝑁 ∈ (0..^(β™―β€˜πΉ)))
wlkres.s (πœ‘ β†’ (Vtxβ€˜π‘†) = 𝑉)
wlkres.e (πœ‘ β†’ (iEdgβ€˜π‘†) = (𝐼 β†Ύ (𝐹 β€œ (0..^𝑁))))
wlkres.h 𝐻 = (𝐹 prefix 𝑁)
wlkres.q 𝑄 = (𝑃 β†Ύ (0...𝑁))
Assertion
Ref Expression
wlkres (πœ‘ β†’ 𝐻(Walksβ€˜π‘†)𝑄)

Proof of Theorem wlkres
Dummy variables π‘˜ π‘₯ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 wlkres.d . . . 4 (πœ‘ β†’ 𝐹(Walksβ€˜πΊ)𝑃)
2 wlkres.i . . . . 5 𝐼 = (iEdgβ€˜πΊ)
32wlkf 29138 . . . 4 (𝐹(Walksβ€˜πΊ)𝑃 β†’ 𝐹 ∈ Word dom 𝐼)
4 pfxwrdsymb 14643 . . . 4 (𝐹 ∈ Word dom 𝐼 β†’ (𝐹 prefix 𝑁) ∈ Word (𝐹 β€œ (0..^𝑁)))
51, 3, 43syl 18 . . 3 (πœ‘ β†’ (𝐹 prefix 𝑁) ∈ Word (𝐹 β€œ (0..^𝑁)))
6 wlkres.h . . . 4 𝐻 = (𝐹 prefix 𝑁)
76a1i 11 . . 3 (πœ‘ β†’ 𝐻 = (𝐹 prefix 𝑁))
8 wlkres.e . . . . . 6 (πœ‘ β†’ (iEdgβ€˜π‘†) = (𝐼 β†Ύ (𝐹 β€œ (0..^𝑁))))
98dmeqd 5904 . . . . 5 (πœ‘ β†’ dom (iEdgβ€˜π‘†) = dom (𝐼 β†Ύ (𝐹 β€œ (0..^𝑁))))
101, 3syl 17 . . . . . . 7 (πœ‘ β†’ 𝐹 ∈ Word dom 𝐼)
11 wrdf 14473 . . . . . . 7 (𝐹 ∈ Word dom 𝐼 β†’ 𝐹:(0..^(β™―β€˜πΉ))⟢dom 𝐼)
12 fimass 6737 . . . . . . 7 (𝐹:(0..^(β™―β€˜πΉ))⟢dom 𝐼 β†’ (𝐹 β€œ (0..^𝑁)) βŠ† dom 𝐼)
1310, 11, 123syl 18 . . . . . 6 (πœ‘ β†’ (𝐹 β€œ (0..^𝑁)) βŠ† dom 𝐼)
14 ssdmres 6003 . . . . . 6 ((𝐹 β€œ (0..^𝑁)) βŠ† dom 𝐼 ↔ dom (𝐼 β†Ύ (𝐹 β€œ (0..^𝑁))) = (𝐹 β€œ (0..^𝑁)))
1513, 14sylib 217 . . . . 5 (πœ‘ β†’ dom (𝐼 β†Ύ (𝐹 β€œ (0..^𝑁))) = (𝐹 β€œ (0..^𝑁)))
169, 15eqtrd 2770 . . . 4 (πœ‘ β†’ dom (iEdgβ€˜π‘†) = (𝐹 β€œ (0..^𝑁)))
17 wrdeq 14490 . . . 4 (dom (iEdgβ€˜π‘†) = (𝐹 β€œ (0..^𝑁)) β†’ Word dom (iEdgβ€˜π‘†) = Word (𝐹 β€œ (0..^𝑁)))
1816, 17syl 17 . . 3 (πœ‘ β†’ Word dom (iEdgβ€˜π‘†) = Word (𝐹 β€œ (0..^𝑁)))
195, 7, 183eltr4d 2846 . 2 (πœ‘ β†’ 𝐻 ∈ Word dom (iEdgβ€˜π‘†))
20 wlkres.v . . . . . . . 8 𝑉 = (Vtxβ€˜πΊ)
2120wlkp 29140 . . . . . . 7 (𝐹(Walksβ€˜πΊ)𝑃 β†’ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰)
221, 21syl 17 . . . . . 6 (πœ‘ β†’ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰)
23 wlkres.s . . . . . . 7 (πœ‘ β†’ (Vtxβ€˜π‘†) = 𝑉)
2423feq3d 6703 . . . . . 6 (πœ‘ β†’ (𝑃:(0...(β™―β€˜πΉ))⟢(Vtxβ€˜π‘†) ↔ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰))
2522, 24mpbird 256 . . . . 5 (πœ‘ β†’ 𝑃:(0...(β™―β€˜πΉ))⟢(Vtxβ€˜π‘†))
26 fzossfz 13655 . . . . . . 7 (0..^(β™―β€˜πΉ)) βŠ† (0...(β™―β€˜πΉ))
27 wlkres.n . . . . . . 7 (πœ‘ β†’ 𝑁 ∈ (0..^(β™―β€˜πΉ)))
2826, 27sselid 3979 . . . . . 6 (πœ‘ β†’ 𝑁 ∈ (0...(β™―β€˜πΉ)))
29 elfzuz3 13502 . . . . . 6 (𝑁 ∈ (0...(β™―β€˜πΉ)) β†’ (β™―β€˜πΉ) ∈ (β„€β‰₯β€˜π‘))
30 fzss2 13545 . . . . . 6 ((β™―β€˜πΉ) ∈ (β„€β‰₯β€˜π‘) β†’ (0...𝑁) βŠ† (0...(β™―β€˜πΉ)))
3128, 29, 303syl 18 . . . . 5 (πœ‘ β†’ (0...𝑁) βŠ† (0...(β™―β€˜πΉ)))
3225, 31fssresd 6757 . . . 4 (πœ‘ β†’ (𝑃 β†Ύ (0...𝑁)):(0...𝑁)⟢(Vtxβ€˜π‘†))
336fveq2i 6893 . . . . . . 7 (β™―β€˜π») = (β™―β€˜(𝐹 prefix 𝑁))
34 pfxlen 14637 . . . . . . . 8 ((𝐹 ∈ Word dom 𝐼 ∧ 𝑁 ∈ (0...(β™―β€˜πΉ))) β†’ (β™―β€˜(𝐹 prefix 𝑁)) = 𝑁)
3510, 28, 34syl2anc 582 . . . . . . 7 (πœ‘ β†’ (β™―β€˜(𝐹 prefix 𝑁)) = 𝑁)
3633, 35eqtrid 2782 . . . . . 6 (πœ‘ β†’ (β™―β€˜π») = 𝑁)
3736oveq2d 7427 . . . . 5 (πœ‘ β†’ (0...(β™―β€˜π»)) = (0...𝑁))
3837feq2d 6702 . . . 4 (πœ‘ β†’ ((𝑃 β†Ύ (0...𝑁)):(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†) ↔ (𝑃 β†Ύ (0...𝑁)):(0...𝑁)⟢(Vtxβ€˜π‘†)))
3932, 38mpbird 256 . . 3 (πœ‘ β†’ (𝑃 β†Ύ (0...𝑁)):(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†))
40 wlkres.q . . . 4 𝑄 = (𝑃 β†Ύ (0...𝑁))
4140feq1i 6707 . . 3 (𝑄:(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†) ↔ (𝑃 β†Ύ (0...𝑁)):(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†))
4239, 41sylibr 233 . 2 (πœ‘ β†’ 𝑄:(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†))
4320, 2wlkprop 29135 . . . . . 6 (𝐹(Walksβ€˜πΊ)𝑃 β†’ (𝐹 ∈ Word dom 𝐼 ∧ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰ ∧ βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜)))))
441, 43syl 17 . . . . 5 (πœ‘ β†’ (𝐹 ∈ Word dom 𝐼 ∧ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰ ∧ βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜)))))
4544adantr 479 . . . 4 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (𝐹 ∈ Word dom 𝐼 ∧ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰ ∧ βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜)))))
4636oveq2d 7427 . . . . . . . . . . 11 (πœ‘ β†’ (0..^(β™―β€˜π»)) = (0..^𝑁))
4746eleq2d 2817 . . . . . . . . . 10 (πœ‘ β†’ (π‘₯ ∈ (0..^(β™―β€˜π»)) ↔ π‘₯ ∈ (0..^𝑁)))
4840fveq1i 6891 . . . . . . . . . . . . 13 (π‘„β€˜π‘₯) = ((𝑃 β†Ύ (0...𝑁))β€˜π‘₯)
49 fzossfz 13655 . . . . . . . . . . . . . . . 16 (0..^𝑁) βŠ† (0...𝑁)
5049a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (0..^𝑁) βŠ† (0...𝑁))
5150sselda 3981 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ π‘₯ ∈ (0...𝑁))
5251fvresd 6910 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ ((𝑃 β†Ύ (0...𝑁))β€˜π‘₯) = (π‘ƒβ€˜π‘₯))
5348, 52eqtr2id 2783 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ (π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯))
5440fveq1i 6891 . . . . . . . . . . . . 13 (π‘„β€˜(π‘₯ + 1)) = ((𝑃 β†Ύ (0...𝑁))β€˜(π‘₯ + 1))
55 fzofzp1 13733 . . . . . . . . . . . . . . 15 (π‘₯ ∈ (0..^𝑁) β†’ (π‘₯ + 1) ∈ (0...𝑁))
5655adantl 480 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ (π‘₯ + 1) ∈ (0...𝑁))
5756fvresd 6910 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ ((𝑃 β†Ύ (0...𝑁))β€˜(π‘₯ + 1)) = (π‘ƒβ€˜(π‘₯ + 1)))
5854, 57eqtr2id 2783 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1)))
5953, 58jca 510 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ ((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))))
6059ex 411 . . . . . . . . . 10 (πœ‘ β†’ (π‘₯ ∈ (0..^𝑁) β†’ ((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1)))))
6147, 60sylbid 239 . . . . . . . . 9 (πœ‘ β†’ (π‘₯ ∈ (0..^(β™―β€˜π»)) β†’ ((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1)))))
6261imp 405 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ ((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))))
6310ancli 547 . . . . . . . . . . . . . 14 (πœ‘ β†’ (πœ‘ ∧ 𝐹 ∈ Word dom 𝐼))
6411ffund 6720 . . . . . . . . . . . . . . . . 17 (𝐹 ∈ Word dom 𝐼 β†’ Fun 𝐹)
6564adantl 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝐹 ∈ Word dom 𝐼) β†’ Fun 𝐹)
6665adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝐹 ∈ Word dom 𝐼) ∧ π‘₯ ∈ (0..^𝑁)) β†’ Fun 𝐹)
67 fdm 6725 . . . . . . . . . . . . . . . . . 18 (𝐹:(0..^(β™―β€˜πΉ))⟢dom 𝐼 β†’ dom 𝐹 = (0..^(β™―β€˜πΉ)))
68 elfzouz2 13651 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ (0..^(β™―β€˜πΉ)) β†’ (β™―β€˜πΉ) ∈ (β„€β‰₯β€˜π‘))
69 fzoss2 13664 . . . . . . . . . . . . . . . . . . . 20 ((β™―β€˜πΉ) ∈ (β„€β‰₯β€˜π‘) β†’ (0..^𝑁) βŠ† (0..^(β™―β€˜πΉ)))
7027, 68, 693syl 18 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (0..^𝑁) βŠ† (0..^(β™―β€˜πΉ)))
71 sseq2 4007 . . . . . . . . . . . . . . . . . . 19 (dom 𝐹 = (0..^(β™―β€˜πΉ)) β†’ ((0..^𝑁) βŠ† dom 𝐹 ↔ (0..^𝑁) βŠ† (0..^(β™―β€˜πΉ))))
7270, 71imbitrrid 245 . . . . . . . . . . . . . . . . . 18 (dom 𝐹 = (0..^(β™―β€˜πΉ)) β†’ (πœ‘ β†’ (0..^𝑁) βŠ† dom 𝐹))
7311, 67, 723syl 18 . . . . . . . . . . . . . . . . 17 (𝐹 ∈ Word dom 𝐼 β†’ (πœ‘ β†’ (0..^𝑁) βŠ† dom 𝐹))
7473impcom 406 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝐹 ∈ Word dom 𝐼) β†’ (0..^𝑁) βŠ† dom 𝐹)
7574adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝐹 ∈ Word dom 𝐼) ∧ π‘₯ ∈ (0..^𝑁)) β†’ (0..^𝑁) βŠ† dom 𝐹)
76 simpr 483 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝐹 ∈ Word dom 𝐼) ∧ π‘₯ ∈ (0..^𝑁)) β†’ π‘₯ ∈ (0..^𝑁))
7766, 75, 76resfvresima 7238 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝐹 ∈ Word dom 𝐼) ∧ π‘₯ ∈ (0..^𝑁)) β†’ ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯)) = (πΌβ€˜(πΉβ€˜π‘₯)))
7863, 77sylan 578 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯)) = (πΌβ€˜(πΉβ€˜π‘₯)))
7978eqcomd 2736 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (0..^𝑁)) β†’ (πΌβ€˜(πΉβ€˜π‘₯)) = ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯)))
8079ex 411 . . . . . . . . . . 11 (πœ‘ β†’ (π‘₯ ∈ (0..^𝑁) β†’ (πΌβ€˜(πΉβ€˜π‘₯)) = ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯))))
8147, 80sylbid 239 . . . . . . . . . 10 (πœ‘ β†’ (π‘₯ ∈ (0..^(β™―β€˜π»)) β†’ (πΌβ€˜(πΉβ€˜π‘₯)) = ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯))))
8281imp 405 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (πΌβ€˜(πΉβ€˜π‘₯)) = ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯)))
838adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (iEdgβ€˜π‘†) = (𝐼 β†Ύ (𝐹 β€œ (0..^𝑁))))
846fveq1i 6891 . . . . . . . . . . 11 (π»β€˜π‘₯) = ((𝐹 prefix 𝑁)β€˜π‘₯)
8510adantr 479 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ 𝐹 ∈ Word dom 𝐼)
8628adantr 479 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ 𝑁 ∈ (0...(β™―β€˜πΉ)))
87 pfxres 14633 . . . . . . . . . . . . 13 ((𝐹 ∈ Word dom 𝐼 ∧ 𝑁 ∈ (0...(β™―β€˜πΉ))) β†’ (𝐹 prefix 𝑁) = (𝐹 β†Ύ (0..^𝑁)))
8885, 86, 87syl2anc 582 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (𝐹 prefix 𝑁) = (𝐹 β†Ύ (0..^𝑁)))
8988fveq1d 6892 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ ((𝐹 prefix 𝑁)β€˜π‘₯) = ((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯))
9084, 89eqtrid 2782 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (π»β€˜π‘₯) = ((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯))
9183, 90fveq12d 6897 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = ((𝐼 β†Ύ (𝐹 β€œ (0..^𝑁)))β€˜((𝐹 β†Ύ (0..^𝑁))β€˜π‘₯)))
9282, 91eqtr4d 2773 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))
9362, 92jca 510 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))))
9427, 68syl 17 . . . . . . . . . . 11 (πœ‘ β†’ (β™―β€˜πΉ) ∈ (β„€β‰₯β€˜π‘))
9536fveq2d 6894 . . . . . . . . . . 11 (πœ‘ β†’ (β„€β‰₯β€˜(β™―β€˜π»)) = (β„€β‰₯β€˜π‘))
9694, 95eleqtrrd 2834 . . . . . . . . . 10 (πœ‘ β†’ (β™―β€˜πΉ) ∈ (β„€β‰₯β€˜(β™―β€˜π»)))
97 fzoss2 13664 . . . . . . . . . 10 ((β™―β€˜πΉ) ∈ (β„€β‰₯β€˜(β™―β€˜π»)) β†’ (0..^(β™―β€˜π»)) βŠ† (0..^(β™―β€˜πΉ)))
9896, 97syl 17 . . . . . . . . 9 (πœ‘ β†’ (0..^(β™―β€˜π»)) βŠ† (0..^(β™―β€˜πΉ)))
9998sselda 3981 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ π‘₯ ∈ (0..^(β™―β€˜πΉ)))
100 wkslem1 29131 . . . . . . . . 9 (π‘˜ = π‘₯ β†’ (if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜))) ↔ if-((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)), (πΌβ€˜(πΉβ€˜π‘₯)) = {(π‘ƒβ€˜π‘₯)}, {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘₯)))))
101100rspcv 3607 . . . . . . . 8 (π‘₯ ∈ (0..^(β™―β€˜πΉ)) β†’ (βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜))) β†’ if-((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)), (πΌβ€˜(πΉβ€˜π‘₯)) = {(π‘ƒβ€˜π‘₯)}, {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘₯)))))
10299, 101syl 17 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜))) β†’ if-((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)), (πΌβ€˜(πΉβ€˜π‘₯)) = {(π‘ƒβ€˜π‘₯)}, {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘₯)))))
103 eqeq12 2747 . . . . . . . . . 10 (((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) β†’ ((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)) ↔ (π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1))))
104103adantr 479 . . . . . . . . 9 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ ((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)) ↔ (π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1))))
105 simpr 483 . . . . . . . . . 10 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))
106 sneq 4637 . . . . . . . . . . . 12 ((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) β†’ {(π‘ƒβ€˜π‘₯)} = {(π‘„β€˜π‘₯)})
107106adantr 479 . . . . . . . . . . 11 (((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) β†’ {(π‘ƒβ€˜π‘₯)} = {(π‘„β€˜π‘₯)})
108107adantr 479 . . . . . . . . . 10 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ {(π‘ƒβ€˜π‘₯)} = {(π‘„β€˜π‘₯)})
109105, 108eqeq12d 2746 . . . . . . . . 9 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ ((πΌβ€˜(πΉβ€˜π‘₯)) = {(π‘ƒβ€˜π‘₯)} ↔ ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}))
110 preq12 4738 . . . . . . . . . . 11 (((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) β†’ {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} = {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))})
111110adantr 479 . . . . . . . . . 10 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} = {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))})
112111, 105sseq12d 4014 . . . . . . . . 9 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ ({(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘₯)) ↔ {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))))
113104, 109, 112ifpbi123d 1076 . . . . . . . 8 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ (if-((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)), (πΌβ€˜(πΉβ€˜π‘₯)) = {(π‘ƒβ€˜π‘₯)}, {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘₯))) ↔ if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))))
114113biimpd 228 . . . . . . 7 ((((π‘ƒβ€˜π‘₯) = (π‘„β€˜π‘₯) ∧ (π‘ƒβ€˜(π‘₯ + 1)) = (π‘„β€˜(π‘₯ + 1))) ∧ (πΌβ€˜(πΉβ€˜π‘₯)) = ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))) β†’ (if-((π‘ƒβ€˜π‘₯) = (π‘ƒβ€˜(π‘₯ + 1)), (πΌβ€˜(πΉβ€˜π‘₯)) = {(π‘ƒβ€˜π‘₯)}, {(π‘ƒβ€˜π‘₯), (π‘ƒβ€˜(π‘₯ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘₯))) β†’ if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))))
11593, 102, 114sylsyld 61 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ (βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜))) β†’ if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))))
116115com12 32 . . . . 5 (βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜))) β†’ ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))))
1171163ad2ant3 1133 . . . 4 ((𝐹 ∈ Word dom 𝐼 ∧ 𝑃:(0...(β™―β€˜πΉ))βŸΆπ‘‰ ∧ βˆ€π‘˜ ∈ (0..^(β™―β€˜πΉ))if-((π‘ƒβ€˜π‘˜) = (π‘ƒβ€˜(π‘˜ + 1)), (πΌβ€˜(πΉβ€˜π‘˜)) = {(π‘ƒβ€˜π‘˜)}, {(π‘ƒβ€˜π‘˜), (π‘ƒβ€˜(π‘˜ + 1))} βŠ† (πΌβ€˜(πΉβ€˜π‘˜)))) β†’ ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)))))
11845, 117mpcom 38 . . 3 ((πœ‘ ∧ π‘₯ ∈ (0..^(β™―β€˜π»))) β†’ if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))))
119118ralrimiva 3144 . 2 (πœ‘ β†’ βˆ€π‘₯ ∈ (0..^(β™―β€˜π»))if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))))
12020, 2, 1, 27, 23wlkreslem 29193 . . 3 (πœ‘ β†’ 𝑆 ∈ V)
121 eqid 2730 . . . 4 (Vtxβ€˜π‘†) = (Vtxβ€˜π‘†)
122 eqid 2730 . . . 4 (iEdgβ€˜π‘†) = (iEdgβ€˜π‘†)
123121, 122iswlkg 29137 . . 3 (𝑆 ∈ V β†’ (𝐻(Walksβ€˜π‘†)𝑄 ↔ (𝐻 ∈ Word dom (iEdgβ€˜π‘†) ∧ 𝑄:(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†) ∧ βˆ€π‘₯ ∈ (0..^(β™―β€˜π»))if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))))))
124120, 123syl 17 . 2 (πœ‘ β†’ (𝐻(Walksβ€˜π‘†)𝑄 ↔ (𝐻 ∈ Word dom (iEdgβ€˜π‘†) ∧ 𝑄:(0...(β™―β€˜π»))⟢(Vtxβ€˜π‘†) ∧ βˆ€π‘₯ ∈ (0..^(β™―β€˜π»))if-((π‘„β€˜π‘₯) = (π‘„β€˜(π‘₯ + 1)), ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯)) = {(π‘„β€˜π‘₯)}, {(π‘„β€˜π‘₯), (π‘„β€˜(π‘₯ + 1))} βŠ† ((iEdgβ€˜π‘†)β€˜(π»β€˜π‘₯))))))
12519, 42, 119, 124mpbir3and 1340 1 (πœ‘ β†’ 𝐻(Walksβ€˜π‘†)𝑄)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 394  if-wif 1059   ∧ w3a 1085   = wceq 1539   ∈ wcel 2104  βˆ€wral 3059  Vcvv 3472   βŠ† wss 3947  {csn 4627  {cpr 4629   class class class wbr 5147  dom cdm 5675   β†Ύ cres 5677   β€œ cima 5678  Fun wfun 6536  βŸΆwf 6538  β€˜cfv 6542  (class class class)co 7411  0cc0 11112  1c1 11113   + caddc 11115  β„€β‰₯cuz 12826  ...cfz 13488  ..^cfzo 13631  β™―chash 14294  Word cword 14468   prefix cpfx 14624  Vtxcvtx 28523  iEdgciedg 28524  Walkscwlks 29120
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-ifp 1060  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7858  df-1st 7977  df-2nd 7978  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412  df-1o 8468  df-er 8705  df-map 8824  df-pm 8825  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-card 9936  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-nn 12217  df-n0 12477  df-z 12563  df-uz 12827  df-fz 13489  df-fzo 13632  df-hash 14295  df-word 14469  df-substr 14595  df-pfx 14625  df-wlks 29123
This theorem is referenced by:  trlres  29224  eupthres  29735
  Copyright terms: Public domain W3C validator