Step
*
of Lemma
init0-implies-eq-upto1-zero-seq
∀a:ℕ ⟶ ℕ. (init0(a) 
⇒ (a = 0s ∈ (ℕ1 ⟶ ℕ)))
BY
{ ((UnivCD THENA Auto)
   THEN Ext
   THEN Auto
   THEN Assert ⌜x = 0 ∈ ℕ⌝⋅
   THEN Auto
   THEN Eliminate ⌜x⌝⋅
   THEN RepUR ``zero-seq`` 0
   THEN Auto) }
Latex:
Latex:
\mforall{}a:\mBbbN{}  {}\mrightarrow{}  \mBbbN{}.  (init0(a)  {}\mRightarrow{}  (a  =  0s))
By
Latex:
((UnivCD  THENA  Auto)
  THEN  Ext
  THEN  Auto
  THEN  Assert  \mkleeneopen{}x  =  0\mkleeneclose{}\mcdot{}
  THEN  Auto
  THEN  Eliminate  \mkleeneopen{}x\mkleeneclose{}\mcdot{}
  THEN  RepUR  ``zero-seq``  0
  THEN  Auto)
Home
Index