Step
*
of Lemma
p-first-singleton
∀[A,B:Type]. ∀[f:A ⟶ (B + Top)].  (p-first([f]) = f ∈ (A ⟶ (B + Top)))
BY
{ (Auto THEN Ext THEN Auto THEN Unfold `p-first` 0 THEN Reduce 0 THEN Auto) }
Latex:
Latex:
\mforall{}[A,B:Type].  \mforall{}[f:A  {}\mrightarrow{}  (B  +  Top)].    (p-first([f])  =  f)
By
Latex:
(Auto  THEN  Ext  THEN  Auto  THEN  Unfold  `p-first`  0  THEN  Reduce  0  THEN  Auto)
Home
Index