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

Theorem clwwlknonex2lem2 30196
Description: Lemma 2 for clwwlknonex2 30197: Transformation of a walk and two edges into a walk extended by two vertices/edges. (Contributed by AV, 22-Sep-2018.) (Revised by AV, 27-Jan-2022.)
Hypotheses
Ref Expression
clwwlknonex2.v 𝑉 = (Vtx‘𝐺)
clwwlknonex2.e 𝐸 = (Edg‘𝐺)
Assertion
Ref Expression
clwwlknonex2lem2 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → ∀𝑖 ∈ ((0..^((♯‘𝑊) − 1)) ∪ {((♯‘𝑊) − 1), (♯‘𝑊)}){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)
Distinct variable groups:   𝑖,𝐸   𝑖,𝑉   𝑖,𝑊   𝑖,𝑋   𝑖,𝑌
Allowed substitution hints:   𝐺(𝑖)   𝑁(𝑖)

Proof of Theorem clwwlknonex2lem2
StepHypRef Expression
1 simpl 483 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → 𝑊 ∈ Word 𝑉)
21adantr 481 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → 𝑊 ∈ Word 𝑉)
3 elfzonn0 13653 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → 𝑖 ∈ ℕ0)
43adantl 482 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → 𝑖 ∈ ℕ0)
5 lencl 14486 . . . . . . . . . . . . . . . . . 18 (𝑊 ∈ Word 𝑉 → (♯‘𝑊) ∈ ℕ0)
6 elfzo0 13646 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) ↔ (𝑖 ∈ ℕ0 ∧ ((♯‘𝑊) − 1) ∈ ℕ ∧ 𝑖 < ((♯‘𝑊) − 1)))
7 nn0re 12437 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 ∈ ℕ0𝑖 ∈ ℝ)
87adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → 𝑖 ∈ ℝ)
9 nn0re 12437 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((♯‘𝑊) ∈ ℕ0 → (♯‘𝑊) ∈ ℝ)
10 peano2rem 11452 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((♯‘𝑊) ∈ ℝ → ((♯‘𝑊) − 1) ∈ ℝ)
119, 10syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((♯‘𝑊) ∈ ℕ0 → ((♯‘𝑊) − 1) ∈ ℝ)
1211adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → ((♯‘𝑊) − 1) ∈ ℝ)
139adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (♯‘𝑊) ∈ ℝ)
148, 12, 133jca 1134 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (𝑖 ∈ ℝ ∧ ((♯‘𝑊) − 1) ∈ ℝ ∧ (♯‘𝑊) ∈ ℝ))
159ltm1d 12079 . . . . . . . . . . . . . . . . . . . . . . 23 ((♯‘𝑊) ∈ ℕ0 → ((♯‘𝑊) − 1) < (♯‘𝑊))
1615adantl 482 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → ((♯‘𝑊) − 1) < (♯‘𝑊))
17 lttr 11213 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℝ ∧ ((♯‘𝑊) − 1) ∈ ℝ ∧ (♯‘𝑊) ∈ ℝ) → ((𝑖 < ((♯‘𝑊) − 1) ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)) → 𝑖 < (♯‘𝑊)))
1817expcomd 417 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℝ ∧ ((♯‘𝑊) − 1) ∈ ℝ ∧ (♯‘𝑊) ∈ ℝ) → (((♯‘𝑊) − 1) < (♯‘𝑊) → (𝑖 < ((♯‘𝑊) − 1) → 𝑖 < (♯‘𝑊))))
1914, 16, 18sylc 65 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (𝑖 < ((♯‘𝑊) − 1) → 𝑖 < (♯‘𝑊)))
2019impancom 452 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ ℕ0𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0𝑖 < (♯‘𝑊)))
21203adant2 1137 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ ℕ0 ∧ ((♯‘𝑊) − 1) ∈ ℕ ∧ 𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0𝑖 < (♯‘𝑊)))
226, 21sylbi 218 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0𝑖 < (♯‘𝑊)))
235, 22syl5com 31 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ Word 𝑉 → (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → 𝑖 < (♯‘𝑊)))
2423adantr 481 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → 𝑖 < (♯‘𝑊)))
2524imp 407 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → 𝑖 < (♯‘𝑊))
26 ccat2s1fvw 14592 . . . . . . . . . . . . . . 15 ((𝑊 ∈ Word 𝑉𝑖 ∈ ℕ0𝑖 < (♯‘𝑊)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (𝑊𝑖))
272, 4, 25, 26syl3anc 1379 . . . . . . . . . . . . . 14 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (𝑊𝑖))
2827eqcomd 2745 . . . . . . . . . . . . 13 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑊𝑖) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖))
29 peano2nn0 12468 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ℕ0 → (𝑖 + 1) ∈ ℕ0)
304, 29syl 17 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑖 + 1) ∈ ℕ0)
31 1red 11136 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → 1 ∈ ℝ)
328, 31, 13ltaddsubd 11741 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → ((𝑖 + 1) < (♯‘𝑊) ↔ 𝑖 < ((♯‘𝑊) − 1)))
3332biimprd 249 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (𝑖 < ((♯‘𝑊) − 1) → (𝑖 + 1) < (♯‘𝑊)))
3433impancom 452 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ ℕ0𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0 → (𝑖 + 1) < (♯‘𝑊)))
35343adant2 1137 . . . . . . . . . . . . . . . . . 18 ((𝑖 ∈ ℕ0 ∧ ((♯‘𝑊) − 1) ∈ ℕ ∧ 𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0 → (𝑖 + 1) < (♯‘𝑊)))
366, 35sylbi 218 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0 → (𝑖 + 1) < (♯‘𝑊)))
375, 36mpan9 511 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑖 + 1) < (♯‘𝑊))
3837adantlr 721 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑖 + 1) < (♯‘𝑊))
39 ccat2s1fvw 14592 . . . . . . . . . . . . . . 15 ((𝑊 ∈ Word 𝑉 ∧ (𝑖 + 1) ∈ ℕ0 ∧ (𝑖 + 1) < (♯‘𝑊)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (𝑊‘(𝑖 + 1)))
402, 30, 38, 39syl3anc 1379 . . . . . . . . . . . . . 14 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (𝑊‘(𝑖 + 1)))
4140eqcomd 2745 . . . . . . . . . . . . 13 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑊‘(𝑖 + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)))
4228, 41preq12d 4673 . . . . . . . . . . . 12 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → {(𝑊𝑖), (𝑊‘(𝑖 + 1))} = {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))})
4342eleq1d 2824 . . . . . . . . . . 11 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → ({(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ↔ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4443ralbidva 3160 . . . . . . . . . 10 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ↔ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4544biimpd 230 . . . . . . . . 9 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4645impancom 452 . . . . . . . 8 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
47463adant3 1138 . . . . . . 7 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
48473ad2ant1 1139 . . . . . 6 (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ((𝑋𝑉𝑌𝑉) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4948com12 32 . . . . 5 ((𝑋𝑉𝑌𝑉) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
5049a1dd 50 . . . 4 ((𝑋𝑉𝑌𝑉) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)))
51503adant3 1138 . . 3 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)))
5251imp31 418 . 2 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)
53 ax-1 6 . . . . . . . . . . 11 ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → (𝑋𝑉𝑌𝑉)))
54533adant3 1138 . . . . . . . . . 10 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → (𝑋𝑉𝑌𝑉)))
55 simpl 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → 𝑊 ∈ Word 𝑉)
56 oveq1 7363 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((♯‘𝑊) = (𝑁 − 2) → ((♯‘𝑊) − 1) = ((𝑁 − 2) − 1))
5756adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 (((♯‘𝑊) = (𝑁 − 2) ∧ 𝑁 ∈ (ℤ‘3)) → ((♯‘𝑊) − 1) = ((𝑁 − 2) − 1))
58 eluzelcn 12791 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → 𝑁 ∈ ℂ)
59 2cnd 12250 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → 2 ∈ ℂ)
60 1cnd 11130 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → 1 ∈ ℂ)
6158, 59, 60subsub4d 11527 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑁 ∈ (ℤ‘3) → ((𝑁 − 2) − 1) = (𝑁 − (2 + 1)))
62 2p1e3 12309 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (2 + 1) = 3
6362a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑁 ∈ (ℤ‘3) → (2 + 1) = 3)
6463oveq2d 7372 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → (𝑁 − (2 + 1)) = (𝑁 − 3))
65 uznn0sub 12814 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → (𝑁 − 3) ∈ ℕ0)
6664, 65eqeltrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑁 ∈ (ℤ‘3) → (𝑁 − (2 + 1)) ∈ ℕ0)
6761, 66eqeltrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑁 ∈ (ℤ‘3) → ((𝑁 − 2) − 1) ∈ ℕ0)
6867adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((♯‘𝑊) = (𝑁 − 2) ∧ 𝑁 ∈ (ℤ‘3)) → ((𝑁 − 2) − 1) ∈ ℕ0)
6957, 68eqeltrd 2839 . . . . . . . . . . . . . . . . . . . . . . 23 (((♯‘𝑊) = (𝑁 − 2) ∧ 𝑁 ∈ (ℤ‘3)) → ((♯‘𝑊) − 1) ∈ ℕ0)
7069ancoms 459 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → ((♯‘𝑊) − 1) ∈ ℕ0)
7170adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → ((♯‘𝑊) − 1) ∈ ℕ0)
725, 9syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑊 ∈ Word 𝑉 → (♯‘𝑊) ∈ ℝ)
7372adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (♯‘𝑊) ∈ ℝ)
7473ltm1d 12079 . . . . . . . . . . . . . . . . . . . . 21 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → ((♯‘𝑊) − 1) < (♯‘𝑊))
7555, 71, 743jca 1134 . . . . . . . . . . . . . . . . . . . 20 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)))
7675ex 413 . . . . . . . . . . . . . . . . . . 19 (𝑊 ∈ Word 𝑉 → ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊))))
7776adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊))))
78773ad2ant1 1139 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊))))
7978imp 407 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)))
80 ccat2s1fvw 14592 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)) = (𝑊‘((♯‘𝑊) − 1)))
8179, 80syl 17 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)) = (𝑊‘((♯‘𝑊) − 1)))
82 nn0cn 12438 . . . . . . . . . . . . . . . . . . . . . 22 ((♯‘𝑊) ∈ ℕ0 → (♯‘𝑊) ∈ ℂ)
83 ax-1cn 11087 . . . . . . . . . . . . . . . . . . . . . 22 1 ∈ ℂ
84 npcan 11393 . . . . . . . . . . . . . . . . . . . . . 22 (((♯‘𝑊) ∈ ℂ ∧ 1 ∈ ℂ) → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
8582, 83, 84sylancl 592 . . . . . . . . . . . . . . . . . . . . 21 ((♯‘𝑊) ∈ ℕ0 → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
865, 85syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝑊 ∈ Word 𝑉 → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
8786adantr 481 . . . . . . . . . . . . . . . . . . 19 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
88873ad2ant1 1139 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
8988fveq2d 6831 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)))
90 simp1l 1204 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → 𝑊 ∈ Word 𝑉)
91 eqidd 2740 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (♯‘𝑊) = (♯‘𝑊))
92 simp2l 1206 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → 𝑋𝑉)
93 ccatw2s1p1 14590 . . . . . . . . . . . . . . . . . 18 ((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (♯‘𝑊) ∧ 𝑋𝑉) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)) = 𝑋)
9490, 91, 92, 93syl3anc 1379 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)) = 𝑋)
9589, 94eqtrd 2774 . . . . . . . . . . . . . . . 16 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)) = 𝑋)
9695adantr 481 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)) = 𝑋)
9781, 96preq12d 4673 . . . . . . . . . . . . . 14 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} = {(𝑊‘((♯‘𝑊) − 1)), 𝑋})
98 lsw 14517 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑊 ∈ Word 𝑉 → (lastS‘𝑊) = (𝑊‘((♯‘𝑊) − 1)))
9998adantl 482 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → (lastS‘𝑊) = (𝑊‘((♯‘𝑊) − 1)))
100 simpl 483 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → (𝑊‘0) = 𝑋)
10199, 100preq12d 4673 . . . . . . . . . . . . . . . . . . . . 21 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → {(lastS‘𝑊), (𝑊‘0)} = {(𝑊‘((♯‘𝑊) − 1)), 𝑋})
102101eleq1d 2824 . . . . . . . . . . . . . . . . . . . 20 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 ↔ {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸))
103102biimpd 230 . . . . . . . . . . . . . . . . . . 19 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸))
104103expcom 414 . . . . . . . . . . . . . . . . . 18 (𝑊 ∈ Word 𝑉 → ((𝑊‘0) = 𝑋 → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)))
105104com23 86 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ Word 𝑉 → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 → ((𝑊‘0) = 𝑋 → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)))
106105imp31 418 . . . . . . . . . . . . . . . 16 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑊‘0) = 𝑋) → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)
1071063adant2 1137 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)
108107adantr 481 . . . . . . . . . . . . . 14 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)
10997, 108eqeltrd 2839 . . . . . . . . . . . . 13 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)
110109exp520 1364 . . . . . . . . . . . 12 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ((𝑊‘0) = 𝑋 → (𝑁 ∈ (ℤ‘3) → ((♯‘𝑊) = (𝑁 − 2) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
111110com14 96 . . . . . . . . . . 11 (𝑁 ∈ (ℤ‘3) → ((𝑋𝑉𝑌𝑉) → ((𝑊‘0) = 𝑋 → ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
1121113ad2ant3 1141 . . . . . . . . . 10 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ((𝑋𝑉𝑌𝑉) → ((𝑊‘0) = 𝑋 → ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
11354, 112syld 47 . . . . . . . . 9 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → ((𝑊‘0) = 𝑋 → ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
114113com25 99 . . . . . . . 8 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ((♯‘𝑊) = (𝑁 − 2) → ((𝑊‘0) = 𝑋 → ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
115114com14 96 . . . . . . 7 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → ((𝑊‘0) = 𝑋 → ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
1161153adant2 1137 . . . . . 6 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → ((𝑊‘0) = 𝑋 → ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
1171163imp 1116 . . . . 5 (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))
118117impcom 408 . . . 4 (((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸))
119118imp 407 . . 3 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)
120 eqidd 2740 . . . . . . . . . . . . . 14 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (♯‘𝑊) = (♯‘𝑊))
121 simprl 776 . . . . . . . . . . . . . 14 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → 𝑋𝑉)
1221, 120, 121, 93syl3anc 1379 . . . . . . . . . . . . 13 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)) = 𝑋)
123 eqid 2739 . . . . . . . . . . . . . 14 (♯‘𝑊) = (♯‘𝑊)
124 ccatw2s1p2 14591 . . . . . . . . . . . . . 14 (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (♯‘𝑊)) ∧ (𝑋𝑉𝑌𝑉)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1)) = 𝑌)
125123, 124mpanl2 707 . . . . . . . . . . . . 13 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1)) = 𝑌)
126122, 125preq12d 4673 . . . . . . . . . . . 12 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})
127126expcom 414 . . . . . . . . . . 11 ((𝑋𝑉𝑌𝑉) → (𝑊 ∈ Word 𝑉 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌}))
128127a1i 11 . . . . . . . . . 10 ({𝑋, 𝑌} ∈ 𝐸 → ((𝑋𝑉𝑌𝑉) → (𝑊 ∈ Word 𝑉 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
129128com13 88 . . . . . . . . 9 (𝑊 ∈ Word 𝑉 → ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
1301293ad2ant1 1139 . . . . . . . 8 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
1311303ad2ant1 1139 . . . . . . 7 (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
132131com12 32 . . . . . 6 ((𝑋𝑉𝑌𝑉) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
1331323adant3 1138 . . . . 5 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
134133imp31 418 . . . 4 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})
135 simpr 485 . . . 4 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {𝑋, 𝑌} ∈ 𝐸)
136134, 135eqeltrd 2839 . . 3 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} ∈ 𝐸)
137 ovex 7389 . . . 4 ((♯‘𝑊) − 1) ∈ V
138 fvex 6840 . . . 4 (♯‘𝑊) ∈ V
139 fveq2 6827 . . . . . 6 (𝑖 = ((♯‘𝑊) − 1) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)))
140 fvoveq1 7379 . . . . . 6 (𝑖 = ((♯‘𝑊) − 1) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)))
141139, 140preq12d 4673 . . . . 5 (𝑖 = ((♯‘𝑊) − 1) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} = {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))})
142141eleq1d 2824 . . . 4 (𝑖 = ((♯‘𝑊) − 1) → ({(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸))
143 fveq2 6827 . . . . . 6 (𝑖 = (♯‘𝑊) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)))
144 fvoveq1 7379 . . . . . 6 (𝑖 = (♯‘𝑊) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1)))
145143, 144preq12d 4673 . . . . 5 (𝑖 = (♯‘𝑊) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} = {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))})
146145eleq1d 2824 . . . 4 (𝑖 = (♯‘𝑊) → ({(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} ∈ 𝐸))
147137, 138, 142, 146ralpr 4632 . . 3 (∀𝑖 ∈ {((♯‘𝑊) − 1), (♯‘𝑊)} {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ ({(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸 ∧ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} ∈ 𝐸))
148119, 136, 147sylanbrc 589 . 2 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → ∀𝑖 ∈ {((♯‘𝑊) − 1), (♯‘𝑊)} {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)
149 ralunb 4126 . 2 (∀𝑖 ∈ ((0..^((♯‘𝑊) − 1)) ∪ {((♯‘𝑊) − 1), (♯‘𝑊)}){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ (∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ∧ ∀𝑖 ∈ {((♯‘𝑊) − 1), (♯‘𝑊)} {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
15052, 148, 149sylanbrc 589 1 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → ∀𝑖 ∈ ((0..^((♯‘𝑊) − 1)) ∪ {((♯‘𝑊) − 1), (♯‘𝑊)}){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1092   = wceq 1547  wcel 2119  wral 3053  cun 3881  {cpr 4557   class class class wbr 5072  cfv 6485  (class class class)co 7356  cc 11027  cr 11028  0cc0 11029  1c1 11030   + caddc 11032   < clt 11170  cmin 11368  cn 12165  2c2 12227  3c3 12228  0cn0 12428  cuz 12779  ..^cfzo 13599  chash 14283  Word cword 14466  lastSclsw 14515   ++ cconcat 14523  ⟨“cs1 14549  Vtxcvtx 29083  Edgcedg 29134
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-card 9854  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-nn 12166  df-2 12235  df-3 12236  df-n0 12429  df-z 12516  df-uz 12780  df-fz 13453  df-fzo 13600  df-hash 14284  df-word 14467  df-lsw 14516  df-concat 14524  df-s1 14550
This theorem is referenced by:  clwwlknonex2  30197
  Copyright terms: Public domain W3C validator