Metamath Proof Explorer


Theorem etransclem13

Description: F applied to Y . (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem13.x φ X
etransclem13.p φ P
etransclem13.m φ M 0
etransclem13.f F = x X x P 1 j = 1 M x j P
etransclem13.y φ Y X
Assertion etransclem13 φ F Y = j = 0 M Y j if j = 0 P 1 P

Proof

Step Hyp Ref Expression
1 etransclem13.x φ X
2 etransclem13.p φ P
3 etransclem13.m φ M 0
4 etransclem13.f F = x X x P 1 j = 1 M x j P
5 etransclem13.y φ Y X
6 eqid j 0 M x X x j if j = 0 P 1 P = j 0 M x X x j if j = 0 P 1 P
7 eqid x X j = 0 M j 0 M x X x j if j = 0 P 1 P j x = x X j = 0 M j 0 M x X x j if j = 0 P 1 P j x
8 1 2 3 4 6 7 etransclem4 φ F = x X j = 0 M j 0 M x X x j if j = 0 P 1 P j x
9 simpr φ j 0 M j 0 M
10 cnex V
11 10 ssex X X V
12 mptexg X V y X y j if j = 0 P 1 P V
13 1 11 12 3syl φ y X y j if j = 0 P 1 P V
14 13 adantr φ j 0 M y X y j if j = 0 P 1 P V
15 oveq1 x = y x j = y j
16 15 oveq1d x = y x j if j = 0 P 1 P = y j if j = 0 P 1 P
17 16 cbvmptv x X x j if j = 0 P 1 P = y X y j if j = 0 P 1 P
18 17 mpteq2i j 0 M x X x j if j = 0 P 1 P = j 0 M y X y j if j = 0 P 1 P
19 18 fvmpt2 j 0 M y X y j if j = 0 P 1 P V j 0 M x X x j if j = 0 P 1 P j = y X y j if j = 0 P 1 P
20 9 14 19 syl2anc φ j 0 M j 0 M x X x j if j = 0 P 1 P j = y X y j if j = 0 P 1 P
21 20 adantlr φ x = Y j 0 M j 0 M x X x j if j = 0 P 1 P j = y X y j if j = 0 P 1 P
22 simpr x = Y y = x y = x
23 simpl x = Y y = x x = Y
24 22 23 eqtrd x = Y y = x y = Y
25 oveq1 y = Y y j = Y j
26 25 oveq1d y = Y y j if j = 0 P 1 P = Y j if j = 0 P 1 P
27 24 26 syl x = Y y = x y j if j = 0 P 1 P = Y j if j = 0 P 1 P
28 27 adantll φ x = Y y = x y j if j = 0 P 1 P = Y j if j = 0 P 1 P
29 28 adantlr φ x = Y j 0 M y = x y j if j = 0 P 1 P = Y j if j = 0 P 1 P
30 simpr φ x = Y x = Y
31 5 adantr φ x = Y Y X
32 30 31 eqeltrd φ x = Y x X
33 32 adantr φ x = Y j 0 M x X
34 ovexd φ x = Y j 0 M Y j if j = 0 P 1 P V
35 21 29 33 34 fvmptd φ x = Y j 0 M j 0 M x X x j if j = 0 P 1 P j x = Y j if j = 0 P 1 P
36 35 prodeq2dv φ x = Y j = 0 M j 0 M x X x j if j = 0 P 1 P j x = j = 0 M Y j if j = 0 P 1 P
37 prodex j = 0 M Y j if j = 0 P 1 P V
38 37 a1i φ j = 0 M Y j if j = 0 P 1 P V
39 8 36 5 38 fvmptd φ F Y = j = 0 M Y j if j = 0 P 1 P