---

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


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)))
BY
{ ((MoveToConcl (-2) THEN Reduce 0) THEN (BoolCase ⌜(n =z 0)⌝⋅ THENA Auto)) }

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

---

Latex:

---

Latex:

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{}  (if  (n  =\msubz{}  0)  then  \mlambda{}x.x  else  \mlambda{}x.(Unit  \mcup{}  (T  \mtimes{}  (\mlambda{}A.(Unit  \mcup{}  (T  \mtimes{}  A))\^{}n  -  1  x)))  fi    Void)
        \msubseteq{}r  (Unit  \mcup{}  (T  \mtimes{}  (T  List)))


By

---

Latex:
((MoveToConcl  (-2)  THEN  Reduce  0)  THEN  (BoolCase  \mkleeneopen{}(n  =\msubz{}  0)\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index