---

Step * 2 1 of Lemma shorten-tuple-split-tuple


1. n : ℤ
2. 0 < n
3. ∀[x:Top]. (shorten-tuple(x;n - 1) ~ snd(split-tuple(x;n - 1)))
4. x : Top
5. 0 < n
6. ¬(n = 0 ∈ ℤ)
7. ¬(n = 1 ∈ ℤ)
8. Z : Top
9. split-tuple(snd(x);n - 1) = Z ∈ Top
⊢ snd(Z) ~ snd(let a,b = Z 
               in <<fst(x), a>, b>)
BY
{ (SymbComp 0 THEN Auto) }

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}[x:Top].  (shorten-tuple(x;n  -  1)  \msim{}  snd(split-tuple(x;n  -  1)))
4.  x  :  Top
5.  0  <  n
6.  \mneg{}(n  =  0)
7.  \mneg{}(n  =  1)
8.  Z  :  Top
9.  split-tuple(snd(x);n  -  1)  =  Z
\mvdash{}  snd(Z)  \msim{}  snd(let  a,b  =  Z 
                              in  <<fst(x),  a>,  b>)


By

---

Latex:
(SymbComp  0  THEN  Auto)

---

Home Index