---

Step * of Lemma singleton-subtype

∀[A,B:Type].  ∀[a:A]. ({z:B| z = a ∈ B}  ⊆r A) supposing strong-subtype(A;B)
BY
{ (Unfold `strong-subtype` 0 THEN Auto THEN UseTrans ⌜{b:B| ∃a:A. (b = a ∈ B)} ⌝⋅ THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:Type].    \mforall{}[a:A].  (\{z:B|  z  =  a\}    \msubseteq{}r  A)  supposing  strong-subtype(A;B)


By

---

Latex:
(Unfold  `strong-subtype`  0  THEN  Auto  THEN  UseTrans  \mkleeneopen{}\{b:B|  \mexists{}a:A.  (b  =  a)\}  \mkleeneclose{}\mcdot{}  THEN  Auto)

---

Home Index