Step * 2 2 of Lemma iseg_append_iff


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

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

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

3
1. [T] Type
2. T
3. List
4. ∀l2,l3:T List.  (v ≤ l2 l3 ⇐⇒ v ≤ l2 ∨ (∃l:T List. (0 < ||l|| ∧ (v (l2 l) ∈ (T List)) ∧ l ≤ l3)))
5. u1 T
6. v1 List
7. ∀l3:T List
     ([u v] ≤ v1 l3 ⇐⇒ [u v] ≤ v1 ∨ (∃l:T List. (0 < ||l|| ∧ ([u v] (v1 l) ∈ (T List)) ∧ l ≤ l3)))
8. l3 List
9. List
10. 0 < ||l||
11. [u v] ([u1 v1] l) ∈ (T List)
12. l ≤ l3
⊢ [u v] ≤ [u1 v1] 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)))
5.  u1  :  T
6.  v1  :  T  List
7.  \mforall{}l3:T  List
          ([u  /  v]  \mleq{}  v1  @  l3  \mLeftarrow{}{}\mRightarrow{}  [u  /  v]  \mleq{}  v1  \mvee{}  (\mexists{}l:T  List.  (0  <  ||l||  \mwedge{}  ([u  /  v]  =  (v1  @  l))  \mwedge{}  l  \mleq{}  l3)))
\mvdash{}  \mforall{}l3:T  List
        ([u  /  v]  \mleq{}  [u1  /  v1]  @  l3
        \mLeftarrow{}{}\mRightarrow{}  [u  /  v]  \mleq{}  [u1  /  v1]  \mvee{}  (\mexists{}l:T  List.  (0  <  ||l||  \mwedge{}  ([u  /  v]  =  ([u1  /  v1]  @  l))  \mwedge{}  l  \mleq{}  l3)))


By


Latex:
(Auto  THEN  SplitOrHyps  THEN  ExRepD)




Home Index