---

Step * 2 of Lemma p-fun-exp-injection

.....upcase..... 
1. A : Type
2. f : A ⟶ (A + Top)
3. p-inject(A;A;f)
4. n : ℤ
5. 0 < n
6. p-inject(A;A;f^n - 1)
⊢ p-inject(A;A;f^n)
BY
{ (Unfold `p-fun-exp` 0
   THEN (RWO "primrec-unroll" 0 THENA Auto)
   THEN (SplitOnConclITE THENA Auto)
   THEN Try (Complete (Auto'))
   THEN Fold `p-fun-exp` 0
   THEN Reduce 0
   THEN BLemma `p-compose-inject`
   THEN Auto) }

---

Latex:

---

Latex:
.....upcase..... 
1.  A  :  Type
2.  f  :  A  {}\mrightarrow{}  (A  +  Top)
3.  p-inject(A;A;f)
4.  n  :  \mBbbZ{}
5.  0  <  n
6.  p-inject(A;A;f\^{}n  -  1)
\mvdash{}  p-inject(A;A;f\^{}n)


By

---

Latex:
(Unfold  `p-fun-exp`  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  (SplitOnConclITE  THENA  Auto)
  THEN  Try  (Complete  (Auto'))
  THEN  Fold  `p-fun-exp`  0
  THEN  Reduce  0
  THEN  BLemma  `p-compose-inject`
  THEN  Auto)

---

Home Index