---

Step * 1 of Lemma mk_lambdas-fun_wf


1. T : Type
2. U : Type
3. j : ℤ
4. n : ℤ
5. 0 ≤ n
6. A : ℕn + 0 ⟶ Type
7. G : ∀[T:Type]. (funtype(n;A;T) ⟶ T)
8. F : (funtype(n + 0;A;T) ⟶ T) ⟶ U
⊢ mk_lambdas-fun(F;G;n;n + 0) ∈ funtype(0;λi.(A (i + n));U)
BY
{ ((Subst ⌜n + 0 ~ n⌝ 0⋅ THENA Auto)
   THEN RepUR ``funtype`` 0
   THEN RecUnfold `mk_lambdas-fun` 0
   THEN AutoSplit
   THEN Subst ⌜n + 0 ~ n⌝ (-2)⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  U  :  Type
3.  j  :  \mBbbZ{}
4.  n  :  \mBbbZ{}
5.  0  \mleq{}  n
6.  A  :  \mBbbN{}n  +  0  {}\mrightarrow{}  Type
7.  G  :  \mforall{}[T:Type].  (funtype(n;A;T)  {}\mrightarrow{}  T)
8.  F  :  (funtype(n  +  0;A;T)  {}\mrightarrow{}  T)  {}\mrightarrow{}  U
\mvdash{}  mk\_lambdas-fun(F;G;n;n  +  0)  \mmember{}  funtype(0;\mlambda{}i.(A  (i  +  n));U)


By

---

Latex:
((Subst  \mkleeneopen{}n  +  0  \msim{}  n\mkleeneclose{}  0\mcdot{}  THENA  Auto)
  THEN  RepUR  ``funtype``  0
  THEN  RecUnfold  `mk\_lambdas-fun`  0
  THEN  AutoSplit
  THEN  Subst  \mkleeneopen{}n  +  0  \msim{}  n\mkleeneclose{}  (-2)\mcdot{}
  THEN  Auto)

---

Home Index