Metamath Proof Explorer


Theorem fzpred

Description: Join a predecessor to the beginning of a finite set of sequential integers. (Contributed by AV, 24-Aug-2019)

Ref Expression
Assertion fzpred ⊢ N ∈ ℤ ≥ M → M … N = M ∪ M + 1 … N

Proof

Step Hyp Ref Expression
1 eluzel2 ⊢ N ∈ ℤ ≥ M → M ∈ ℤ
2 uzid ⊢ M ∈ ℤ → M ∈ ℤ ≥ M
3 peano2uz ⊢ M ∈ ℤ ≥ M → M + 1 ∈ ℤ ≥ M
4 1 2 3 3syl ⊢ N ∈ ℤ ≥ M → M + 1 ∈ ℤ ≥ M
5 fzsplit2 ⊢ M + 1 ∈ ℤ ≥ M ∧ N ∈ ℤ ≥ M → M … N = M … M ∪ M + 1 … N
6 4 5 mpancom ⊢ N ∈ ℤ ≥ M → M … N = M … M ∪ M + 1 … N
7 fzsn ⊢ M ∈ ℤ → M … M = M
8 1 7 syl ⊢ N ∈ ℤ ≥ M → M … M = M
9 8 uneq1d ⊢ N ∈ ℤ ≥ M → M … M ∪ M + 1 … N = M ∪ M + 1 … N
10 6 9 eqtrd ⊢ N ∈ ℤ ≥ M → M … N = M ∪ M + 1 … N