Metamath Proof Explorer


Theorem carsgsigalem

Description: Lemma for the following theorems. (Contributed by Thierry Arnoux, 23-May-2020)

Ref Expression
Hypotheses carsgval.1 φOV
carsgval.2 φM:𝒫O0+∞
carsgsiga.1 φM=0
carsgsiga.2 φxωx𝒫OMx*yxMy
Assertion carsgsigalem φe𝒫Of𝒫OMefMe+𝑒Mf

Proof

Step Hyp Ref Expression
1 carsgval.1 φOV
2 carsgval.2 φM:𝒫O0+∞
3 carsgsiga.1 φM=0
4 carsgsiga.2 φxωx𝒫OMx*yxMy
5 simpr φe𝒫Of𝒫Oe=fe=f
6 5 uneq2d φe𝒫Of𝒫Oe=fee=ef
7 unidm ee=e
8 6 7 eqtr3di φe𝒫Of𝒫Oe=fef=e
9 8 fveq2d φe𝒫Of𝒫Oe=fMef=Me
10 iccssxr 0+∞*
11 simp1 φe𝒫Of𝒫Oφ
12 11 2 syl φe𝒫Of𝒫OM:𝒫O0+∞
13 simp2 φe𝒫Of𝒫Oe𝒫O
14 12 13 ffvelrnd φe𝒫Of𝒫OMe0+∞
15 10 14 sselid φe𝒫Of𝒫OMe*
16 15 adantr φe𝒫Of𝒫Oe=fMe*
17 5 fveq2d φe𝒫Of𝒫Oe=fMe=Mf
18 17 16 eqeltrrd φe𝒫Of𝒫Oe=fMf*
19 simp3 φe𝒫Of𝒫Of𝒫O
20 12 19 ffvelrnd φe𝒫Of𝒫OMf0+∞
21 20 adantr φe𝒫Of𝒫Oe=fMf0+∞
22 elxrge0 Mf0+∞Mf*0Mf
23 22 simprbi Mf0+∞0Mf
24 21 23 syl φe𝒫Of𝒫Oe=f0Mf
25 xraddge02 Me*Mf*0MfMeMe+𝑒Mf
26 25 imp Me*Mf*0MfMeMe+𝑒Mf
27 16 18 24 26 syl21anc φe𝒫Of𝒫Oe=fMeMe+𝑒Mf
28 9 27 eqbrtrd φe𝒫Of𝒫Oe=fMefMe+𝑒Mf
29 uniprg e𝒫Of𝒫Oef=ef
30 29 fveq2d e𝒫Of𝒫OMef=Mef
31 30 3adant1 φe𝒫Of𝒫OMef=Mef
32 prct e𝒫Of𝒫Oefω
33 32 3adant1 φe𝒫Of𝒫Oefω
34 prssi e𝒫Of𝒫Oef𝒫O
35 34 3adant1 φe𝒫Of𝒫Oef𝒫O
36 prex efV
37 breq1 x=efxωefω
38 sseq1 x=efx𝒫Oef𝒫O
39 37 38 3anbi23d x=efφxωx𝒫Oφefωef𝒫O
40 unieq x=efx=ef
41 40 fveq2d x=efMx=Mef
42 esumeq1 x=ef*yxMy=*yefMy
43 41 42 breq12d x=efMx*yxMyMef*yefMy
44 39 43 imbi12d x=efφxωx𝒫OMx*yxMyφefωef𝒫OMef*yefMy
45 44 4 vtoclg efVφefωef𝒫OMef*yefMy
46 36 45 ax-mp φefωef𝒫OMef*yefMy
47 11 33 35 46 syl3anc φe𝒫Of𝒫OMef*yefMy
48 31 47 eqbrtrrd φe𝒫Of𝒫OMef*yefMy
49 48 adantr φe𝒫Of𝒫OefMef*yefMy
50 simpr φe𝒫Of𝒫Oy=ey=e
51 50 fveq2d φe𝒫Of𝒫Oy=eMy=Me
52 51 adantlr φe𝒫Of𝒫Oefy=eMy=Me
53 simpr φe𝒫Of𝒫Oy=fy=f
54 53 fveq2d φe𝒫Of𝒫Oy=fMy=Mf
55 54 adantlr φe𝒫Of𝒫Oefy=fMy=Mf
56 13 adantr φe𝒫Of𝒫Oefe𝒫O
57 19 adantr φe𝒫Of𝒫Oeff𝒫O
58 14 adantr φe𝒫Of𝒫OefMe0+∞
59 20 adantr φe𝒫Of𝒫OefMf0+∞
60 simpr φe𝒫Of𝒫Oefef
61 52 55 56 57 58 59 60 esumpr φe𝒫Of𝒫Oef*yefMy=Me+𝑒Mf
62 49 61 breqtrd φe𝒫Of𝒫OefMefMe+𝑒Mf
63 28 62 pm2.61dane φe𝒫Of𝒫OMefMe+𝑒Mf