Metamath Proof Explorer


Theorem expclzlem

Description: Lemma for expclz . (Contributed by Mario Carneiro, 4-Jun-2014)

Ref Expression
Assertion expclzlem ( ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด โ†‘ ๐‘ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )

Proof

Step Hyp Ref Expression
1 eldifsn โŠข ( ๐ด โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) )
2 difss โŠข ( โ„‚ โˆ– { 0 } ) โŠ† โ„‚
3 eldifsn โŠข ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) )
4 eldifsn โŠข ( ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( ๐‘ฆ โˆˆ โ„‚ โˆง ๐‘ฆ โ‰  0 ) )
5 mulcl โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฆ โˆˆ โ„‚ ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ โ„‚ )
6 5 ad2ant2r โŠข ( ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) โˆง ( ๐‘ฆ โˆˆ โ„‚ โˆง ๐‘ฆ โ‰  0 ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ โ„‚ )
7 mulne0 โŠข ( ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) โˆง ( ๐‘ฆ โˆˆ โ„‚ โˆง ๐‘ฆ โ‰  0 ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โ‰  0 )
8 eldifsn โŠข ( ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ โ„‚ โˆง ( ๐‘ฅ ยท ๐‘ฆ ) โ‰  0 ) )
9 6 7 8 sylanbrc โŠข ( ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) โˆง ( ๐‘ฆ โˆˆ โ„‚ โˆง ๐‘ฆ โ‰  0 ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
10 3 4 9 syl2anb โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฆ โˆˆ ( โ„‚ โˆ– { 0 } ) ) โ†’ ( ๐‘ฅ ยท ๐‘ฆ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
11 ax-1cn โŠข 1 โˆˆ โ„‚
12 ax-1ne0 โŠข 1 โ‰  0
13 eldifsn โŠข ( 1 โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( 1 โˆˆ โ„‚ โˆง 1 โ‰  0 ) )
14 11 12 13 mpbir2an โŠข 1 โˆˆ ( โ„‚ โˆ– { 0 } )
15 reccl โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) โ†’ ( 1 / ๐‘ฅ ) โˆˆ โ„‚ )
16 recne0 โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) โ†’ ( 1 / ๐‘ฅ ) โ‰  0 )
17 15 16 jca โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐‘ฅ โ‰  0 ) โ†’ ( ( 1 / ๐‘ฅ ) โˆˆ โ„‚ โˆง ( 1 / ๐‘ฅ ) โ‰  0 ) )
18 eldifsn โŠข ( ( 1 / ๐‘ฅ ) โˆˆ ( โ„‚ โˆ– { 0 } ) โ†” ( ( 1 / ๐‘ฅ ) โˆˆ โ„‚ โˆง ( 1 / ๐‘ฅ ) โ‰  0 ) )
19 17 3 18 3imtr4i โŠข ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โ†’ ( 1 / ๐‘ฅ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
20 19 adantr โŠข ( ( ๐‘ฅ โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐‘ฅ โ‰  0 ) โ†’ ( 1 / ๐‘ฅ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
21 2 10 14 20 expcl2lem โŠข ( ( ๐ด โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐ด โ‰  0 โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด โ†‘ ๐‘ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )
22 21 3expia โŠข ( ( ๐ด โˆˆ ( โ„‚ โˆ– { 0 } ) โˆง ๐ด โ‰  0 ) โ†’ ( ๐‘ โˆˆ โ„ค โ†’ ( ๐ด โ†‘ ๐‘ ) โˆˆ ( โ„‚ โˆ– { 0 } ) ) )
23 1 22 sylanbr โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) โˆง ๐ด โ‰  0 ) โ†’ ( ๐‘ โˆˆ โ„ค โ†’ ( ๐ด โ†‘ ๐‘ ) โˆˆ ( โ„‚ โˆ– { 0 } ) ) )
24 23 anabss3 โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 ) โ†’ ( ๐‘ โˆˆ โ„ค โ†’ ( ๐ด โ†‘ ๐‘ ) โˆˆ ( โ„‚ โˆ– { 0 } ) ) )
25 24 3impia โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐ด โ‰  0 โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐ด โ†‘ ๐‘ ) โˆˆ ( โ„‚ โˆ– { 0 } ) )