---

Step * 2 1 1 1 1 1 of Lemma co-regext-loopset

.....subterm..... T:t
1:n
1. ∀t:coW(Unit;x.Unit). (regextfun(λp.loopset();t) ∈ coSet{i:l})
2. x : Unit
3. t1 : Unit ⟶ coW(Unit;x.Unit)
4. T : 𝕌'
5. (a:Type × (a ⟶ T)) ⊆r T
6. coSet{i:l} ⊆r T
7. regextfun(λp.loopset();<x, t1>) = loopset() ∈ T
⊢ set-dom(loopset()) = Unit ∈ Type
BY
{ (Computation THEN Auto) }

---

Latex:

---

Latex:
.....subterm.....  T:t
1:n
1.  \mforall{}t:coW(Unit;x.Unit).  (regextfun(\mlambda{}p.loopset();t)  \mmember{}  coSet\{i:l\})
2.  x  :  Unit
3.  t1  :  Unit  {}\mrightarrow{}  coW(Unit;x.Unit)
4.  T  :  \mBbbU{}'
5.  (a:Type  \mtimes{}  (a  {}\mrightarrow{}  T))  \msubseteq{}r  T
6.  coSet\{i:l\}  \msubseteq{}r  T
7.  regextfun(\mlambda{}p.loopset();<x,  t1>)  =  loopset()
\mvdash{}  set-dom(loopset())  =  Unit


By

---

Latex:
(Computation  THEN  Auto)

---

Home Index