Metamath Proof Explorer


Theorem expclzlem

Description: Closure law for integer exponentiation. (Contributed by Mario Carneiro, 4-Jun-2014)

Ref Expression
Assertion expclzlem A A 0 N A N 0

Proof

Step Hyp Ref Expression
1 eldifsn A 0 A A 0
2 difss 0
3 eldifsn x 0 x x 0
4 eldifsn y 0 y y 0
5 mulcl x y x y
6 5 ad2ant2r x x 0 y y 0 x y
7 mulne0 x x 0 y y 0 x y 0
8 eldifsn x y 0 x y x y 0
9 6 7 8 sylanbrc x x 0 y y 0 x y 0
10 3 4 9 syl2anb x 0 y 0 x y 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 x x 0 1 x
16 recne0 x x 0 1 x 0
17 15 16 jca x x 0 1 x 1 x 0
18 eldifsn 1 x 0 1 x 1 x 0
19 17 3 18 3imtr4i x 0 1 x 0
20 19 adantr x 0 x 0 1 x 0
21 2 10 14 20 expcl2lem A 0 A 0 N A N 0
22 21 3expia A 0 A 0 N A N 0
23 1 22 sylanbr A A 0 A 0 N A N 0
24 23 anabss3 A A 0 N A N 0
25 24 3impia A A 0 N A N 0