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

Theorem clwwlknonex2lem2 27893
Description: Lemma 2 for clwwlknonex2 27894: 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 486 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → 𝑊 ∈ Word 𝑉)
21adantr 484 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → 𝑊 ∈ Word 𝑉)
3 elfzonn0 13077 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → 𝑖 ∈ ℕ0)
43adantl 485 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → 𝑖 ∈ ℕ0)
5 lencl 13876 . . . . . . . . . . . . . . . . . 18 (𝑊 ∈ Word 𝑉 → (♯‘𝑊) ∈ ℕ0)
6 elfzo0 13073 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) ↔ (𝑖 ∈ ℕ0 ∧ ((♯‘𝑊) − 1) ∈ ℕ ∧ 𝑖 < ((♯‘𝑊) − 1)))
7 nn0re 11894 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 ∈ ℕ0𝑖 ∈ ℝ)
87adantr 484 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → 𝑖 ∈ ℝ)
9 nn0re 11894 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((♯‘𝑊) ∈ ℕ0 → (♯‘𝑊) ∈ ℝ)
10 peano2rem 10942 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((♯‘𝑊) ∈ ℝ → ((♯‘𝑊) − 1) ∈ ℝ)
119, 10syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 ((♯‘𝑊) ∈ ℕ0 → ((♯‘𝑊) − 1) ∈ ℝ)
1211adantl 485 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → ((♯‘𝑊) − 1) ∈ ℝ)
139adantl 485 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (♯‘𝑊) ∈ ℝ)
148, 12, 133jca 1125 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (𝑖 ∈ ℝ ∧ ((♯‘𝑊) − 1) ∈ ℝ ∧ (♯‘𝑊) ∈ ℝ))
159ltm1d 11561 . . . . . . . . . . . . . . . . . . . . . . 23 ((♯‘𝑊) ∈ ℕ0 → ((♯‘𝑊) − 1) < (♯‘𝑊))
1615adantl 485 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → ((♯‘𝑊) − 1) < (♯‘𝑊))
17 lttr 10706 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑖 ∈ ℝ ∧ ((♯‘𝑊) − 1) ∈ ℝ ∧ (♯‘𝑊) ∈ ℝ) → ((𝑖 < ((♯‘𝑊) − 1) ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)) → 𝑖 < (♯‘𝑊)))
1817expcomd 420 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℝ ∧ ((♯‘𝑊) − 1) ∈ ℝ ∧ (♯‘𝑊) ∈ ℝ) → (((♯‘𝑊) − 1) < (♯‘𝑊) → (𝑖 < ((♯‘𝑊) − 1) → 𝑖 < (♯‘𝑊))))
1914, 16, 18sylc 65 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (𝑖 < ((♯‘𝑊) − 1) → 𝑖 < (♯‘𝑊)))
2019impancom 455 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ ℕ0𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0𝑖 < (♯‘𝑊)))
21203adant2 1128 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ ℕ0 ∧ ((♯‘𝑊) − 1) ∈ ℕ ∧ 𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0𝑖 < (♯‘𝑊)))
226, 21sylbi 220 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0𝑖 < (♯‘𝑊)))
235, 22syl5com 31 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ Word 𝑉 → (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → 𝑖 < (♯‘𝑊)))
2423adantr 484 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → 𝑖 < (♯‘𝑊)))
2524imp 410 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → 𝑖 < (♯‘𝑊))
26 ccat2s1fvw 13989 . . . . . . . . . . . . . . 15 ((𝑊 ∈ Word 𝑉𝑖 ∈ ℕ0𝑖 < (♯‘𝑊)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (𝑊𝑖))
272, 4, 25, 26syl3anc 1368 . . . . . . . . . . . . . 14 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (𝑊𝑖))
2827eqcomd 2804 . . . . . . . . . . . . 13 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑊𝑖) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖))
29 peano2nn0 11925 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ℕ0 → (𝑖 + 1) ∈ ℕ0)
304, 29syl 17 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑖 + 1) ∈ ℕ0)
31 1red 10631 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → 1 ∈ ℝ)
328, 31, 13ltaddsubd 11229 . . . . . . . . . . . . . . . . . . . . 21 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → ((𝑖 + 1) < (♯‘𝑊) ↔ 𝑖 < ((♯‘𝑊) − 1)))
3332biimprd 251 . . . . . . . . . . . . . . . . . . . 20 ((𝑖 ∈ ℕ0 ∧ (♯‘𝑊) ∈ ℕ0) → (𝑖 < ((♯‘𝑊) − 1) → (𝑖 + 1) < (♯‘𝑊)))
3433impancom 455 . . . . . . . . . . . . . . . . . . 19 ((𝑖 ∈ ℕ0𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0 → (𝑖 + 1) < (♯‘𝑊)))
35343adant2 1128 . . . . . . . . . . . . . . . . . 18 ((𝑖 ∈ ℕ0 ∧ ((♯‘𝑊) − 1) ∈ ℕ ∧ 𝑖 < ((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0 → (𝑖 + 1) < (♯‘𝑊)))
366, 35sylbi 220 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (0..^((♯‘𝑊) − 1)) → ((♯‘𝑊) ∈ ℕ0 → (𝑖 + 1) < (♯‘𝑊)))
375, 36mpan9 510 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑖 + 1) < (♯‘𝑊))
3837adantlr 714 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑖 + 1) < (♯‘𝑊))
39 ccat2s1fvw 13989 . . . . . . . . . . . . . . 15 ((𝑊 ∈ Word 𝑉 ∧ (𝑖 + 1) ∈ ℕ0 ∧ (𝑖 + 1) < (♯‘𝑊)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (𝑊‘(𝑖 + 1)))
402, 30, 38, 39syl3anc 1368 . . . . . . . . . . . . . 14 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (𝑊‘(𝑖 + 1)))
4140eqcomd 2804 . . . . . . . . . . . . 13 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → (𝑊‘(𝑖 + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)))
4228, 41preq12d 4637 . . . . . . . . . . . 12 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → {(𝑊𝑖), (𝑊‘(𝑖 + 1))} = {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))})
4342eleq1d 2874 . . . . . . . . . . 11 (((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) ∧ 𝑖 ∈ (0..^((♯‘𝑊) − 1))) → ({(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ↔ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4443ralbidva 3161 . . . . . . . . . 10 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ↔ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4544biimpd 232 . . . . . . . . 9 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
4645impancom 455 . . . . . . . 8 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
47463adant3 1129 . . . . . . 7 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
48473ad2ant1 1130 . . . . . 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 1129 . . 3 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)))
5251imp31 421 . 2 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)
53 ax-1 6 . . . . . . . . . . 11 ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → (𝑋𝑉𝑌𝑉)))
54533adant3 1129 . . . . . . . . . 10 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → (𝑋𝑉𝑌𝑉)))
55 simpl 486 . . . . . . . . . . . . . . . . . . . . 21 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → 𝑊 ∈ Word 𝑉)
56 oveq1 7142 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((♯‘𝑊) = (𝑁 − 2) → ((♯‘𝑊) − 1) = ((𝑁 − 2) − 1))
5756adantr 484 . . . . . . . . . . . . . . . . . . . . . . . 24 (((♯‘𝑊) = (𝑁 − 2) ∧ 𝑁 ∈ (ℤ‘3)) → ((♯‘𝑊) − 1) = ((𝑁 − 2) − 1))
58 eluzelcn 12243 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → 𝑁 ∈ ℂ)
59 2cnd 11703 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → 2 ∈ ℂ)
60 1cnd 10625 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → 1 ∈ ℂ)
6158, 59, 60subsub4d 11017 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑁 ∈ (ℤ‘3) → ((𝑁 − 2) − 1) = (𝑁 − (2 + 1)))
62 2p1e3 11767 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (2 + 1) = 3
6362a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑁 ∈ (ℤ‘3) → (2 + 1) = 3)
6463oveq2d 7151 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → (𝑁 − (2 + 1)) = (𝑁 − 3))
65 uznn0sub 12265 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑁 ∈ (ℤ‘3) → (𝑁 − 3) ∈ ℕ0)
6664, 65eqeltrd 2890 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑁 ∈ (ℤ‘3) → (𝑁 − (2 + 1)) ∈ ℕ0)
6761, 66eqeltrd 2890 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑁 ∈ (ℤ‘3) → ((𝑁 − 2) − 1) ∈ ℕ0)
6867adantl 485 . . . . . . . . . . . . . . . . . . . . . . . 24 (((♯‘𝑊) = (𝑁 − 2) ∧ 𝑁 ∈ (ℤ‘3)) → ((𝑁 − 2) − 1) ∈ ℕ0)
6957, 68eqeltrd 2890 . . . . . . . . . . . . . . . . . . . . . . 23 (((♯‘𝑊) = (𝑁 − 2) ∧ 𝑁 ∈ (ℤ‘3)) → ((♯‘𝑊) − 1) ∈ ℕ0)
7069ancoms 462 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → ((♯‘𝑊) − 1) ∈ ℕ0)
7170adantl 485 . . . . . . . . . . . . . . . . . . . . 21 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → ((♯‘𝑊) − 1) ∈ ℕ0)
725, 9syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑊 ∈ Word 𝑉 → (♯‘𝑊) ∈ ℝ)
7372adantr 484 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (♯‘𝑊) ∈ ℝ)
7473ltm1d 11561 . . . . . . . . . . . . . . . . . . . . 21 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → ((♯‘𝑊) − 1) < (♯‘𝑊))
7555, 71, 743jca 1125 . . . . . . . . . . . . . . . . . . . 20 ((𝑊 ∈ Word 𝑉 ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)))
7675ex 416 . . . . . . . . . . . . . . . . . . 19 (𝑊 ∈ Word 𝑉 → ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊))))
7776adantr 484 . . . . . . . . . . . . . . . . . 18 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊))))
78773ad2ant1 1130 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → ((𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊))))
7978imp 410 . . . . . . . . . . . . . . . 16 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)))
80 ccat2s1fvw 13989 . . . . . . . . . . . . . . . 16 ((𝑊 ∈ Word 𝑉 ∧ ((♯‘𝑊) − 1) ∈ ℕ0 ∧ ((♯‘𝑊) − 1) < (♯‘𝑊)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)) = (𝑊‘((♯‘𝑊) − 1)))
8179, 80syl 17 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)) = (𝑊‘((♯‘𝑊) − 1)))
82 nn0cn 11895 . . . . . . . . . . . . . . . . . . . . . 22 ((♯‘𝑊) ∈ ℕ0 → (♯‘𝑊) ∈ ℂ)
83 ax-1cn 10584 . . . . . . . . . . . . . . . . . . . . . 22 1 ∈ ℂ
84 npcan 10884 . . . . . . . . . . . . . . . . . . . . . 22 (((♯‘𝑊) ∈ ℂ ∧ 1 ∈ ℂ) → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
8582, 83, 84sylancl 589 . . . . . . . . . . . . . . . . . . . . 21 ((♯‘𝑊) ∈ ℕ0 → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
865, 85syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝑊 ∈ Word 𝑉 → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
8786adantr 484 . . . . . . . . . . . . . . . . . . 19 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
88873ad2ant1 1130 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((♯‘𝑊) − 1) + 1) = (♯‘𝑊))
8988fveq2d 6649 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)))
90 simp1l 1194 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → 𝑊 ∈ Word 𝑉)
91 eqidd 2799 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (♯‘𝑊) = (♯‘𝑊))
92 simp2l 1196 . . . . . . . . . . . . . . . . . 18 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → 𝑋𝑉)
93 ccatw2s1p1 13986 . . . . . . . . . . . . . . . . . 18 ((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (♯‘𝑊) ∧ 𝑋𝑉) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)) = 𝑋)
9490, 91, 92, 93syl3anc 1368 . . . . . . . . . . . . . . . . 17 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)) = 𝑋)
9589, 94eqtrd 2833 . . . . . . . . . . . . . . . 16 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)) = 𝑋)
9695adantr 484 . . . . . . . . . . . . . . 15 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)) = 𝑋)
9781, 96preq12d 4637 . . . . . . . . . . . . . 14 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} = {(𝑊‘((♯‘𝑊) − 1)), 𝑋})
98 lsw 13907 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑊 ∈ Word 𝑉 → (lastS‘𝑊) = (𝑊‘((♯‘𝑊) − 1)))
9998adantl 485 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → (lastS‘𝑊) = (𝑊‘((♯‘𝑊) − 1)))
100 simpl 486 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → (𝑊‘0) = 𝑋)
10199, 100preq12d 4637 . . . . . . . . . . . . . . . . . . . . 21 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → {(lastS‘𝑊), (𝑊‘0)} = {(𝑊‘((♯‘𝑊) − 1)), 𝑋})
102101eleq1d 2874 . . . . . . . . . . . . . . . . . . . 20 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 ↔ {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸))
103102biimpd 232 . . . . . . . . . . . . . . . . . . 19 (((𝑊‘0) = 𝑋𝑊 ∈ Word 𝑉) → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸))
104103expcom 417 . . . . . . . . . . . . . . . . . 18 (𝑊 ∈ Word 𝑉 → ((𝑊‘0) = 𝑋 → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)))
105104com23 86 . . . . . . . . . . . . . . . . 17 (𝑊 ∈ Word 𝑉 → ({(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸 → ((𝑊‘0) = 𝑋 → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)))
106105imp31 421 . . . . . . . . . . . . . . . 16 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑊‘0) = 𝑋) → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)
1071063adant2 1128 . . . . . . . . . . . . . . 15 (((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)
108107adantr 484 . . . . . . . . . . . . . 14 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → {(𝑊‘((♯‘𝑊) − 1)), 𝑋} ∈ 𝐸)
10997, 108eqeltrd 2890 . . . . . . . . . . . . 13 ((((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (𝑋𝑉𝑌𝑉) ∧ (𝑊‘0) = 𝑋) ∧ (𝑁 ∈ (ℤ‘3) ∧ (♯‘𝑊) = (𝑁 − 2))) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)
110109exp520 1354 . . . . . . . . . . . 12 ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ((𝑊‘0) = 𝑋 → (𝑁 ∈ (ℤ‘3) → ((♯‘𝑊) = (𝑁 − 2) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
111110com14 96 . . . . . . . . . . 11 (𝑁 ∈ (ℤ‘3) → ((𝑋𝑉𝑌𝑉) → ((𝑊‘0) = 𝑋 → ((𝑊 ∈ Word 𝑉 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
1121113ad2ant3 1132 . . . . . . . . . 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 1128 . . . . . 6 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((♯‘𝑊) = (𝑁 − 2) → ((𝑊‘0) = 𝑋 → ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))))
1171163imp 1108 . . . . 5 (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)))
118117impcom 411 . . . 4 (((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸))
119118imp 410 . . 3 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸)
120 eqidd 2799 . . . . . . . . . . . . . 14 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (♯‘𝑊) = (♯‘𝑊))
121 simprl 770 . . . . . . . . . . . . . 14 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → 𝑋𝑉)
1221, 120, 121, 93syl3anc 1368 . . . . . . . . . . . . 13 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)) = 𝑋)
123 eqid 2798 . . . . . . . . . . . . . 14 (♯‘𝑊) = (♯‘𝑊)
124 ccatw2s1p2 13988 . . . . . . . . . . . . . 14 (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (♯‘𝑊)) ∧ (𝑋𝑉𝑌𝑉)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1)) = 𝑌)
125123, 124mpanl2 700 . . . . . . . . . . . . 13 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1)) = 𝑌)
126122, 125preq12d 4637 . . . . . . . . . . . 12 ((𝑊 ∈ Word 𝑉 ∧ (𝑋𝑉𝑌𝑉)) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})
127126expcom 417 . . . . . . . . . . 11 ((𝑋𝑉𝑌𝑉) → (𝑊 ∈ Word 𝑉 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌}))
128127a1i 11 . . . . . . . . . 10 ({𝑋, 𝑌} ∈ 𝐸 → ((𝑋𝑉𝑌𝑉) → (𝑊 ∈ Word 𝑉 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
129128com13 88 . . . . . . . . 9 (𝑊 ∈ Word 𝑉 → ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
1301293ad2ant1 1130 . . . . . . . 8 ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) → ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
1311303ad2ant1 1130 . . . . . . 7 (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ((𝑋𝑉𝑌𝑉) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
132131com12 32 . . . . . 6 ((𝑋𝑉𝑌𝑉) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
1331323adant3 1129 . . . . 5 ((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) → (((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋) → ({𝑋, 𝑌} ∈ 𝐸 → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})))
134133imp31 421 . . . 4 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} = {𝑋, 𝑌})
135 simpr 488 . . . 4 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {𝑋, 𝑌} ∈ 𝐸)
136134, 135eqeltrd 2890 . . 3 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} ∈ 𝐸)
137 ovex 7168 . . . 4 ((♯‘𝑊) − 1) ∈ V
138 fvex 6658 . . . 4 (♯‘𝑊) ∈ V
139 fveq2 6645 . . . . . 6 (𝑖 = ((♯‘𝑊) − 1) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)))
140 fvoveq1 7158 . . . . . 6 (𝑖 = ((♯‘𝑊) − 1) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1)))
141139, 140preq12d 4637 . . . . 5 (𝑖 = ((♯‘𝑊) − 1) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} = {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))})
142141eleq1d 2874 . . . 4 (𝑖 = ((♯‘𝑊) − 1) → ({(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸))
143 fveq2 6645 . . . . . 6 (𝑖 = (♯‘𝑊) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)))
144 fvoveq1 7158 . . . . . 6 (𝑖 = (♯‘𝑊) → (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1)) = (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1)))
145143, 144preq12d 4637 . . . . 5 (𝑖 = (♯‘𝑊) → {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} = {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))})
146145eleq1d 2874 . . . 4 (𝑖 = (♯‘𝑊) → ({(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} ∈ 𝐸))
147137, 138, 142, 146ralpr 4596 . . 3 (∀𝑖 ∈ {((♯‘𝑊) − 1), (♯‘𝑊)} {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ ({(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) − 1)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(((♯‘𝑊) − 1) + 1))} ∈ 𝐸 ∧ {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(♯‘𝑊)), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘((♯‘𝑊) + 1))} ∈ 𝐸))
148119, 136, 147sylanbrc 586 . 2 ((((𝑋𝑉𝑌𝑉𝑁 ∈ (ℤ‘3)) ∧ ((𝑊 ∈ Word 𝑉 ∧ ∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(𝑊𝑖), (𝑊‘(𝑖 + 1))} ∈ 𝐸 ∧ {(lastS‘𝑊), (𝑊‘0)} ∈ 𝐸) ∧ (♯‘𝑊) = (𝑁 − 2) ∧ (𝑊‘0) = 𝑋)) ∧ {𝑋, 𝑌} ∈ 𝐸) → ∀𝑖 ∈ {((♯‘𝑊) − 1), (♯‘𝑊)} {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸)
149 ralunb 4118 . 2 (∀𝑖 ∈ ((0..^((♯‘𝑊) − 1)) ∪ {((♯‘𝑊) − 1), (♯‘𝑊)}){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ↔ (∀𝑖 ∈ (0..^((♯‘𝑊) − 1)){(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸 ∧ ∀𝑖 ∈ {((♯‘𝑊) − 1), (♯‘𝑊)} {(((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘𝑖), (((𝑊 ++ ⟨“𝑋”⟩) ++ ⟨“𝑌”⟩)‘(𝑖 + 1))} ∈ 𝐸))
15052, 148, 149sylanbrc 586 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 399  w3a 1084   = wceq 1538  wcel 2111  wral 3106  cun 3879  {cpr 4527   class class class wbr 5030  cfv 6324  (class class class)co 7135  cc 10524  cr 10525  0cc0 10526  1c1 10527   + caddc 10529   < clt 10664  cmin 10859  cn 11625  2c2 11680  3c3 11681  0cn0 11885  cuz 12231  ..^cfzo 13028  chash 13686  Word cword 13857  lastSclsw 13905   ++ cconcat 13913  ⟨“cs1 13940  Vtxcvtx 26789  Edgcedg 26840
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-om 7561  df-1st 7671  df-2nd 7672  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-oadd 8089  df-er 8272  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-card 9352  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-nn 11626  df-2 11688  df-3 11689  df-n0 11886  df-z 11970  df-uz 12232  df-fz 12886  df-fzo 13029  df-hash 13687  df-word 13858  df-lsw 13906  df-concat 13914  df-s1 13941
This theorem is referenced by:  clwwlknonex2  27894
  Copyright terms: Public domain W3C validator