Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  1wlkdlem4 Structured version   Visualization version   GIF version

Theorem 1wlkdlem4 40894
Description: Lemma 4 for 1wlkd 40895. (Contributed by Alexander van der Vekens, 1-Feb-2018.) (Revised by AV, 23-Jan-2021.)
Hypotheses
Ref Expression
1wlkd.p (𝜑𝑃 ∈ Word V)
1wlkd.f (𝜑𝐹 ∈ Word V)
1wlkd.l (𝜑 → (#‘𝑃) = ((#‘𝐹) + 1))
1wlkd.e (𝜑 → ∀𝑘 ∈ (0..^(#‘𝐹)){(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)))
1wlkd.n (𝜑 → ∀𝑘 ∈ (0..^(#‘𝐹))(𝑃𝑘) ≠ (𝑃‘(𝑘 + 1)))
Assertion
Ref Expression
1wlkdlem4 (𝜑 → ∀𝑘 ∈ (0..^(#‘𝐹))if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
Distinct variable groups:   𝑘,𝐹   𝑃,𝑘   𝑘,𝐼   𝜑,𝑘

Proof of Theorem 1wlkdlem4
StepHypRef Expression
1 1wlkd.e . 2 (𝜑 → ∀𝑘 ∈ (0..^(#‘𝐹)){(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)))
2 1wlkd.n . 2 (𝜑 → ∀𝑘 ∈ (0..^(#‘𝐹))(𝑃𝑘) ≠ (𝑃‘(𝑘 + 1)))
3 r19.26 3046 . . 3 (∀𝑘 ∈ (0..^(#‘𝐹))({(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)) ∧ (𝑃𝑘) ≠ (𝑃‘(𝑘 + 1))) ↔ (∀𝑘 ∈ (0..^(#‘𝐹)){(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)) ∧ ∀𝑘 ∈ (0..^(#‘𝐹))(𝑃𝑘) ≠ (𝑃‘(𝑘 + 1))))
4 df-ne 2782 . . . . . 6 ((𝑃𝑘) ≠ (𝑃‘(𝑘 + 1)) ↔ ¬ (𝑃𝑘) = (𝑃‘(𝑘 + 1)))
5 ifpfal 1018 . . . . . 6 (¬ (𝑃𝑘) = (𝑃‘(𝑘 + 1)) → (if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))) ↔ {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
64, 5sylbi 206 . . . . 5 ((𝑃𝑘) ≠ (𝑃‘(𝑘 + 1)) → (if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))) ↔ {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
76biimparc 503 . . . 4 (({(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)) ∧ (𝑃𝑘) ≠ (𝑃‘(𝑘 + 1))) → if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
87ralimi 2936 . . 3 (∀𝑘 ∈ (0..^(#‘𝐹))({(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)) ∧ (𝑃𝑘) ≠ (𝑃‘(𝑘 + 1))) → ∀𝑘 ∈ (0..^(#‘𝐹))if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
93, 8sylbir 224 . 2 ((∀𝑘 ∈ (0..^(#‘𝐹)){(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘)) ∧ ∀𝑘 ∈ (0..^(#‘𝐹))(𝑃𝑘) ≠ (𝑃‘(𝑘 + 1))) → ∀𝑘 ∈ (0..^(#‘𝐹))if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
101, 2, 9syl2anc 691 1 (𝜑 → ∀𝑘 ∈ (0..^(#‘𝐹))if-((𝑃𝑘) = (𝑃‘(𝑘 + 1)), (𝐼‘(𝐹𝑘)) = {(𝑃𝑘)}, {(𝑃𝑘), (𝑃‘(𝑘 + 1))} ⊆ (𝐼‘(𝐹𝑘))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 195  wa 383  if-wif 1006   = wceq 1475  wcel 1977  wne 2780  wral 2896  Vcvv 3173  wss 3540  {csn 4125  {cpr 4127  cfv 5804  (class class class)co 6549  0cc0 9815  1c1 9816   + caddc 9818  ..^cfzo 12334  #chash 12979  Word cword 13146
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-ifp 1007  df-ne 2782  df-ral 2901
This theorem is referenced by:  1wlkd  40895
  Copyright terms: Public domain W3C validator