---

Step * 1 of Lemma fun_exp-id


1. n : ℤ
2. 0 < n
3. ∀[x:Top]. (λi.i^n - 1 x ~ x)
4. [x] : Top
5. λi.i^n - 1 x ~ x
⊢ λi.i^n x ~ x
BY
{ ((Subst' n ~ (n - 1) + 1 0 THENA Auto) THEN (RWO "fun_exp_add1-sq<" 0 THENA Auto) THEN Reduce 0 THEN Trivial) }

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}[x:Top].  (\mlambda{}i.i\^{}n  -  1  x  \msim{}  x)
4.  [x]  :  Top
5.  \mlambda{}i.i\^{}n  -  1  x  \msim{}  x
\mvdash{}  \mlambda{}i.i\^{}n  x  \msim{}  x


By

---

Latex:
((Subst'  n  \msim{}  (n  -  1)  +  1  0  THENA  Auto)
  THEN  (RWO  "fun\_exp\_add1-sq<"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Trivial)

---

Home Index