Metamath Proof Explorer


Theorem knoppndvlem1

Description: Lemma for knoppndv . (Contributed by Asger C. Ipsen, 15-Jun-2021) (Revised by Asger C. Ipsen, 5-Jul-2021)

Ref Expression
Hypotheses knoppndvlem1.n โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
knoppndvlem1.j โŠข ( ๐œ‘ โ†’ ๐ฝ โˆˆ โ„ค )
knoppndvlem1.m โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„ค )
Assertion knoppndvlem1 ( ๐œ‘ โ†’ ( ( ( ( 2 ยท ๐‘ ) โ†‘ - ๐ฝ ) / 2 ) ยท ๐‘€ ) โˆˆ โ„ )

Proof

Step Hyp Ref Expression
1 knoppndvlem1.n โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„• )
2 knoppndvlem1.j โŠข ( ๐œ‘ โ†’ ๐ฝ โˆˆ โ„ค )
3 knoppndvlem1.m โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„ค )
4 2re โŠข 2 โˆˆ โ„
5 4 a1i โŠข ( ๐œ‘ โ†’ 2 โˆˆ โ„ )
6 nnz โŠข ( ๐‘ โˆˆ โ„• โ†’ ๐‘ โˆˆ โ„ค )
7 1 6 syl โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„ค )
8 7 zred โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„ )
9 5 8 remulcld โŠข ( ๐œ‘ โ†’ ( 2 ยท ๐‘ ) โˆˆ โ„ )
10 5 recnd โŠข ( ๐œ‘ โ†’ 2 โˆˆ โ„‚ )
11 8 recnd โŠข ( ๐œ‘ โ†’ ๐‘ โˆˆ โ„‚ )
12 2ne0 โŠข 2 โ‰  0
13 12 a1i โŠข ( ๐œ‘ โ†’ 2 โ‰  0 )
14 0red โŠข ( ๐œ‘ โ†’ 0 โˆˆ โ„ )
15 1red โŠข ( ๐œ‘ โ†’ 1 โˆˆ โ„ )
16 0lt1 โŠข 0 < 1
17 16 a1i โŠข ( ๐œ‘ โ†’ 0 < 1 )
18 nnge1 โŠข ( ๐‘ โˆˆ โ„• โ†’ 1 โ‰ค ๐‘ )
19 1 18 syl โŠข ( ๐œ‘ โ†’ 1 โ‰ค ๐‘ )
20 14 15 8 17 19 ltletrd โŠข ( ๐œ‘ โ†’ 0 < ๐‘ )
21 14 20 ltned โŠข ( ๐œ‘ โ†’ 0 โ‰  ๐‘ )
22 21 necomd โŠข ( ๐œ‘ โ†’ ๐‘ โ‰  0 )
23 10 11 13 22 mulne0d โŠข ( ๐œ‘ โ†’ ( 2 ยท ๐‘ ) โ‰  0 )
24 2 znegcld โŠข ( ๐œ‘ โ†’ - ๐ฝ โˆˆ โ„ค )
25 9 23 24 reexpclzd โŠข ( ๐œ‘ โ†’ ( ( 2 ยท ๐‘ ) โ†‘ - ๐ฝ ) โˆˆ โ„ )
26 25 5 13 redivcld โŠข ( ๐œ‘ โ†’ ( ( ( 2 ยท ๐‘ ) โ†‘ - ๐ฝ ) / 2 ) โˆˆ โ„ )
27 3 zred โŠข ( ๐œ‘ โ†’ ๐‘€ โˆˆ โ„ )
28 26 27 remulcld โŠข ( ๐œ‘ โ†’ ( ( ( ( 2 ยท ๐‘ ) โ†‘ - ๐ฝ ) / 2 ) ยท ๐‘€ ) โˆˆ โ„ )