---

Step * 2 1 1 of Lemma iseg_append_iff


1. [T] : Type
2. u : T
3. v : T List
4. ∀l2,l3:T List.  (v ≤ l2 @ l3 ⇐⇒ v ≤ l2 ∨ (∃l:T List. (0 < ||l|| ∧ (v = (l2 @ l) ∈ (T List)) ∧ l ≤ l3)))
⊢ ∀l3:T List. ([u / v] ≤ l3 ⇐⇒ [u / v] ≤ [] ∨ (∃l:T List. (0 < ||l|| ∧ ([u / v] = l ∈ (T List)) ∧ l ≤ l3)))
BY
{ (Auto THEN SplitOrHyps THEN ExRepD) }

1
1. [T] : Type
2. u : T
3. v : T List
4. ∀l2,l3:T List.  (v ≤ l2 @ l3 ⇐⇒ v ≤ l2 ∨ (∃l:T List. (0 < ||l|| ∧ (v = (l2 @ l) ∈ (T List)) ∧ l ≤ l3)))
5. l3 : T List
6. [u / v] ≤ []
⊢ [u / v] ≤ l3

2
1. [T] : Type
2. u : T
3. v : T List
4. ∀l2,l3:T List.  (v ≤ l2 @ l3 ⇐⇒ v ≤ l2 ∨ (∃l:T List. (0 < ||l|| ∧ (v = (l2 @ l) ∈ (T List)) ∧ l ≤ l3)))
5. l3 : T List
6. l : T List
7. 0 < ||l||
8. [u / v] = l ∈ (T List)
9. l ≤ l3
⊢ [u / v] ≤ l3

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  u  :  T
3.  v  :  T  List
4.  \mforall{}l2,l3:T  List.    (v  \mleq{}  l2  @  l3  \mLeftarrow{}{}\mRightarrow{}  v  \mleq{}  l2  \mvee{}  (\mexists{}l:T  List.  (0  <  ||l||  \mwedge{}  (v  =  (l2  @  l))  \mwedge{}  l  \mleq{}  l3)))
\mvdash{}  \mforall{}l3:T  List.  ([u  /  v]  \mleq{}  l3  \mLeftarrow{}{}\mRightarrow{}  [u  /  v]  \mleq{}  []  \mvee{}  (\mexists{}l:T  List.  (0  <  ||l||  \mwedge{}  ([u  /  v]  =  l)  \mwedge{}  l  \mleq{}  l3)))


By

---

Latex:
(Auto  THEN  SplitOrHyps  THEN  ExRepD)

---

Home Index