---

Step * 1 1 1 2 of Lemma ulist-ext

.....upcase..... 
1. T : Type
2. n : ℤ
3. 0 < n
4. (λA.(Unit ⋃ (T × A))^n - 1 Void) ⊆r (T List)
⊢ (λA.(Unit ⋃ (T × A))^n Void) ⊆r (T List)
BY
{ (InstLemma `list-ext` [⌜T⌝]⋅ THENA Auto) }

1
1. T : Type
2. n : ℤ
3. 0 < n
4. (λA.(Unit ⋃ (T × A))^n - 1 Void) ⊆r (T List)
5. T List ≡ Unit ⋃ (T × (T List))
⊢ (λA.(Unit ⋃ (T × A))^n Void) ⊆r (T List)

---

Latex:

---

Latex:
.....upcase..... 
1.  T  :  Type
2.  n  :  \mBbbZ{}
3.  0  <  n
4.  (\mlambda{}A.(Unit  \mcup{}  (T  \mtimes{}  A))\^{}n  -  1  Void)  \msubseteq{}r  (T  List)
\mvdash{}  (\mlambda{}A.(Unit  \mcup{}  (T  \mtimes{}  A))\^{}n  Void)  \msubseteq{}r  (T  List)


By

---

Latex:
(InstLemma  `list-ext`  [\mkleeneopen{}T\mkleeneclose{}]\mcdot{}  THENA  Auto)

---

Home Index