Step
*
of Lemma
rotate-inverse1
∀[n:ℕ+]. ((rot(n) o rot(n)^n - 1) = (λx.x) ∈ (ℕn ⟶ ℕn))
BY
{ (Auto
   THEN Ext
   THEN Reduce 0
   THEN Auto
   THEN RWO "fun_exp_add1" 0
   THEN Auto
   THEN Subst' (n - 1) + 1 ~ n 0
   THEN Auto
   THEN RWO "rotate-order" 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[n:\mBbbN{}\msupplus{}].  ((rot(n)  o  rot(n)\^{}n  -  1)  =  (\mlambda{}x.x))
By
Latex:
(Auto
  THEN  Ext
  THEN  Reduce  0
  THEN  Auto
  THEN  RWO  "fun\_exp\_add1"  0
  THEN  Auto
  THEN  Subst'  (n  -  1)  +  1  \msim{}  n  0
  THEN  Auto
  THEN  RWO  "rotate-order"  0
  THEN  Auto)
Home
Index