---

Step * of Lemma equipollent-unit

∀[T:Type]. (T ⇒ T ~ Unit supposing ∀x,y:T.  (x = y ∈ T))
BY
{ (Auto THEN With ⌜λx.⋅⌝ (D 0)⋅ THEN Auto THEN RepeatFor 2 ((D 0 THEN Auto)) THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  (T  {}\mRightarrow{}  T  \msim{}  Unit  supposing  \mforall{}x,y:T.    (x  =  y))


By

---

Latex:
(Auto  THEN  With  \mkleeneopen{}\mlambda{}x.\mcdot{}\mkleeneclose{}  (D  0)\mcdot{}  THEN  Auto  THEN  RepeatFor  2  ((D  0  THEN  Auto))  THEN  Reduce  0  THEN  Auto)

---

Home Index