---

Step * 1 1 1 2 1 1 of Lemma ulist-ext

.....antecedent..... 
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 (Unit ⋃ (T × (T List)))
BY
{ ((RWO "fun_exp_unroll" 0 THENA Auto) THEN RepUR ``compose`` 0) }

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))
⊢ (if (n =z 0) then λx.x else λx.(Unit ⋃ (T × (λA.(Unit ⋃ (T × A))^n - 1 x))) fi  Void) ⊆r (Unit ⋃ (T × (T List)))

---

Latex:

---

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


By

---

Latex:
((RWO  "fun\_exp\_unroll"  0  THENA  Auto)  THEN  RepUR  ``compose``  0)

---

Home Index