---

Step * 2 1 1 of Lemma p-fun-exp-add-sq


1. A : Type
2. f : A ⟶ (A + Top)
3. x : A
4. m : ℤ
5. 0 < m
6. ∀[n:ℕ]. f^n + (m - 1) x ~ f^n do-apply(f^m - 1;x) supposing ↑can-apply(f^m - 1;x)
7. n : ℕ
8. ↑can-apply(f^m;x)
9. n = 0 ∈ ℤ
⊢ f^m x ~ f^0 do-apply(f^m;x)
BY
{ xxx(((Unfolds ``p-fun-exp`` 0 THEN Reduce 0) THEN Fold `p-fun-exp` 0 THEN RepUR ``p-id`` 0)
      THEN RWO "inl-do-apply" 0
      THEN Auto)xxx }

---

Latex:

---

Latex:

1.  A  :  Type
2.  f  :  A  {}\mrightarrow{}  (A  +  Top)
3.  x  :  A
4.  m  :  \mBbbZ{}
5.  0  <  m
6.  \mforall{}[n:\mBbbN{}].  f\^{}n  +  (m  -  1)  x  \msim{}  f\^{}n  do-apply(f\^{}m  -  1;x)  supposing  \muparrow{}can-apply(f\^{}m  -  1;x)
7.  n  :  \mBbbN{}
8.  \muparrow{}can-apply(f\^{}m;x)
9.  n  =  0
\mvdash{}  f\^{}m  x  \msim{}  f\^{}0  do-apply(f\^{}m;x)


By

---

Latex:
xxx(((Unfolds  ``p-fun-exp``  0  THEN  Reduce  0)  THEN  Fold  `p-fun-exp`  0  THEN  RepUR  ``p-id``  0)
        THEN  RWO  "inl-do-apply"  0
        THEN  Auto)xxx

---

Home Index