Metamath Proof Explorer


Theorem etransclem3

Description: The given if term is an integer. (Contributed by Glauco Siliprandi, 5-Apr-2020)

Ref Expression
Hypotheses etransclem3.n φP
etransclem3.c φC:0M0N
etransclem3.j φJ0M
etransclem3.4 φK
Assertion etransclem3 φifP<CJ0P!PCJ!KJPCJ

Proof

Step Hyp Ref Expression
1 etransclem3.n φP
2 etransclem3.c φC:0M0N
3 etransclem3.j φJ0M
4 etransclem3.4 φK
5 0zd φP<CJ0
6 0zd φ¬P<CJ0
7 1 nnzd φP
8 7 adantr φ¬P<CJP
9 2 3 ffvelcdmd φCJ0N
10 9 elfzelzd φCJ
11 7 10 zsubcld φPCJ
12 11 adantr φ¬P<CJPCJ
13 10 zred φCJ
14 13 adantr φ¬P<CJCJ
15 8 zred φ¬P<CJP
16 simpr φ¬P<CJ¬P<CJ
17 14 15 16 nltled φ¬P<CJCJP
18 15 14 subge0d φ¬P<CJ0PCJCJP
19 17 18 mpbird φ¬P<CJ0PCJ
20 elfzle1 CJ0N0CJ
21 9 20 syl φ0CJ
22 1 nnred φP
23 22 13 subge02d φ0CJPCJP
24 21 23 mpbid φPCJP
25 24 adantr φ¬P<CJPCJP
26 6 8 12 19 25 elfzd φ¬P<CJPCJ0P
27 permnn PCJ0PP!PCJ!
28 26 27 syl φ¬P<CJP!PCJ!
29 28 nnzd φ¬P<CJP!PCJ!
30 3 elfzelzd φJ
31 4 30 zsubcld φKJ
32 31 adantr φ¬P<CJKJ
33 elnn0z PCJ0PCJ0PCJ
34 12 19 33 sylanbrc φ¬P<CJPCJ0
35 zexpcl KJPCJ0KJPCJ
36 32 34 35 syl2anc φ¬P<CJKJPCJ
37 29 36 zmulcld φ¬P<CJP!PCJ!KJPCJ
38 5 37 ifclda φifP<CJ0P!PCJ!KJPCJ