| Step |
Hyp |
Ref |
Expression |
| 1 |
|
elfzoelz |
⊢ ( 𝐴 ∈ ( 1 ..^ 𝐵 ) → 𝐴 ∈ ℤ ) |
| 2 |
|
elfzoelz |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → 𝐵 ∈ ℤ ) |
| 3 |
|
zmulcl |
⊢ ( ( 𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ) → ( 𝐴 · 𝐵 ) ∈ ℤ ) |
| 4 |
1 2 3
|
syl2an |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( 𝐴 · 𝐵 ) ∈ ℤ ) |
| 5 |
|
elfzo2 |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) ↔ ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ∧ 𝑁 ∈ ℤ ∧ 𝐵 < 𝑁 ) ) |
| 6 |
|
elnnuz |
⊢ ( 𝐵 ∈ ℕ ↔ 𝐵 ∈ ( ℤ≥ ‘ 1 ) ) |
| 7 |
|
nnnn0 |
⊢ ( 𝐵 ∈ ℕ → 𝐵 ∈ ℕ0 ) |
| 8 |
6 7
|
sylbir |
⊢ ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) → 𝐵 ∈ ℕ0 ) |
| 9 |
8
|
3ad2ant1 |
⊢ ( ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ∧ 𝑁 ∈ ℤ ∧ 𝐵 < 𝑁 ) → 𝐵 ∈ ℕ0 ) |
| 10 |
5 9
|
sylbi |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → 𝐵 ∈ ℕ0 ) |
| 11 |
10
|
adantl |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → 𝐵 ∈ ℕ0 ) |
| 12 |
11
|
faccld |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( ! ‘ 𝐵 ) ∈ ℕ ) |
| 13 |
12
|
nnzd |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( ! ‘ 𝐵 ) ∈ ℤ ) |
| 14 |
|
simp2 |
⊢ ( ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ∧ 𝑁 ∈ ℤ ∧ 𝐵 < 𝑁 ) → 𝑁 ∈ ℤ ) |
| 15 |
|
eluz2 |
⊢ ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ↔ ( 1 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 1 ≤ 𝐵 ) ) |
| 16 |
|
1red |
⊢ ( ( 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℤ ) → 1 ∈ ℝ ) |
| 17 |
|
zre |
⊢ ( 𝐵 ∈ ℤ → 𝐵 ∈ ℝ ) |
| 18 |
17
|
adantr |
⊢ ( ( 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℤ ) → 𝐵 ∈ ℝ ) |
| 19 |
|
zre |
⊢ ( 𝑁 ∈ ℤ → 𝑁 ∈ ℝ ) |
| 20 |
19
|
adantl |
⊢ ( ( 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℤ ) → 𝑁 ∈ ℝ ) |
| 21 |
|
lelttr |
⊢ ( ( 1 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑁 ∈ ℝ ) → ( ( 1 ≤ 𝐵 ∧ 𝐵 < 𝑁 ) → 1 < 𝑁 ) ) |
| 22 |
16 18 20 21
|
syl3anc |
⊢ ( ( 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℤ ) → ( ( 1 ≤ 𝐵 ∧ 𝐵 < 𝑁 ) → 1 < 𝑁 ) ) |
| 23 |
|
0lt1 |
⊢ 0 < 1 |
| 24 |
|
0red |
⊢ ( 𝑁 ∈ ℤ → 0 ∈ ℝ ) |
| 25 |
|
1red |
⊢ ( 𝑁 ∈ ℤ → 1 ∈ ℝ ) |
| 26 |
|
lttr |
⊢ ( ( 0 ∈ ℝ ∧ 1 ∈ ℝ ∧ 𝑁 ∈ ℝ ) → ( ( 0 < 1 ∧ 1 < 𝑁 ) → 0 < 𝑁 ) ) |
| 27 |
24 25 19 26
|
syl3anc |
⊢ ( 𝑁 ∈ ℤ → ( ( 0 < 1 ∧ 1 < 𝑁 ) → 0 < 𝑁 ) ) |
| 28 |
23 27
|
mpani |
⊢ ( 𝑁 ∈ ℤ → ( 1 < 𝑁 → 0 < 𝑁 ) ) |
| 29 |
28
|
adantl |
⊢ ( ( 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℤ ) → ( 1 < 𝑁 → 0 < 𝑁 ) ) |
| 30 |
22 29
|
syld |
⊢ ( ( 𝐵 ∈ ℤ ∧ 𝑁 ∈ ℤ ) → ( ( 1 ≤ 𝐵 ∧ 𝐵 < 𝑁 ) → 0 < 𝑁 ) ) |
| 31 |
30
|
exp4b |
⊢ ( 𝐵 ∈ ℤ → ( 𝑁 ∈ ℤ → ( 1 ≤ 𝐵 → ( 𝐵 < 𝑁 → 0 < 𝑁 ) ) ) ) |
| 32 |
31
|
com23 |
⊢ ( 𝐵 ∈ ℤ → ( 1 ≤ 𝐵 → ( 𝑁 ∈ ℤ → ( 𝐵 < 𝑁 → 0 < 𝑁 ) ) ) ) |
| 33 |
32
|
a1i |
⊢ ( 1 ∈ ℤ → ( 𝐵 ∈ ℤ → ( 1 ≤ 𝐵 → ( 𝑁 ∈ ℤ → ( 𝐵 < 𝑁 → 0 < 𝑁 ) ) ) ) ) |
| 34 |
33
|
3imp |
⊢ ( ( 1 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 1 ≤ 𝐵 ) → ( 𝑁 ∈ ℤ → ( 𝐵 < 𝑁 → 0 < 𝑁 ) ) ) |
| 35 |
15 34
|
sylbi |
⊢ ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) → ( 𝑁 ∈ ℤ → ( 𝐵 < 𝑁 → 0 < 𝑁 ) ) ) |
| 36 |
35
|
3imp |
⊢ ( ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ∧ 𝑁 ∈ ℤ ∧ 𝐵 < 𝑁 ) → 0 < 𝑁 ) |
| 37 |
|
elnnz |
⊢ ( 𝑁 ∈ ℕ ↔ ( 𝑁 ∈ ℤ ∧ 0 < 𝑁 ) ) |
| 38 |
14 36 37
|
sylanbrc |
⊢ ( ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ∧ 𝑁 ∈ ℤ ∧ 𝐵 < 𝑁 ) → 𝑁 ∈ ℕ ) |
| 39 |
|
nnm1nn0 |
⊢ ( 𝑁 ∈ ℕ → ( 𝑁 − 1 ) ∈ ℕ0 ) |
| 40 |
38 39
|
syl |
⊢ ( ( 𝐵 ∈ ( ℤ≥ ‘ 1 ) ∧ 𝑁 ∈ ℤ ∧ 𝐵 < 𝑁 ) → ( 𝑁 − 1 ) ∈ ℕ0 ) |
| 41 |
5 40
|
sylbi |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → ( 𝑁 − 1 ) ∈ ℕ0 ) |
| 42 |
41
|
adantl |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( 𝑁 − 1 ) ∈ ℕ0 ) |
| 43 |
42
|
faccld |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( ! ‘ ( 𝑁 − 1 ) ) ∈ ℕ ) |
| 44 |
43
|
nnzd |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( ! ‘ ( 𝑁 − 1 ) ) ∈ ℤ ) |
| 45 |
|
muldvdsfacgt |
⊢ ( 𝐴 ∈ ( 1 ..^ 𝐵 ) → ( 𝐴 · 𝐵 ) ∥ ( ! ‘ 𝐵 ) ) |
| 46 |
45
|
adantr |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( 𝐴 · 𝐵 ) ∥ ( ! ‘ 𝐵 ) ) |
| 47 |
|
1eluzge0 |
⊢ 1 ∈ ( ℤ≥ ‘ 0 ) |
| 48 |
|
fzoss1 |
⊢ ( 1 ∈ ( ℤ≥ ‘ 0 ) → ( 1 ..^ 𝑁 ) ⊆ ( 0 ..^ 𝑁 ) ) |
| 49 |
48
|
sseld |
⊢ ( 1 ∈ ( ℤ≥ ‘ 0 ) → ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → 𝐵 ∈ ( 0 ..^ 𝑁 ) ) ) |
| 50 |
47 49
|
ax-mp |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → 𝐵 ∈ ( 0 ..^ 𝑁 ) ) |
| 51 |
|
elfzoel2 |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → 𝑁 ∈ ℤ ) |
| 52 |
|
fzoval |
⊢ ( 𝑁 ∈ ℤ → ( 0 ..^ 𝑁 ) = ( 0 ... ( 𝑁 − 1 ) ) ) |
| 53 |
52
|
eleq2d |
⊢ ( 𝑁 ∈ ℤ → ( 𝐵 ∈ ( 0 ..^ 𝑁 ) ↔ 𝐵 ∈ ( 0 ... ( 𝑁 − 1 ) ) ) ) |
| 54 |
51 53
|
syl |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → ( 𝐵 ∈ ( 0 ..^ 𝑁 ) ↔ 𝐵 ∈ ( 0 ... ( 𝑁 − 1 ) ) ) ) |
| 55 |
50 54
|
mpbid |
⊢ ( 𝐵 ∈ ( 1 ..^ 𝑁 ) → 𝐵 ∈ ( 0 ... ( 𝑁 − 1 ) ) ) |
| 56 |
55
|
adantl |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → 𝐵 ∈ ( 0 ... ( 𝑁 − 1 ) ) ) |
| 57 |
|
facnn0dvdsfac |
⊢ ( 𝐵 ∈ ( 0 ... ( 𝑁 − 1 ) ) → ( ! ‘ 𝐵 ) ∥ ( ! ‘ ( 𝑁 − 1 ) ) ) |
| 58 |
56 57
|
syl |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( ! ‘ 𝐵 ) ∥ ( ! ‘ ( 𝑁 − 1 ) ) ) |
| 59 |
4 13 44 46 58
|
dvdstrd |
⊢ ( ( 𝐴 ∈ ( 1 ..^ 𝐵 ) ∧ 𝐵 ∈ ( 1 ..^ 𝑁 ) ) → ( 𝐴 · 𝐵 ) ∥ ( ! ‘ ( 𝑁 − 1 ) ) ) |