Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  digexp Structured version   Visualization version   GIF version

Theorem digexp 46369
Description: The 𝐾 th digit of a power to the base is either 1 or 0. (Contributed by AV, 24-May-2020.)
Assertion
Ref Expression
digexp ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾(digit‘𝐵)(𝐵𝑁)) = if(𝐾 = 𝑁, 1, 0))

Proof of Theorem digexp
StepHypRef Expression
1 eluzelcn 12700 . . . . . . . 8 (𝐵 ∈ (ℤ‘2) → 𝐵 ∈ ℂ)
2 eluz2nn 12730 . . . . . . . . 9 (𝐵 ∈ (ℤ‘2) → 𝐵 ∈ ℕ)
32nnne0d 12129 . . . . . . . 8 (𝐵 ∈ (ℤ‘2) → 𝐵 ≠ 0)
41, 3jca 513 . . . . . . 7 (𝐵 ∈ (ℤ‘2) → (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0))
543ad2ant1 1133 . . . . . 6 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐵 ∈ ℂ ∧ 𝐵 ≠ 0))
6 nn0z 12449 . . . . . . . . 9 (𝐾 ∈ ℕ0𝐾 ∈ ℤ)
7 nn0z 12449 . . . . . . . . 9 (𝑁 ∈ ℕ0𝑁 ∈ ℤ)
86, 7anim12i 614 . . . . . . . 8 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾 ∈ ℤ ∧ 𝑁 ∈ ℤ))
98ancomd 463 . . . . . . 7 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ))
1093adant1 1130 . . . . . 6 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ))
11 expsub 13937 . . . . . 6 (((𝐵 ∈ ℂ ∧ 𝐵 ≠ 0) ∧ (𝑁 ∈ ℤ ∧ 𝐾 ∈ ℤ)) → (𝐵↑(𝑁𝐾)) = ((𝐵𝑁) / (𝐵𝐾)))
125, 10, 11syl2anc 585 . . . . 5 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐵↑(𝑁𝐾)) = ((𝐵𝑁) / (𝐵𝐾)))
1312eqcomd 2743 . . . 4 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((𝐵𝑁) / (𝐵𝐾)) = (𝐵↑(𝑁𝐾)))
1413fveq2d 6834 . . 3 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (⌊‘((𝐵𝑁) / (𝐵𝐾))) = (⌊‘(𝐵↑(𝑁𝐾))))
1514oveq1d 7357 . 2 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((⌊‘((𝐵𝑁) / (𝐵𝐾))) mod 𝐵) = ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵))
1623ad2ant1 1133 . . 3 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐵 ∈ ℕ)
17 simp2 1137 . . 3 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐾 ∈ ℕ0)
18 eluzelre 12699 . . . . . . 7 (𝐵 ∈ (ℤ‘2) → 𝐵 ∈ ℝ)
19 reexpcl 13905 . . . . . . 7 ((𝐵 ∈ ℝ ∧ 𝑁 ∈ ℕ0) → (𝐵𝑁) ∈ ℝ)
2018, 19sylan 581 . . . . . 6 ((𝐵 ∈ (ℤ‘2) ∧ 𝑁 ∈ ℕ0) → (𝐵𝑁) ∈ ℝ)
2118adantr 482 . . . . . . 7 ((𝐵 ∈ (ℤ‘2) ∧ 𝑁 ∈ ℕ0) → 𝐵 ∈ ℝ)
22 simpr 486 . . . . . . 7 ((𝐵 ∈ (ℤ‘2) ∧ 𝑁 ∈ ℕ0) → 𝑁 ∈ ℕ0)
23 eluzge2nn0 12733 . . . . . . . . 9 (𝐵 ∈ (ℤ‘2) → 𝐵 ∈ ℕ0)
2423nn0ge0d 12402 . . . . . . . 8 (𝐵 ∈ (ℤ‘2) → 0 ≤ 𝐵)
2524adantr 482 . . . . . . 7 ((𝐵 ∈ (ℤ‘2) ∧ 𝑁 ∈ ℕ0) → 0 ≤ 𝐵)
2621, 22, 25expge0d 13988 . . . . . 6 ((𝐵 ∈ (ℤ‘2) ∧ 𝑁 ∈ ℕ0) → 0 ≤ (𝐵𝑁))
2720, 26jca 513 . . . . 5 ((𝐵 ∈ (ℤ‘2) ∧ 𝑁 ∈ ℕ0) → ((𝐵𝑁) ∈ ℝ ∧ 0 ≤ (𝐵𝑁)))
28273adant2 1131 . . . 4 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((𝐵𝑁) ∈ ℝ ∧ 0 ≤ (𝐵𝑁)))
29 elrege0 13292 . . . 4 ((𝐵𝑁) ∈ (0[,)+∞) ↔ ((𝐵𝑁) ∈ ℝ ∧ 0 ≤ (𝐵𝑁)))
3028, 29sylibr 233 . . 3 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐵𝑁) ∈ (0[,)+∞))
31 nn0digval 46362 . . 3 ((𝐵 ∈ ℕ ∧ 𝐾 ∈ ℕ0 ∧ (𝐵𝑁) ∈ (0[,)+∞)) → (𝐾(digit‘𝐵)(𝐵𝑁)) = ((⌊‘((𝐵𝑁) / (𝐵𝐾))) mod 𝐵))
3216, 17, 30, 31syl3anc 1371 . 2 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾(digit‘𝐵)(𝐵𝑁)) = ((⌊‘((𝐵𝑁) / (𝐵𝐾))) mod 𝐵))
33 simpr 486 . . . . . . . . . . 11 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → 𝐾 = 𝑁)
3433eqcomd 2743 . . . . . . . . . 10 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → 𝑁 = 𝐾)
35 nn0cn 12349 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ0𝑁 ∈ ℂ)
36353ad2ant3 1135 . . . . . . . . . . . 12 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑁 ∈ ℂ)
37 nn0cn 12349 . . . . . . . . . . . . 13 (𝐾 ∈ ℕ0𝐾 ∈ ℂ)
38373ad2ant2 1134 . . . . . . . . . . . 12 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐾 ∈ ℂ)
3936, 38subeq0ad 11448 . . . . . . . . . . 11 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((𝑁𝐾) = 0 ↔ 𝑁 = 𝐾))
4039adantr 482 . . . . . . . . . 10 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → ((𝑁𝐾) = 0 ↔ 𝑁 = 𝐾))
4134, 40mpbird 257 . . . . . . . . 9 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (𝑁𝐾) = 0)
4241oveq2d 7358 . . . . . . . 8 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (𝐵↑(𝑁𝐾)) = (𝐵↑0))
431exp0d 13964 . . . . . . . . . 10 (𝐵 ∈ (ℤ‘2) → (𝐵↑0) = 1)
44433ad2ant1 1133 . . . . . . . . 9 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐵↑0) = 1)
4544adantr 482 . . . . . . . 8 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (𝐵↑0) = 1)
4642, 45eqtrd 2777 . . . . . . 7 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (𝐵↑(𝑁𝐾)) = 1)
4746fveq2d 6834 . . . . . 6 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (⌊‘(𝐵↑(𝑁𝐾))) = (⌊‘1))
48 1zzd 12457 . . . . . . 7 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → 1 ∈ ℤ)
49 flid 13634 . . . . . . 7 (1 ∈ ℤ → (⌊‘1) = 1)
5048, 49syl 17 . . . . . 6 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (⌊‘1) = 1)
5147, 50eqtrd 2777 . . . . 5 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (⌊‘(𝐵↑(𝑁𝐾))) = 1)
5251oveq1d 7357 . . . 4 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵) = (1 mod 𝐵))
53 eluz2gt1 12766 . . . . . . 7 (𝐵 ∈ (ℤ‘2) → 1 < 𝐵)
54 1mod 13729 . . . . . . 7 ((𝐵 ∈ ℝ ∧ 1 < 𝐵) → (1 mod 𝐵) = 1)
5518, 53, 54syl2anc 585 . . . . . 6 (𝐵 ∈ (ℤ‘2) → (1 mod 𝐵) = 1)
56553ad2ant1 1133 . . . . 5 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (1 mod 𝐵) = 1)
5756adantr 482 . . . 4 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → (1 mod 𝐵) = 1)
5852, 57eqtr2d 2778 . . 3 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ 𝐾 = 𝑁) → 1 = ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵))
59 simprl1 1218 . . . . . . . . 9 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → 𝐵 ∈ (ℤ‘2))
607adantl 483 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑁 ∈ ℤ)
616adantr 482 . . . . . . . . . . . 12 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐾 ∈ ℤ)
6260, 61zsubcld 12537 . . . . . . . . . . 11 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑁𝐾) ∈ ℤ)
63623adant1 1130 . . . . . . . . . 10 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑁𝐾) ∈ ℤ)
6463ad2antrl 726 . . . . . . . . 9 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝑁𝐾) ∈ ℤ)
65 nn0re 12348 . . . . . . . . . . . . . 14 (𝑁 ∈ ℕ0𝑁 ∈ ℝ)
66653ad2ant3 1135 . . . . . . . . . . . . 13 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝑁 ∈ ℝ)
67 nn0re 12348 . . . . . . . . . . . . . 14 (𝐾 ∈ ℕ0𝐾 ∈ ℝ)
68673ad2ant2 1134 . . . . . . . . . . . . 13 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐾 ∈ ℝ)
6966, 68sublt0d 11707 . . . . . . . . . . . 12 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((𝑁𝐾) < 0 ↔ 𝑁 < 𝐾))
7069biimprd 248 . . . . . . . . . . 11 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝑁 < 𝐾 → (𝑁𝐾) < 0))
7170adantr 482 . . . . . . . . . 10 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁) → (𝑁 < 𝐾 → (𝑁𝐾) < 0))
7271impcom 409 . . . . . . . . 9 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝑁𝐾) < 0)
73 expnegico01 46275 . . . . . . . . 9 ((𝐵 ∈ (ℤ‘2) ∧ (𝑁𝐾) ∈ ℤ ∧ (𝑁𝐾) < 0) → (𝐵↑(𝑁𝐾)) ∈ (0[,)1))
7459, 64, 72, 73syl3anc 1371 . . . . . . . 8 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐵↑(𝑁𝐾)) ∈ (0[,)1))
75 ico01fl0 13645 . . . . . . . 8 ((𝐵↑(𝑁𝐾)) ∈ (0[,)1) → (⌊‘(𝐵↑(𝑁𝐾))) = 0)
7674, 75syl 17 . . . . . . 7 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (⌊‘(𝐵↑(𝑁𝐾))) = 0)
7776oveq1d 7357 . . . . . 6 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵) = (0 mod 𝐵))
782nnrpd 12876 . . . . . . . . 9 (𝐵 ∈ (ℤ‘2) → 𝐵 ∈ ℝ+)
79 0mod 13728 . . . . . . . . 9 (𝐵 ∈ ℝ+ → (0 mod 𝐵) = 0)
8078, 79syl 17 . . . . . . . 8 (𝐵 ∈ (ℤ‘2) → (0 mod 𝐵) = 0)
81803ad2ant1 1133 . . . . . . 7 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (0 mod 𝐵) = 0)
8281ad2antrl 726 . . . . . 6 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (0 mod 𝐵) = 0)
8377, 82eqtrd 2777 . . . . 5 ((𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵) = 0)
84 eluzelz 12698 . . . . . . . . . . 11 (𝐵 ∈ (ℤ‘2) → 𝐵 ∈ ℤ)
85843ad2ant1 1133 . . . . . . . . . 10 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐵 ∈ ℤ)
8685ad2antrl 726 . . . . . . . . 9 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → 𝐵 ∈ ℤ)
8767, 65anim12i 614 . . . . . . . . . . . . . . 15 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾 ∈ ℝ ∧ 𝑁 ∈ ℝ))
88 lenlt 11159 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝐾𝑁 ↔ ¬ 𝑁 < 𝐾))
8988bicomd 222 . . . . . . . . . . . . . . 15 ((𝐾 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (¬ 𝑁 < 𝐾𝐾𝑁))
9087, 89syl 17 . . . . . . . . . . . . . 14 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (¬ 𝑁 < 𝐾𝐾𝑁))
9190biimpd 228 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (¬ 𝑁 < 𝐾𝐾𝑁))
92913adant1 1130 . . . . . . . . . . . 12 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (¬ 𝑁 < 𝐾𝐾𝑁))
9392adantr 482 . . . . . . . . . . 11 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁) → (¬ 𝑁 < 𝐾𝐾𝑁))
9493impcom 409 . . . . . . . . . 10 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → 𝐾𝑁)
95 3simpc 1150 . . . . . . . . . . . 12 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾 ∈ ℕ0𝑁 ∈ ℕ0))
9695ad2antrl 726 . . . . . . . . . . 11 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐾 ∈ ℕ0𝑁 ∈ ℕ0))
97 nn0sub 12389 . . . . . . . . . . 11 ((𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾𝑁 ↔ (𝑁𝐾) ∈ ℕ0))
9896, 97syl 17 . . . . . . . . . 10 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐾𝑁 ↔ (𝑁𝐾) ∈ ℕ0))
9994, 98mpbid 231 . . . . . . . . 9 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝑁𝐾) ∈ ℕ0)
100 zexpcl 13903 . . . . . . . . 9 ((𝐵 ∈ ℤ ∧ (𝑁𝐾) ∈ ℕ0) → (𝐵↑(𝑁𝐾)) ∈ ℤ)
10186, 99, 100syl2anc 585 . . . . . . . 8 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐵↑(𝑁𝐾)) ∈ ℤ)
102 flid 13634 . . . . . . . 8 ((𝐵↑(𝑁𝐾)) ∈ ℤ → (⌊‘(𝐵↑(𝑁𝐾))) = (𝐵↑(𝑁𝐾)))
103101, 102syl 17 . . . . . . 7 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (⌊‘(𝐵↑(𝑁𝐾))) = (𝐵↑(𝑁𝐾)))
104103oveq1d 7357 . . . . . 6 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵) = ((𝐵↑(𝑁𝐾)) mod 𝐵))
10513ad2ant1 1133 . . . . . . . . . . 11 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐵 ∈ ℂ)
10633ad2ant1 1133 . . . . . . . . . . 11 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐵 ≠ 0)
107105, 106, 63expm1d 13980 . . . . . . . . . 10 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐵↑((𝑁𝐾) − 1)) = ((𝐵↑(𝑁𝐾)) / 𝐵))
108107eqcomd 2743 . . . . . . . . 9 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((𝐵↑(𝑁𝐾)) / 𝐵) = (𝐵↑((𝑁𝐾) − 1)))
109108ad2antrl 726 . . . . . . . 8 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((𝐵↑(𝑁𝐾)) / 𝐵) = (𝐵↑((𝑁𝐾) − 1)))
110 pm4.56 987 . . . . . . . . . . . . . 14 ((¬ 𝐾 = 𝑁 ∧ ¬ 𝑁 < 𝐾) ↔ ¬ (𝐾 = 𝑁𝑁 < 𝐾))
111873adant1 1130 . . . . . . . . . . . . . . . 16 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾 ∈ ℝ ∧ 𝑁 ∈ ℝ))
112 axlttri 11152 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝐾 < 𝑁 ↔ ¬ (𝐾 = 𝑁𝑁 < 𝐾)))
113111, 112syl 17 . . . . . . . . . . . . . . 15 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾 < 𝑁 ↔ ¬ (𝐾 = 𝑁𝑁 < 𝐾)))
114113biimprd 248 . . . . . . . . . . . . . 14 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (¬ (𝐾 = 𝑁𝑁 < 𝐾) → 𝐾 < 𝑁))
115110, 114biimtrid 241 . . . . . . . . . . . . 13 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → ((¬ 𝐾 = 𝑁 ∧ ¬ 𝑁 < 𝐾) → 𝐾 < 𝑁))
116115expdimp 454 . . . . . . . . . . . 12 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁) → (¬ 𝑁 < 𝐾𝐾 < 𝑁))
117116impcom 409 . . . . . . . . . . 11 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → 𝐾 < 𝑁)
11883adant1 1130 . . . . . . . . . . . . 13 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾 ∈ ℤ ∧ 𝑁 ∈ ℤ))
119118ad2antrl 726 . . . . . . . . . . . 12 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐾 ∈ ℤ ∧ 𝑁 ∈ ℤ))
120 znnsub 12472 . . . . . . . . . . . 12 ((𝐾 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝐾 < 𝑁 ↔ (𝑁𝐾) ∈ ℕ))
121119, 120syl 17 . . . . . . . . . . 11 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐾 < 𝑁 ↔ (𝑁𝐾) ∈ ℕ))
122117, 121mpbid 231 . . . . . . . . . 10 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝑁𝐾) ∈ ℕ)
123 nnm1nn0 12380 . . . . . . . . . 10 ((𝑁𝐾) ∈ ℕ → ((𝑁𝐾) − 1) ∈ ℕ0)
124122, 123syl 17 . . . . . . . . 9 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((𝑁𝐾) − 1) ∈ ℕ0)
125 zexpcl 13903 . . . . . . . . 9 ((𝐵 ∈ ℤ ∧ ((𝑁𝐾) − 1) ∈ ℕ0) → (𝐵↑((𝑁𝐾) − 1)) ∈ ℤ)
12686, 124, 125syl2anc 585 . . . . . . . 8 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (𝐵↑((𝑁𝐾) − 1)) ∈ ℤ)
127109, 126eqeltrd 2838 . . . . . . 7 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((𝐵↑(𝑁𝐾)) / 𝐵) ∈ ℤ)
128183ad2ant1 1133 . . . . . . . . . 10 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐵 ∈ ℝ)
129128, 106, 63reexpclzd 14070 . . . . . . . . 9 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐵↑(𝑁𝐾)) ∈ ℝ)
130783ad2ant1 1133 . . . . . . . . 9 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → 𝐵 ∈ ℝ+)
131 mod0 13702 . . . . . . . . 9 (((𝐵↑(𝑁𝐾)) ∈ ℝ ∧ 𝐵 ∈ ℝ+) → (((𝐵↑(𝑁𝐾)) mod 𝐵) = 0 ↔ ((𝐵↑(𝑁𝐾)) / 𝐵) ∈ ℤ))
132129, 130, 131syl2anc 585 . . . . . . . 8 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (((𝐵↑(𝑁𝐾)) mod 𝐵) = 0 ↔ ((𝐵↑(𝑁𝐾)) / 𝐵) ∈ ℤ))
133132ad2antrl 726 . . . . . . 7 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → (((𝐵↑(𝑁𝐾)) mod 𝐵) = 0 ↔ ((𝐵↑(𝑁𝐾)) / 𝐵) ∈ ℤ))
134127, 133mpbird 257 . . . . . 6 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((𝐵↑(𝑁𝐾)) mod 𝐵) = 0)
135104, 134eqtrd 2777 . . . . 5 ((¬ 𝑁 < 𝐾 ∧ ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁)) → ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵) = 0)
13683, 135pm2.61ian 810 . . . 4 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁) → ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵) = 0)
137136eqcomd 2743 . . 3 (((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) ∧ ¬ 𝐾 = 𝑁) → 0 = ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵))
13858, 137ifeqda 4514 . 2 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → if(𝐾 = 𝑁, 1, 0) = ((⌊‘(𝐵↑(𝑁𝐾))) mod 𝐵))
13915, 32, 1383eqtr4d 2787 1 ((𝐵 ∈ (ℤ‘2) ∧ 𝐾 ∈ ℕ0𝑁 ∈ ℕ0) → (𝐾(digit‘𝐵)(𝐵𝑁)) = if(𝐾 = 𝑁, 1, 0))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 397  wo 845  w3a 1087   = wceq 1541  wcel 2106  wne 2941  ifcif 4478   class class class wbr 5097  cfv 6484  (class class class)co 7342  cc 10975  cr 10976  0cc0 10977  1c1 10978  +∞cpnf 11112   < clt 11115  cle 11116  cmin 11311   / cdiv 11738  cn 12079  2c2 12134  0cn0 12339  cz 12425  cuz 12688  +crp 12836  [,)cico 13187  cfl 13616   mod cmo 13695  cexp 13888  digitcdig 46357
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2708  ax-rep 5234  ax-sep 5248  ax-nul 5255  ax-pow 5313  ax-pr 5377  ax-un 7655  ax-cnex 11033  ax-resscn 11034  ax-1cn 11035  ax-icn 11036  ax-addcl 11037  ax-addrcl 11038  ax-mulcl 11039  ax-mulrcl 11040  ax-mulcom 11041  ax-addass 11042  ax-mulass 11043  ax-distr 11044  ax-i2m1 11045  ax-1ne0 11046  ax-1rid 11047  ax-rnegex 11048  ax-rrecex 11049  ax-cnre 11050  ax-pre-lttri 11051  ax-pre-lttrn 11052  ax-pre-ltadd 11053  ax-pre-mulgt0 11054  ax-pre-sup 11055
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3444  df-sbc 3732  df-csb 3848  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3921  df-nul 4275  df-if 4479  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4858  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5181  df-tr 5215  df-id 5523  df-eprel 5529  df-po 5537  df-so 5538  df-fr 5580  df-we 5582  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6243  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6436  df-fun 6486  df-fn 6487  df-f 6488  df-f1 6489  df-fo 6490  df-f1o 6491  df-fv 6492  df-riota 7298  df-ov 7345  df-oprab 7346  df-mpo 7347  df-om 7786  df-1st 7904  df-2nd 7905  df-frecs 8172  df-wrecs 8203  df-recs 8277  df-rdg 8316  df-er 8574  df-en 8810  df-dom 8811  df-sdom 8812  df-sup 9304  df-inf 9305  df-pnf 11117  df-mnf 11118  df-xr 11119  df-ltxr 11120  df-le 11121  df-sub 11313  df-neg 11314  df-div 11739  df-nn 12080  df-2 12142  df-n0 12340  df-z 12426  df-uz 12689  df-rp 12837  df-ico 13191  df-fl 13618  df-mod 13696  df-seq 13828  df-exp 13889  df-dig 46358
This theorem is referenced by:  dig1  46370
  Copyright terms: Public domain W3C validator