---

Step * 1 1 1 1 1 1 of Lemma all-but-one

.....antecedent..... 
1. [T] : Type
2. [P] : T ⟶ ℙ
3. ∀x,y:T.  Dec(x = y ∈ T)
4. u : T
5. v : T List
6. 0 < ||v|| + 1
7. P[u] ∨ P[u] supposing ¬(u = u ∈ T)
8. (∀y∈v.P[u] ∨ P[y] supposing ¬(u = y ∈ T))
9. (∀x∈v.(∀y∈[u / v].P[x] ∨ P[y] supposing ¬(x = y ∈ T)))
10. 0 < ||v||
⊢ (∀x∈v.(∀y∈v.P[x] ∨ P[y] supposing ¬(x = y ∈ T)))
BY
{ (RepeatFor 2 (ParallelOp (-2))
   THEN Auto
   THEN With ⌜i + 1⌝ (D (-3))⋅
   THEN Auto'
   THEN RWO "select-cons-tl" (-1)
   THEN Auto) }

---

Latex:

---

Latex:
.....antecedent..... 
1.  [T]  :  Type
2.  [P]  :  T  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}x,y:T.    Dec(x  =  y)
4.  u  :  T
5.  v  :  T  List
6.  0  <  ||v||  +  1
7.  P[u]  \mvee{}  P[u]  supposing  \mneg{}(u  =  u)
8.  (\mforall{}y\mmember{}v.P[u]  \mvee{}  P[y]  supposing  \mneg{}(u  =  y))
9.  (\mforall{}x\mmember{}v.(\mforall{}y\mmember{}[u  /  v].P[x]  \mvee{}  P[y]  supposing  \mneg{}(x  =  y)))
10.  0  <  ||v||
\mvdash{}  (\mforall{}x\mmember{}v.(\mforall{}y\mmember{}v.P[x]  \mvee{}  P[y]  supposing  \mneg{}(x  =  y)))


By

---

Latex:
(RepeatFor  2  (ParallelOp  (-2))
  THEN  Auto
  THEN  With  \mkleeneopen{}i  +  1\mkleeneclose{}  (D  (-3))\mcdot{}
  THEN  Auto'
  THEN  RWO  "select-cons-tl"  (-1)
  THEN  Auto)

---

Home Index