Metamath Proof Explorer


Theorem pthdlem2lem

Description: Lemma for pthdlem2 . (Contributed by AV, 10-Feb-2021)

Ref Expression
Hypotheses pthd.p φPWordV
pthd.r R=P1
pthd.s φi0..^Pj1..^RijPiPj
Assertion pthdlem2lem φPI=0I=RPIP1..^R

Proof

Step Hyp Ref Expression
1 pthd.p φPWordV
2 pthd.r R=P1
3 pthd.s φi0..^Pj1..^RijPiPj
4 3 3ad2ant1 φPI=0I=Ri0..^Pj1..^RijPiPj
5 ralcom i0..^Pj1..^RijPiPjj1..^Ri0..^PijPiPj
6 elfzo1 j1..^RjRj<R
7 nnne0 jj0
8 7 necomd j0j
9 8 3ad2ant1 jRj<R0j
10 6 9 sylbi j1..^R0j
11 10 adantl Pj1..^R0j
12 neeq1 I=0Ij0j
13 11 12 imbitrrid I=0Pj1..^RIj
14 13 expd I=0Pj1..^RIj
15 nnre jj
16 15 adantr jRj
17 nnre RR
18 17 adantl jRR
19 16 18 ltlend jRj<RjRRj
20 simpr jRRjRj
21 19 20 syl6bi jRj<RRj
22 21 3impia jRj<RRj
23 6 22 sylbi j1..^RRj
24 23 adantl Pj1..^RRj
25 neeq1 I=RIjRj
26 24 25 imbitrrid I=RPj1..^RIj
27 26 expd I=RPj1..^RIj
28 14 27 jaoi I=0I=RPj1..^RIj
29 28 impcom PI=0I=Rj1..^RIj
30 29 3adant1 φPI=0I=Rj1..^RIj
31 30 imp φPI=0I=Rj1..^RIj
32 lbfzo0 00..^PP
33 32 biimpri P00..^P
34 eleq1 I=0I0..^P00..^P
35 33 34 imbitrrid I=0PI0..^P
36 fzo0end PP10..^P
37 2 36 eqeltrid PR0..^P
38 eleq1 I=RI0..^PR0..^P
39 37 38 imbitrrid I=RPI0..^P
40 35 39 jaoi I=0I=RPI0..^P
41 40 impcom PI=0I=RI0..^P
42 41 3adant1 φPI=0I=RI0..^P
43 42 adantr φPI=0I=Rj1..^RI0..^P
44 neeq1 i=IijIj
45 fveq2 i=IPi=PI
46 45 neeq1d i=IPiPjPIPj
47 44 46 imbi12d i=IijPiPjIjPIPj
48 47 rspcv I0..^Pi0..^PijPiPjIjPIPj
49 43 48 syl φPI=0I=Rj1..^Ri0..^PijPiPjIjPIPj
50 31 49 mpid φPI=0I=Rj1..^Ri0..^PijPiPjPIPj
51 nesym PIPj¬Pj=PI
52 50 51 imbitrdi φPI=0I=Rj1..^Ri0..^PijPiPj¬Pj=PI
53 52 ralimdva φPI=0I=Rj1..^Ri0..^PijPiPjj1..^R¬Pj=PI
54 5 53 biimtrid φPI=0I=Ri0..^Pj1..^RijPiPjj1..^R¬Pj=PI
55 4 54 mpd φPI=0I=Rj1..^R¬Pj=PI
56 ralnex j1..^R¬Pj=PI¬j1..^RPj=PI
57 55 56 sylib φPI=0I=R¬j1..^RPj=PI
58 wrdf PWordVP:0..^PV
59 ffun P:0..^PVFunP
60 1 58 59 3syl φFunP
61 60 3ad2ant1 φPI=0I=RFunP
62 fvelima FunPPIP1..^Rj1..^RPj=PI
63 62 ex FunPPIP1..^Rj1..^RPj=PI
64 61 63 syl φPI=0I=RPIP1..^Rj1..^RPj=PI
65 57 64 mtod φPI=0I=R¬PIP1..^R
66 df-nel PIP1..^R¬PIP1..^R
67 65 66 sylibr φPI=0I=RPIP1..^R