---

Step * 1 2 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
⊢ mklist(n - 1;λi.(f (1 + i))) ~ mklist(n - 1;λi.(g (1 + i)))
BY
{ (Assert ⌜∀[i:ℕn - 1]. (f (i + 1) ~ g (i + 1))⌝⋅ THENA ((D 0 THENA Auto) THEN BHyp (-2) THEN Auto)) }

1
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)))

---

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
\mvdash{}  mklist(n  -  1;\mlambda{}i.(f  (1  +  i)))  \msim{}  mklist(n  -  1;\mlambda{}i.(g  (1  +  i)))


By

---

Latex:
(Assert  \mkleeneopen{}\mforall{}[i:\mBbbN{}n  -  1].  (f  (i  +  1)  \msim{}  g  (i  +  1))\mkleeneclose{}\mcdot{}  THENA  ((D  0  THENA  Auto)  THEN  BHyp  (-2)  THEN  Auto))

---

Home Index