Step
*
1
of Lemma
exp-one
.....upcase..... 
1. n : ℤ
2. 0 < n
3. 1^n - 1 = 1 ∈ ℤ
⊢ 1^n = 1 ∈ ℤ
BY
{ (Unfold `exp` 0 THEN (RWO "primrec-unroll" 0 THENA Auto) THEN AutoBoolCase ⌜(n =z 0)⌝⋅ THEN Fold `exp` 0 THEN Auto) }
Latex:
Latex:
.....upcase..... 
1.  n  :  \mBbbZ{}
2.  0  <  n
3.  1\^{}n  -  1  =  1
\mvdash{}  1\^{}n  =  1
By
Latex:
(Unfold  `exp`  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  AutoBoolCase  \mkleeneopen{}(n  =\msubz{}  0)\mkleeneclose{}\mcdot{}
  THEN  Fold  `exp`  0
  THEN  Auto)
Home
Index