Step
*
of Lemma
exp_step
∀[n:ℕ+]. ∀[i:ℤ].  (i^n ~ i * i^n - 1)
BY
{ ((UnivCD THENA Auto)
   THEN Assert ⌜i^n = (i * i^n - 1) ∈ ℤ⌝⋅
   THEN Try ((RevHypSubst' (-1) 0 THEN Auto))
   THEN (InstLemma `exp_add` [⌜n - 1⌝;⌜1⌝;⌜i⌝]⋅ THEN Auto)
   THEN NthHypEq (-1)
   THEN EqCD
   THEN Auto
   THEN RWO "exp1" 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[n:\mBbbN{}\msupplus{}].  \mforall{}[i:\mBbbZ{}].    (i\^{}n  \msim{}  i  *  i\^{}n  -  1)
By
Latex:
((UnivCD  THENA  Auto)
  THEN  Assert  \mkleeneopen{}i\^{}n  =  (i  *  i\^{}n  -  1)\mkleeneclose{}\mcdot{}
  THEN  Try  ((RevHypSubst'  (-1)  0  THEN  Auto))
  THEN  (InstLemma  `exp\_add`  [\mkleeneopen{}n  -  1\mkleeneclose{};\mkleeneopen{}1\mkleeneclose{};\mkleeneopen{}i\mkleeneclose{}]\mcdot{}  THEN  Auto)
  THEN  NthHypEq  (-1)
  THEN  EqCD
  THEN  Auto
  THEN  RWO  "exp1"  0
  THEN  Auto)
Home
Index