Theorem expap0 10116

Description: Positive integer exponentiation is apart from zero iff its mantissa is apart from zero. That it is easier to prove this first, and then prove expeq0 10117 in terms of it, rather than the other way around, is perhaps an illustration of the maxim "In constructive analysis, the apartness is more basic [ than ] equality." (Remark of [Geuvers], p. 1). (Contributed by Jim Kingdon, 10-Jun-2020.)

Assertion

Ref	Expression
expap0	⊢ ((𝐴 ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((𝐴↑𝑁) # 0 ↔ 𝐴 # 0))

Proof of Theorem expap0

Dummy variables 𝑗 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 5698	. . . . . 6 ⊢ (𝑗 = 1 → (𝐴↑𝑗) = (𝐴↑1))
2	1	breq1d 3877	. . . . 5 ⊢ (𝑗 = 1 → ((𝐴↑𝑗) # 0 ↔ (𝐴↑1) # 0))
3	2	bibi1d 232	. . . 4 ⊢ (𝑗 = 1 → (((𝐴↑𝑗) # 0 ↔ 𝐴 # 0) ↔ ((𝐴↑1) # 0 ↔ 𝐴 # 0)))
4	3	imbi2d 229	. . 3 ⊢ (𝑗 = 1 → ((𝐴 ∈ ℂ → ((𝐴↑𝑗) # 0 ↔ 𝐴 # 0)) ↔ (𝐴 ∈ ℂ → ((𝐴↑1) # 0 ↔ 𝐴 # 0))))
5		oveq2 5698	. . . . . 6 ⊢ (𝑗 = 𝑘 → (𝐴↑𝑗) = (𝐴↑𝑘))
6	5	breq1d 3877	. . . . 5 ⊢ (𝑗 = 𝑘 → ((𝐴↑𝑗) # 0 ↔ (𝐴↑𝑘) # 0))
7	6	bibi1d 232	. . . 4 ⊢ (𝑗 = 𝑘 → (((𝐴↑𝑗) # 0 ↔ 𝐴 # 0) ↔ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)))
8	7	imbi2d 229	. . 3 ⊢ (𝑗 = 𝑘 → ((𝐴 ∈ ℂ → ((𝐴↑𝑗) # 0 ↔ 𝐴 # 0)) ↔ (𝐴 ∈ ℂ → ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0))))
9		oveq2 5698	. . . . . 6 ⊢ (𝑗 = (𝑘 + 1) → (𝐴↑𝑗) = (𝐴↑(𝑘 + 1)))
10	9	breq1d 3877	. . . . 5 ⊢ (𝑗 = (𝑘 + 1) → ((𝐴↑𝑗) # 0 ↔ (𝐴↑(𝑘 + 1)) # 0))
11	10	bibi1d 232	. . . 4 ⊢ (𝑗 = (𝑘 + 1) → (((𝐴↑𝑗) # 0 ↔ 𝐴 # 0) ↔ ((𝐴↑(𝑘 + 1)) # 0 ↔ 𝐴 # 0)))
12	11	imbi2d 229	. . 3 ⊢ (𝑗 = (𝑘 + 1) → ((𝐴 ∈ ℂ → ((𝐴↑𝑗) # 0 ↔ 𝐴 # 0)) ↔ (𝐴 ∈ ℂ → ((𝐴↑(𝑘 + 1)) # 0 ↔ 𝐴 # 0))))
13		oveq2 5698	. . . . . 6 ⊢ (𝑗 = 𝑁 → (𝐴↑𝑗) = (𝐴↑𝑁))
14	13	breq1d 3877	. . . . 5 ⊢ (𝑗 = 𝑁 → ((𝐴↑𝑗) # 0 ↔ (𝐴↑𝑁) # 0))
15	14	bibi1d 232	. . . 4 ⊢ (𝑗 = 𝑁 → (((𝐴↑𝑗) # 0 ↔ 𝐴 # 0) ↔ ((𝐴↑𝑁) # 0 ↔ 𝐴 # 0)))
16	15	imbi2d 229	. . 3 ⊢ (𝑗 = 𝑁 → ((𝐴 ∈ ℂ → ((𝐴↑𝑗) # 0 ↔ 𝐴 # 0)) ↔ (𝐴 ∈ ℂ → ((𝐴↑𝑁) # 0 ↔ 𝐴 # 0))))
17		exp1 10092	. . . 4 ⊢ (𝐴 ∈ ℂ → (𝐴↑1) = 𝐴)
18	17	breq1d 3877	. . 3 ⊢ (𝐴 ∈ ℂ → ((𝐴↑1) # 0 ↔ 𝐴 # 0))
19		nnnn0 8778	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ0)
20		expp1 10093	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐴↑(𝑘 + 1)) = ((𝐴↑𝑘) · 𝐴))
21	20	breq1d 3877	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → ((𝐴↑(𝑘 + 1)) # 0 ↔ ((𝐴↑𝑘) · 𝐴) # 0))
22	21	ancoms 265	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ0 ∧ 𝐴 ∈ ℂ) → ((𝐴↑(𝑘 + 1)) # 0 ↔ ((𝐴↑𝑘) · 𝐴) # 0))
23	19, 22	sylan 278	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) → ((𝐴↑(𝑘 + 1)) # 0 ↔ ((𝐴↑𝑘) · 𝐴) # 0))
24	23	adantr 271	. . . . . . 7 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → ((𝐴↑(𝑘 + 1)) # 0 ↔ ((𝐴↑𝑘) · 𝐴) # 0))
25		simplr 498	. . . . . . . . 9 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → 𝐴 ∈ ℂ)
26	19	ad2antrr 473	. . . . . . . . 9 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → 𝑘 ∈ ℕ0)
27		expcl 10104	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ∈ ℂ)
28	25, 26, 27	syl2anc 404	. . . . . . . 8 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → (𝐴↑𝑘) ∈ ℂ)
29	28, 25	mulap0bd 8223	. . . . . . 7 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → (((𝐴↑𝑘) # 0 ∧ 𝐴 # 0) ↔ ((𝐴↑𝑘) · 𝐴) # 0))
30		anbi1 455	. . . . . . . 8 ⊢ (((𝐴↑𝑘) # 0 ↔ 𝐴 # 0) → (((𝐴↑𝑘) # 0 ∧ 𝐴 # 0) ↔ (𝐴 # 0 ∧ 𝐴 # 0)))
31	30	adantl 272	. . . . . . 7 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → (((𝐴↑𝑘) # 0 ∧ 𝐴 # 0) ↔ (𝐴 # 0 ∧ 𝐴 # 0)))
32	24, 29, 31	3bitr2d 215	. . . . . 6 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → ((𝐴↑(𝑘 + 1)) # 0 ↔ (𝐴 # 0 ∧ 𝐴 # 0)))
33		anidm 389	. . . . . 6 ⊢ ((𝐴 # 0 ∧ 𝐴 # 0) ↔ 𝐴 # 0)
34	32, 33	syl6bb 195	. . . . 5 ⊢ (((𝑘 ∈ ℕ ∧ 𝐴 ∈ ℂ) ∧ ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → ((𝐴↑(𝑘 + 1)) # 0 ↔ 𝐴 # 0))
35	34	exp31 357	. . . 4 ⊢ (𝑘 ∈ ℕ → (𝐴 ∈ ℂ → (((𝐴↑𝑘) # 0 ↔ 𝐴 # 0) → ((𝐴↑(𝑘 + 1)) # 0 ↔ 𝐴 # 0))))
36	35	a2d 26	. . 3 ⊢ (𝑘 ∈ ℕ → ((𝐴 ∈ ℂ → ((𝐴↑𝑘) # 0 ↔ 𝐴 # 0)) → (𝐴 ∈ ℂ → ((𝐴↑(𝑘 + 1)) # 0 ↔ 𝐴 # 0))))
37	4, 8, 12, 16, 18, 36	nnind 8536	. 2 ⊢ (𝑁 ∈ ℕ → (𝐴 ∈ ℂ → ((𝐴↑𝑁) # 0 ↔ 𝐴 # 0)))
38	37	impcom 124	1 ⊢ ((𝐴 ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((𝐴↑𝑁) # 0 ↔ 𝐴 # 0))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1296   ∈ wcel 1445   class class class wbr 3867  (class class class)co 5690  ℂcc 7445  0cc0 7447  1c1 7448   + caddc 7450   · cmul 7452   # cap 8155  ℕcn 8520  ℕ₀cn0 8771  ↑cexp 10085

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 582  ax-in2 583  ax-io 668  ax-5 1388  ax-7 1389  ax-gen 1390  ax-ie1 1434  ax-ie2 1435  ax-8 1447  ax-10 1448  ax-11 1449  ax-i12 1450  ax-bndl 1451  ax-4 1452  ax-13 1456  ax-14 1457  ax-17 1471  ax-i9 1475  ax-ial 1479  ax-i5r 1480  ax-ext 2077  ax-coll 3975  ax-sep 3978  ax-nul 3986  ax-pow 4030  ax-pr 4060  ax-un 4284  ax-setind 4381  ax-iinf 4431  ax-cnex 7533  ax-resscn 7534  ax-1cn 7535  ax-1re 7536  ax-icn 7537  ax-addcl 7538  ax-addrcl 7539  ax-mulcl 7540  ax-mulrcl 7541  ax-addcom 7542  ax-mulcom 7543  ax-addass 7544  ax-mulass 7545  ax-distr 7546  ax-i2m1 7547  ax-0lt1 7548  ax-1rid 7549  ax-0id 7550  ax-rnegex 7551  ax-precex 7552  ax-cnre 7553  ax-pre-ltirr 7554  ax-pre-ltwlin 7555  ax-pre-lttrn 7556  ax-pre-apti 7557  ax-pre-ltadd 7558  ax-pre-mulgt0 7559  ax-pre-mulext 7560

This theorem depends on definitions:  df-bi 116  df-dc 784  df-3or 928  df-3an 929  df-tru 1299  df-fal 1302  df-nf 1402  df-sb 1700  df-eu 1958  df-mo 1959  df-clab 2082  df-cleq 2088  df-clel 2091  df-nfc 2224  df-ne 2263  df-nel 2358  df-ral 2375  df-rex 2376  df-reu 2377  df-rmo 2378  df-rab 2379  df-v 2635  df-sbc 2855  df-csb 2948  df-dif 3015  df-un 3017  df-in 3019  df-ss 3026  df-nul 3303  df-if 3414  df-pw 3451  df-sn 3472  df-pr 3473  df-op 3475  df-uni 3676  df-int 3711  df-iun 3754  df-br 3868  df-opab 3922  df-mpt 3923  df-tr 3959  df-id 4144  df-po 4147  df-iso 4148  df-iord 4217  df-on 4219  df-ilim 4220  df-suc 4222  df-iom 4434  df-xp 4473  df-rel 4474  df-cnv 4475  df-co 4476  df-dm 4477  df-rn 4478  df-res 4479  df-ima 4480  df-iota 5014  df-fun 5051  df-fn 5052  df-f 5053  df-f1 5054  df-fo 5055  df-f1o 5056  df-fv 5057  df-riota 5646  df-ov 5693  df-oprab 5694  df-mpt2 5695  df-1st 5949  df-2nd 5950  df-recs 6108  df-frec 6194  df-pnf 7621  df-mnf 7622  df-xr 7623  df-ltxr 7624  df-le 7625  df-sub 7752  df-neg 7753  df-reap 8149  df-ap 8156  df-div 8237  df-inn 8521  df-n0 8772  df-z 8849  df-uz 9119  df-iseq 10002  df-seq3 10003  df-exp 10086

This theorem is referenced by:  expeq0  10117  abs00ap  10626