---

Step * 2 2 of Lemma adjacent-cons


1. [T] : Type
2. x : T
3. y : T
4. u : T
5. L : T List
6. 0 < ||L||
7. ∃i:ℕ||L|| - 1. ((x = L[i] ∈ T) ∧ (y = L[i + 1] ∈ T))
⊢ ∃i:ℕ(||L|| + 1) - 1. ((x = [u / L][i] ∈ T) ∧ (y = [u / L][i + 1] ∈ T))
BY
{ xxx((ExRepD THEN InstConcl [⌜i + 1⌝]⋅ THEN Auto')
      THEN RWO "select_cons_tl" 0
      THEN Auto'
      THEN All ArithSimp
      THEN Auto)xxx }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  x  :  T
3.  y  :  T
4.  u  :  T
5.  L  :  T  List
6.  0  <  ||L||
7.  \mexists{}i:\mBbbN{}||L||  -  1.  ((x  =  L[i])  \mwedge{}  (y  =  L[i  +  1]))
\mvdash{}  \mexists{}i:\mBbbN{}(||L||  +  1)  -  1.  ((x  =  [u  /  L][i])  \mwedge{}  (y  =  [u  /  L][i  +  1]))


By

---

Latex:
xxx((ExRepD  THEN  InstConcl  [\mkleeneopen{}i  +  1\mkleeneclose{}]\mcdot{}  THEN  Auto')
        THEN  RWO  "select\_cons\_tl"  0
        THEN  Auto'
        THEN  All  ArithSimp
        THEN  Auto)xxx

---

Home Index