---

Step * 1 2 1 of Lemma mklist-eq


1. n : ℤ
2. 0 < n
3. ∀f,g:ℕ ⟶ Base.  ((∀[i:ℕn - 1]. (f i ~ g i)) ⇒ (mklist(n - 1;f) ~ mklist(n - 1;g)))
4. f : ℕ ⟶ Base@i
5. g : ℕ ⟶ Base@i
6. ∀[i:ℕn]. (f i ~ g i)@i
7. ∀[i:ℕn - 1]. (f (i + 1) ~ g (i + 1))
⊢ mklist(n - 1;λi.(f (1 + i))) ~ mklist(n - 1;λi.(g (1 + i)))
BY
{ (RenameVar `w' (-1) THEN Using [`v',⌜w⌝] (BHyp (-5))⋅ THEN Reduce 0 THEN Try (Complete (Auto))) }

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}f,g:\mBbbN{}  {}\mrightarrow{}  Base.    ((\mforall{}[i:\mBbbN{}n  -  1].  (f  i  \msim{}  g  i))  {}\mRightarrow{}  (mklist(n  -  1;f)  \msim{}  mklist(n  -  1;g)))
4.  f  :  \mBbbN{}  {}\mrightarrow{}  Base@i
5.  g  :  \mBbbN{}  {}\mrightarrow{}  Base@i
6.  \mforall{}[i:\mBbbN{}n].  (f  i  \msim{}  g  i)@i
7.  \mforall{}[i:\mBbbN{}n  -  1].  (f  (i  +  1)  \msim{}  g  (i  +  1))
\mvdash{}  mklist(n  -  1;\mlambda{}i.(f  (1  +  i)))  \msim{}  mklist(n  -  1;\mlambda{}i.(g  (1  +  i)))


By

---

Latex:
(RenameVar  `w'  (-1)  THEN  Using  [`v',\mkleeneopen{}w\mkleeneclose{}]  (BHyp  (-5))\mcdot{}  THEN  Reduce  0  THEN  Try  (Complete  (Auto)))

---

Home Index