---

Step * 1 of Lemma ulist-ext


1. T : Type
⊢ ulist(T) ⊆r (T List)
BY
{ ((D 0 THENA Auto) THEN RepeatFor 2 (D -1) THEN All Reduce THEN DoSubsume THEN Auto) }

1
1. T : Type
2. n : ℕ
3. λA.(Unit ⋃ (T × A))^n Void
4. %1 = %1 ∈ (λA.(Unit ⋃ (T × A))^n Void)
⊢ (λA.(Unit ⋃ (T × A))^n Void) ⊆r (T List)

---

Latex:

---

Latex:

1.  T  :  Type
\mvdash{}  ulist(T)  \msubseteq{}r  (T  List)


By

---

Latex:
((D  0  THENA  Auto)  THEN  RepeatFor  2  (D  -1)  THEN  All  Reduce  THEN  DoSubsume  THEN  Auto)

---

Home Index