Step
*
of Lemma
singleton-type-function
∀[A:Type]. ∀[B:A ⟶ Type].  ((∀a:A. singleton-type(B[a])) 
⇒ singleton-type(a:A ⟶ B[a]))
BY
{ (Unfold `singleton-type` 0 THEN Auto THEN (Skolemize (-1) `f' THEN Auto) THEN With ⌜f⌝ (D 0)⋅ THEN Auto) }
Latex:
Latex:
\mforall{}[A:Type].  \mforall{}[B:A  {}\mrightarrow{}  Type].    ((\mforall{}a:A.  singleton-type(B[a]))  {}\mRightarrow{}  singleton-type(a:A  {}\mrightarrow{}  B[a]))
By
Latex:
(Unfold  `singleton-type`  0
  THEN  Auto
  THEN  (Skolemize  (-1)  `f'  THEN  Auto)
  THEN  With  \mkleeneopen{}f\mkleeneclose{}  (D  0)\mcdot{}
  THEN  Auto)
Home
Index