Step * 1 of Lemma rec-value_subype_base

.....assertion..... 
n:ℕ. ∀v:rec-value().  ((rec-value-height(v) ≤ n)  (v ∈ Base))
BY
TACTIC:(CompleteInductionOnNat
          THEN Auto
          THEN ExtD 3
          THEN RepeatFor (D 3)
          THEN All Reduce
          THEN (Declaration
          ORELSE (Unfold `rec-value-height` -1
                  THEN RecUnfold `co-value-height` (-1)
                  THEN Reduce (-1)
                  THEN Fold `rec-value-height` (-1)
                  THEN InstHyp [⌜1⌝2⋅
                  THEN Auto)
          )) }


Latex:


Latex:
.....assertion..... 
\mforall{}n:\mBbbN{}.  \mforall{}v:rec-value().    ((rec-value-height(v)  \mleq{}  n)  {}\mRightarrow{}  (v  \mmember{}  Base))


By


Latex:
TACTIC:(CompleteInductionOnNat
                THEN  Auto
                THEN  ExtD  3
                THEN  RepeatFor  2  (D  3)
                THEN  All  Reduce
                THEN  (Declaration
                ORELSE  (Unfold  `rec-value-height`  -1
                                THEN  RecUnfold  `co-value-height`  (-1)
                                THEN  Reduce  (-1)
                                THEN  Fold  `rec-value-height`  (-1)
                                THEN  InstHyp  [\mkleeneopen{}n  -  1\mkleeneclose{}]  2\mcdot{}
                                THEN  Auto)
                ))




Home Index