---

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


1. A : Type
2. f : A ⟶ (A + Top)
3. x : A
4. m : ℤ
5. n : ℕ
6. ↑can-apply(f^0;x)
⊢ f^n + 0 x ~ f^n do-apply(f^0;x)
BY
{ xxx(RepUR ``p-fun-exp do-apply`` 0
      THEN Fold `p-fun-exp` 0
      THEN RepUR ``p-id`` 0
      THEN (UnivCD THENA Auto)
      THEN ProveSqEq
      THEN Auto)xxx }

---

Latex:

---

Latex:

1.  A  :  Type
2.  f  :  A  {}\mrightarrow{}  (A  +  Top)
3.  x  :  A
4.  m  :  \mBbbZ{}
5.  n  :  \mBbbN{}
6.  \muparrow{}can-apply(f\^{}0;x)
\mvdash{}  f\^{}n  +  0  x  \msim{}  f\^{}n  do-apply(f\^{}0;x)


By

---

Latex:
xxx(RepUR  ``p-fun-exp  do-apply``  0
        THEN  Fold  `p-fun-exp`  0
        THEN  RepUR  ``p-id``  0
        THEN  (UnivCD  THENA  Auto)
        THEN  ProveSqEq
        THEN  Auto)xxx

---

Home Index