Metamath Proof Explorer


Theorem fprod1p

Description: Separate out the first term in a finite product. (Contributed by Scott Fenton, 24-Dec-2017)

Ref Expression
Hypotheses fprod1p.1 φ N M
fprod1p.2 φ k M N A
fprod1p.3 k = M A = B
Assertion fprod1p φ k = M N A = B k = M + 1 N A

Proof

Step Hyp Ref Expression
1 fprod1p.1 φ N M
2 fprod1p.2 φ k M N A
3 fprod1p.3 k = M A = B
4 eluzfz1 N M M M N
5 1 4 syl φ M M N
6 elfzelz M M N M
7 5 6 syl φ M
8 fzsn M M M = M
9 7 8 syl φ M M = M
10 9 ineq1d φ M M M + 1 N = M M + 1 N
11 7 zred φ M
12 11 ltp1d φ M < M + 1
13 fzdisj M < M + 1 M M M + 1 N =
14 12 13 syl φ M M M + 1 N =
15 10 14 eqtr3d φ M M + 1 N =
16 fzsplit M M N M N = M M M + 1 N
17 5 16 syl φ M N = M M M + 1 N
18 9 uneq1d φ M M M + 1 N = M M + 1 N
19 17 18 eqtrd φ M N = M M + 1 N
20 fzfid φ M N Fin
21 15 19 20 2 fprodsplit φ k = M N A = k M A k = M + 1 N A
22 3 eleq1d k = M A B
23 2 ralrimiva φ k M N A
24 22 23 5 rspcdva φ B
25 3 prodsn M M N B k M A = B
26 5 24 25 syl2anc φ k M A = B
27 26 oveq1d φ k M A k = M + 1 N A = B k = M + 1 N A
28 21 27 eqtrd φ k = M N A = B k = M + 1 N A