Proof of Theorem metakunt24
Step | Hyp | Ref
| Expression |
1 | | indir 4215 |
. . . 4
⊢
(((1...(𝐼 −
1)) ∪ (𝐼...(𝑀 − 1))) ∩ {𝑀}) = (((1...(𝐼 − 1)) ∩ {𝑀}) ∪ ((𝐼...(𝑀 − 1)) ∩ {𝑀})) |
2 | 1 | a1i 11 |
. . 3
⊢ (𝜑 → (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∩ {𝑀}) = (((1...(𝐼 − 1)) ∩ {𝑀}) ∪ ((𝐼...(𝑀 − 1)) ∩ {𝑀}))) |
3 | | metakunt24.1 |
. . . . . . . 8
⊢ (𝜑 → 𝑀 ∈ ℕ) |
4 | | metakunt24.2 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 ∈ ℕ) |
5 | | metakunt24.3 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 ≤ 𝑀) |
6 | 3, 4, 5 | metakunt18 40139 |
. . . . . . 7
⊢ (𝜑 → ((((1...(𝐼 − 1)) ∩ (𝐼...(𝑀 − 1))) = ∅ ∧ ((1...(𝐼 − 1)) ∩ {𝑀}) = ∅ ∧ ((𝐼...(𝑀 − 1)) ∩ {𝑀}) = ∅) ∧ (((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∩ (1...(𝑀 − 𝐼))) = ∅ ∧ ((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∩ {𝑀}) = ∅ ∧ ((1...(𝑀 − 𝐼)) ∩ {𝑀}) = ∅))) |
7 | 6 | simpld 495 |
. . . . . 6
⊢ (𝜑 → (((1...(𝐼 − 1)) ∩ (𝐼...(𝑀 − 1))) = ∅ ∧ ((1...(𝐼 − 1)) ∩ {𝑀}) = ∅ ∧ ((𝐼...(𝑀 − 1)) ∩ {𝑀}) = ∅)) |
8 | 7 | simp2d 1142 |
. . . . 5
⊢ (𝜑 → ((1...(𝐼 − 1)) ∩ {𝑀}) = ∅) |
9 | 7 | simp3d 1143 |
. . . . 5
⊢ (𝜑 → ((𝐼...(𝑀 − 1)) ∩ {𝑀}) = ∅) |
10 | 8, 9 | uneq12d 4103 |
. . . 4
⊢ (𝜑 → (((1...(𝐼 − 1)) ∩ {𝑀}) ∪ ((𝐼...(𝑀 − 1)) ∩ {𝑀})) = (∅ ∪
∅)) |
11 | | unidm 4091 |
. . . . 5
⊢ (∅
∪ ∅) = ∅ |
12 | 11 | a1i 11 |
. . . 4
⊢ (𝜑 → (∅ ∪ ∅) =
∅) |
13 | 10, 12 | eqtrd 2780 |
. . 3
⊢ (𝜑 → (((1...(𝐼 − 1)) ∩ {𝑀}) ∪ ((𝐼...(𝑀 − 1)) ∩ {𝑀})) = ∅) |
14 | 2, 13 | eqtrd 2780 |
. 2
⊢ (𝜑 → (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∩ {𝑀}) = ∅) |
15 | | 1zzd 12351 |
. . . . 5
⊢ (𝜑 → 1 ∈
ℤ) |
16 | 3 | nnzd 12424 |
. . . . 5
⊢ (𝜑 → 𝑀 ∈ ℤ) |
17 | 3 | nnge1d 12021 |
. . . . 5
⊢ (𝜑 → 1 ≤ 𝑀) |
18 | 3 | nnred 11988 |
. . . . . 6
⊢ (𝜑 → 𝑀 ∈ ℝ) |
19 | 18 | leidd 11541 |
. . . . 5
⊢ (𝜑 → 𝑀 ≤ 𝑀) |
20 | 15, 16, 16, 17, 19 | elfzd 13246 |
. . . 4
⊢ (𝜑 → 𝑀 ∈ (1...𝑀)) |
21 | 20 | fzsplitnd 39988 |
. . 3
⊢ (𝜑 → (1...𝑀) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑀))) |
22 | | oveq1 7278 |
. . . . . . . . . 10
⊢ (𝐼 = 𝑀 → (𝐼 − 1) = (𝑀 − 1)) |
23 | 22 | oveq2d 7287 |
. . . . . . . . 9
⊢ (𝐼 = 𝑀 → (1...(𝐼 − 1)) = (1...(𝑀 − 1))) |
24 | | oveq1 7278 |
. . . . . . . . 9
⊢ (𝐼 = 𝑀 → (𝐼...(𝑀 − 1)) = (𝑀...(𝑀 − 1))) |
25 | 23, 24 | uneq12d 4103 |
. . . . . . . 8
⊢ (𝐼 = 𝑀 → ((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) = ((1...(𝑀 − 1)) ∪ (𝑀...(𝑀 − 1)))) |
26 | 25 | uneq1d 4101 |
. . . . . . 7
⊢ (𝐼 = 𝑀 → (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀)) = (((1...(𝑀 − 1)) ∪ (𝑀...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
27 | 26 | adantl 482 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀)) = (((1...(𝑀 − 1)) ∪ (𝑀...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
28 | 18 | ltm1d 11907 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑀 − 1) < 𝑀) |
29 | 16, 15 | zsubcld 12430 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑀 − 1) ∈ ℤ) |
30 | | fzn 13271 |
. . . . . . . . . . . 12
⊢ ((𝑀 ∈ ℤ ∧ (𝑀 − 1) ∈ ℤ)
→ ((𝑀 − 1) <
𝑀 ↔ (𝑀...(𝑀 − 1)) = ∅)) |
31 | 16, 29, 30 | syl2anc 584 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑀 − 1) < 𝑀 ↔ (𝑀...(𝑀 − 1)) = ∅)) |
32 | 28, 31 | mpbid 231 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑀...(𝑀 − 1)) = ∅) |
33 | 32 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (𝑀...(𝑀 − 1)) = ∅) |
34 | 33 | uneq2d 4102 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...(𝑀 − 1)) ∪ (𝑀...(𝑀 − 1))) = ((1...(𝑀 − 1)) ∪
∅)) |
35 | | un0 4330 |
. . . . . . . . 9
⊢
((1...(𝑀 − 1))
∪ ∅) = (1...(𝑀
− 1)) |
36 | 35 | a1i 11 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...(𝑀 − 1)) ∪ ∅) = (1...(𝑀 − 1))) |
37 | 34, 36 | eqtrd 2780 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...(𝑀 − 1)) ∪ (𝑀...(𝑀 − 1))) = (1...(𝑀 − 1))) |
38 | 37 | uneq1d 4101 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (((1...(𝑀 − 1)) ∪ (𝑀...(𝑀 − 1))) ∪ (𝑀...𝑀)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑀))) |
39 | 27, 38 | eqtrd 2780 |
. . . . 5
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀)) = ((1...(𝑀 − 1)) ∪ (𝑀...𝑀))) |
40 | 39 | eqcomd 2746 |
. . . 4
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...(𝑀 − 1)) ∪ (𝑀...𝑀)) = (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
41 | 15 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 1 ∈ ℤ) |
42 | 16 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝑀 ∈ ℤ) |
43 | 42, 41 | zsubcld 12430 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (𝑀 − 1) ∈ ℤ) |
44 | 4 | nnzd 12424 |
. . . . . . 7
⊢ (𝜑 → 𝐼 ∈ ℤ) |
45 | 44 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝐼 ∈ ℤ) |
46 | 4 | nnge1d 12021 |
. . . . . . 7
⊢ (𝜑 → 1 ≤ 𝐼) |
47 | 46 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 1 ≤ 𝐼) |
48 | | eqid 2740 |
. . . . . . . . . . 11
⊢ 𝑀 = 𝑀 |
49 | | eqeq1 2744 |
. . . . . . . . . . 11
⊢ (𝑀 = 𝐼 → (𝑀 = 𝑀 ↔ 𝐼 = 𝑀)) |
50 | 48, 49 | mpbii 232 |
. . . . . . . . . 10
⊢ (𝑀 = 𝐼 → 𝐼 = 𝑀) |
51 | 50 | necon3bi 2972 |
. . . . . . . . 9
⊢ (¬
𝐼 = 𝑀 → 𝑀 ≠ 𝐼) |
52 | 51 | adantl 482 |
. . . . . . . 8
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝑀 ≠ 𝐼) |
53 | 4 | nnred 11988 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐼 ∈ ℝ) |
54 | 53, 18, 5 | leltned 11128 |
. . . . . . . . 9
⊢ (𝜑 → (𝐼 < 𝑀 ↔ 𝑀 ≠ 𝐼)) |
55 | 54 | adantr 481 |
. . . . . . . 8
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (𝐼 < 𝑀 ↔ 𝑀 ≠ 𝐼)) |
56 | 52, 55 | mpbird 256 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝐼 < 𝑀) |
57 | | zltlem1 12373 |
. . . . . . . . 9
⊢ ((𝐼 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝐼 < 𝑀 ↔ 𝐼 ≤ (𝑀 − 1))) |
58 | 44, 16, 57 | syl2anc 584 |
. . . . . . . 8
⊢ (𝜑 → (𝐼 < 𝑀 ↔ 𝐼 ≤ (𝑀 − 1))) |
59 | 58 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (𝐼 < 𝑀 ↔ 𝐼 ≤ (𝑀 − 1))) |
60 | 56, 59 | mpbid 231 |
. . . . . 6
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝐼 ≤ (𝑀 − 1)) |
61 | 41, 43, 45, 47, 60 | fzsplitnr 39989 |
. . . . 5
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (1...(𝑀 − 1)) = ((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1)))) |
62 | 61 | uneq1d 4101 |
. . . 4
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → ((1...(𝑀 − 1)) ∪ (𝑀...𝑀)) = (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
63 | 40, 62 | pm2.61dan 810 |
. . 3
⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (𝑀...𝑀)) = (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
64 | | fzsn 13297 |
. . . . 5
⊢ (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀}) |
65 | 16, 64 | syl 17 |
. . . 4
⊢ (𝜑 → (𝑀...𝑀) = {𝑀}) |
66 | 65 | uneq2d 4102 |
. . 3
⊢ (𝜑 → (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ (𝑀...𝑀)) = (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ {𝑀})) |
67 | 21, 63, 66 | 3eqtrd 2784 |
. 2
⊢ (𝜑 → (1...𝑀) = (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ {𝑀})) |
68 | | uncom 4092 |
. . . . . 6
⊢ ((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∪ (1...(𝑀 − 𝐼))) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) |
69 | 68 | a1i 11 |
. . . . 5
⊢ (𝜑 → ((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∪ (1...(𝑀 − 𝐼))) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1)))) |
70 | 69 | uneq1d 4101 |
. . . 4
⊢ (𝜑 → (((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∪ (1...(𝑀 − 𝐼))) ∪ {𝑀}) = (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ {𝑀})) |
71 | 65 | uneq2d 4102 |
. . . . . 6
⊢ (𝜑 → (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ (𝑀...𝑀)) = (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ {𝑀})) |
72 | 71 | eqcomd 2746 |
. . . . 5
⊢ (𝜑 → (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ {𝑀}) = (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
73 | | fz10 13276 |
. . . . . . . . . . . . . . 15
⊢ (1...0) =
∅ |
74 | 73 | uneq1i 4098 |
. . . . . . . . . . . . . 14
⊢ ((1...0)
∪ (1...(𝑀 − 1)))
= (∅ ∪ (1...(𝑀
− 1))) |
75 | 74 | a1i 11 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((1...0) ∪ (1...(𝑀 − 1))) = (∅ ∪
(1...(𝑀 −
1)))) |
76 | 75 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...0) ∪ (1...(𝑀 − 1))) = (∅ ∪
(1...(𝑀 −
1)))) |
77 | | uncom 4092 |
. . . . . . . . . . . . . . 15
⊢
((1...(𝑀 − 1))
∪ ∅) = (∅ ∪ (1...(𝑀 − 1))) |
78 | 77 | eqeq1i 2745 |
. . . . . . . . . . . . . 14
⊢
(((1...(𝑀 −
1)) ∪ ∅) = (1...(𝑀 − 1)) ↔ (∅ ∪
(1...(𝑀 − 1))) =
(1...(𝑀 −
1))) |
79 | 78 | imbi2i 336 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝐼 = 𝑀) → ((1...(𝑀 − 1)) ∪ ∅) = (1...(𝑀 − 1))) ↔ ((𝜑 ∧ 𝐼 = 𝑀) → (∅ ∪ (1...(𝑀 − 1))) = (1...(𝑀 − 1)))) |
80 | 36, 79 | mpbi 229 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (∅ ∪ (1...(𝑀 − 1))) = (1...(𝑀 − 1))) |
81 | 76, 80 | eqtrd 2780 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...0) ∪ (1...(𝑀 − 1))) = (1...(𝑀 − 1))) |
82 | 81 | eqcomd 2746 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (1...(𝑀 − 1)) = ((1...0) ∪ (1...(𝑀 − 1)))) |
83 | | oveq2 7279 |
. . . . . . . . . . . . . . 15
⊢ (𝐼 = 𝑀 → (𝑀 − 𝐼) = (𝑀 − 𝑀)) |
84 | 83 | adantl 482 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (𝑀 − 𝐼) = (𝑀 − 𝑀)) |
85 | 18 | recnd 11004 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 𝑀 ∈ ℂ) |
86 | 85 | subidd 11320 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝑀 − 𝑀) = 0) |
87 | 86 | adantr 481 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (𝑀 − 𝑀) = 0) |
88 | 84, 87 | eqtrd 2780 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (𝑀 − 𝐼) = 0) |
89 | 88 | oveq2d 7287 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (1...(𝑀 − 𝐼)) = (1...0)) |
90 | 83 | oveq1d 7286 |
. . . . . . . . . . . . . . . 16
⊢ (𝐼 = 𝑀 → ((𝑀 − 𝐼) + 1) = ((𝑀 − 𝑀) + 1)) |
91 | 90 | adantl 482 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((𝑀 − 𝐼) + 1) = ((𝑀 − 𝑀) + 1)) |
92 | 87 | oveq1d 7286 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((𝑀 − 𝑀) + 1) = (0 + 1)) |
93 | 91, 92 | eqtrd 2780 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((𝑀 − 𝐼) + 1) = (0 + 1)) |
94 | | 1e0p1 12478 |
. . . . . . . . . . . . . 14
⊢ 1 = (0 +
1) |
95 | 93, 94 | eqtr4di 2798 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((𝑀 − 𝐼) + 1) = 1) |
96 | 95 | oveq1d 7286 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (((𝑀 − 𝐼) + 1)...(𝑀 − 1)) = (1...(𝑀 − 1))) |
97 | 89, 96 | uneq12d 4103 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) = ((1...0) ∪ (1...(𝑀 − 1)))) |
98 | 97 | eqcomd 2746 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → ((1...0) ∪ (1...(𝑀 − 1))) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1)))) |
99 | 82, 98 | eqtrd 2780 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝐼 = 𝑀) → (1...(𝑀 − 1)) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1)))) |
100 | 42, 45 | zsubcld 12430 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (𝑀 − 𝐼) ∈ ℤ) |
101 | 53 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝐼 ∈ ℝ) |
102 | 18 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 𝑀 ∈ ℝ) |
103 | | 1red 10977 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 1 ∈ ℝ) |
104 | 101, 102,
103, 60 | lesubd 11579 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → 1 ≤ (𝑀 − 𝐼)) |
105 | 103, 101,
102, 47 | lesub2dd 11592 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (𝑀 − 𝐼) ≤ (𝑀 − 1)) |
106 | 41, 43, 100, 104, 105 | elfzd 13246 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (𝑀 − 𝐼) ∈ (1...(𝑀 − 1))) |
107 | | fzsplit 13281 |
. . . . . . . . . 10
⊢ ((𝑀 − 𝐼) ∈ (1...(𝑀 − 1)) → (1...(𝑀 − 1)) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1)))) |
108 | 106, 107 | syl 17 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ¬ 𝐼 = 𝑀) → (1...(𝑀 − 1)) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1)))) |
109 | 99, 108 | pm2.61dan 810 |
. . . . . . . 8
⊢ (𝜑 → (1...(𝑀 − 1)) = ((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1)))) |
110 | 109 | uneq1d 4101 |
. . . . . . 7
⊢ (𝜑 → ((1...(𝑀 − 1)) ∪ (𝑀...𝑀)) = (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
111 | 21, 110 | eqtrd 2780 |
. . . . . 6
⊢ (𝜑 → (1...𝑀) = (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ (𝑀...𝑀))) |
112 | 111 | eqcomd 2746 |
. . . . 5
⊢ (𝜑 → (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ (𝑀...𝑀)) = (1...𝑀)) |
113 | 72, 112 | eqtrd 2780 |
. . . 4
⊢ (𝜑 → (((1...(𝑀 − 𝐼)) ∪ (((𝑀 − 𝐼) + 1)...(𝑀 − 1))) ∪ {𝑀}) = (1...𝑀)) |
114 | 70, 113 | eqtrd 2780 |
. . 3
⊢ (𝜑 → (((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∪ (1...(𝑀 − 𝐼))) ∪ {𝑀}) = (1...𝑀)) |
115 | 114 | eqcomd 2746 |
. 2
⊢ (𝜑 → (1...𝑀) = (((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∪ (1...(𝑀 − 𝐼))) ∪ {𝑀})) |
116 | 14, 67, 115 | 3jca 1127 |
1
⊢ (𝜑 → ((((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∩ {𝑀}) = ∅ ∧ (1...𝑀) = (((1...(𝐼 − 1)) ∪ (𝐼...(𝑀 − 1))) ∪ {𝑀}) ∧ (1...𝑀) = (((((𝑀 − 𝐼) + 1)...(𝑀 − 1)) ∪ (1...(𝑀 − 𝐼))) ∪ {𝑀}))) |