---

Step * 2 of Lemma before-adjacent


1. [T] : Type
2. u : T
3. v : T List
4. ∀x,y:T.  adjacent(T;v;x;y) ⇒ (∀z:T. (z before y ∈ v ⇒ (z before x ∈ v ∨ (z = x ∈ T)))) supposing no_repeats(T;v)
5. x : T
6. y : T
7. no_repeats(T;[u / v])
8. adjacent(T;[u / v];x;y)
9. z : T
10. z before y ∈ [u / v]
⊢ z before x ∈ [u / v] ∨ (z = x ∈ T)
BY
{ ((RWO "adjacent-cons" (-3) THEN Auto) THEN D -3) }

1
1. [T] : Type
2. u : T
3. v : T List
4. ∀x,y:T.  adjacent(T;v;x;y) ⇒ (∀z:T. (z before y ∈ v ⇒ (z before x ∈ v ∨ (z = x ∈ T)))) supposing no_repeats(T;v)
5. x : T
6. y : T
7. no_repeats(T;[u / v])
8. 0 < ||v||
9. (x = u ∈ T) ∧ (y = hd(v) ∈ T)
10. z : T
11. z before y ∈ [u / v]
⊢ z before x ∈ [u / v] ∨ (z = x ∈ T)

2
1. [T] : Type
2. u : T
3. v : T List
4. ∀x,y:T.  adjacent(T;v;x;y) ⇒ (∀z:T. (z before y ∈ v ⇒ (z before x ∈ v ∨ (z = x ∈ T)))) supposing no_repeats(T;v)
5. x : T
6. y : T
7. no_repeats(T;[u / v])
8. 0 < ||v||
9. adjacent(T;v;x;y)
10. z : T
11. z before y ∈ [u / v]
⊢ z before x ∈ [u / v] ∨ (z = x ∈ T)

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  u  :  T
3.  v  :  T  List
4.  \mforall{}x,y:T.
          adjacent(T;v;x;y)  {}\mRightarrow{}  (\mforall{}z:T.  (z  before  y  \mmember{}  v  {}\mRightarrow{}  (z  before  x  \mmember{}  v  \mvee{}  (z  =  x)))) 
          supposing  no\_repeats(T;v)
5.  x  :  T
6.  y  :  T
7.  no\_repeats(T;[u  /  v])
8.  adjacent(T;[u  /  v];x;y)
9.  z  :  T
10.  z  before  y  \mmember{}  [u  /  v]
\mvdash{}  z  before  x  \mmember{}  [u  /  v]  \mvee{}  (z  =  x)


By

---

Latex:
((RWO  "adjacent-cons"  (-3)  THEN  Auto)  THEN  D  -3)

---

Home Index