---

Step * 1 of Lemma from-upto-shift

.....assertion..... 
∀d:ℕ. ∀n,m:ℤ.  (((m - n) ≤ d) ⇒ (∀k:ℤ. (map(λx.(x + k);[n, m)) ~ [n + k, m + k))))
BY
{ ((InductionOnNat THENA Auto) THEN (UnivCD THENA Auto) THEN skip{(RecUnfold `from-upto` 0 THEN AutoSplit)}) }

1
1. d : ℤ
2. n : ℤ
3. m : ℤ
4. (m - n) ≤ 0
5. k : ℤ
⊢ map(λx.(x + k);[n, m)) ~ [n + k, m + k)

2
1. d : ℤ
2. 0 < d
3. ∀n,m:ℤ.  (((m - n) ≤ (d - 1)) ⇒ (∀k:ℤ. (map(λx.(x + k);[n, m)) ~ [n + k, m + k))))
4. n : ℤ
5. m : ℤ
6. (m - n) ≤ d
7. k : ℤ
⊢ map(λx.(x + k);[n, m)) ~ [n + k, m + k)

---

Latex:

---

Latex:
.....assertion..... 
\mforall{}d:\mBbbN{}.  \mforall{}n,m:\mBbbZ{}.    (((m  -  n)  \mleq{}  d)  {}\mRightarrow{}  (\mforall{}k:\mBbbZ{}.  (map(\mlambda{}x.(x  +  k);[n,  m))  \msim{}  [n  +  k,  m  +  k))))


By

---

Latex:
((InductionOnNat  THENA  Auto)
  THEN  (UnivCD  THENA  Auto)
  THEN  skip\{(RecUnfold  `from-upto`  0  THEN  AutoSplit)\})

---

Home Index