Step | Hyp | Ref
| Expression |
1 | | subfacp1lem.a |
. . . . . . . 8
⊢ 𝐴 = {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} |
2 | | fzfi 12771 |
. . . . . . . . 9
⊢
(1...(𝑁 + 1)) ∈
Fin |
3 | | deranglem 31148 |
. . . . . . . . 9
⊢
((1...(𝑁 + 1))
∈ Fin → {𝑓
∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ∈ Fin) |
4 | 2, 3 | ax-mp 5 |
. . . . . . . 8
⊢ {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ∈ Fin |
5 | 1, 4 | eqeltri 2697 |
. . . . . . 7
⊢ 𝐴 ∈ Fin |
6 | | subfacp1lem3.b |
. . . . . . . 8
⊢ 𝐵 = {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1)} |
7 | | ssrab2 3687 |
. . . . . . . 8
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1)} ⊆ 𝐴 |
8 | 6, 7 | eqsstri 3635 |
. . . . . . 7
⊢ 𝐵 ⊆ 𝐴 |
9 | | ssfi 8180 |
. . . . . . 7
⊢ ((𝐴 ∈ Fin ∧ 𝐵 ⊆ 𝐴) → 𝐵 ∈ Fin) |
10 | 5, 8, 9 | mp2an 708 |
. . . . . 6
⊢ 𝐵 ∈ Fin |
11 | 10 | elexi 3213 |
. . . . 5
⊢ 𝐵 ∈ V |
12 | 11 | a1i 11 |
. . . 4
⊢ (𝜑 → 𝐵 ∈ V) |
13 | | subfacp1lem3.c |
. . . . . . 7
⊢ 𝐶 = {𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)} |
14 | | subfacp1lem1.k |
. . . . . . . . 9
⊢ 𝐾 = ((2...(𝑁 + 1)) ∖ {𝑀}) |
15 | | fzfi 12771 |
. . . . . . . . . 10
⊢
(2...(𝑁 + 1)) ∈
Fin |
16 | | diffi 8192 |
. . . . . . . . . 10
⊢
((2...(𝑁 + 1))
∈ Fin → ((2...(𝑁
+ 1)) ∖ {𝑀}) ∈
Fin) |
17 | 15, 16 | ax-mp 5 |
. . . . . . . . 9
⊢
((2...(𝑁 + 1))
∖ {𝑀}) ∈
Fin |
18 | 14, 17 | eqeltri 2697 |
. . . . . . . 8
⊢ 𝐾 ∈ Fin |
19 | | deranglem 31148 |
. . . . . . . 8
⊢ (𝐾 ∈ Fin → {𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)} ∈ Fin) |
20 | 18, 19 | ax-mp 5 |
. . . . . . 7
⊢ {𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)} ∈ Fin |
21 | 13, 20 | eqeltri 2697 |
. . . . . 6
⊢ 𝐶 ∈ Fin |
22 | 21 | elexi 3213 |
. . . . 5
⊢ 𝐶 ∈ V |
23 | 22 | a1i 11 |
. . . 4
⊢ (𝜑 → 𝐶 ∈ V) |
24 | | simpr 477 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝐵) |
25 | | fveq1 6190 |
. . . . . . . . . . . . . . . 16
⊢ (𝑔 = 𝑏 → (𝑔‘1) = (𝑏‘1)) |
26 | 25 | eqeq1d 2624 |
. . . . . . . . . . . . . . 15
⊢ (𝑔 = 𝑏 → ((𝑔‘1) = 𝑀 ↔ (𝑏‘1) = 𝑀)) |
27 | | fveq1 6190 |
. . . . . . . . . . . . . . . 16
⊢ (𝑔 = 𝑏 → (𝑔‘𝑀) = (𝑏‘𝑀)) |
28 | 27 | eqeq1d 2624 |
. . . . . . . . . . . . . . 15
⊢ (𝑔 = 𝑏 → ((𝑔‘𝑀) = 1 ↔ (𝑏‘𝑀) = 1)) |
29 | 26, 28 | anbi12d 747 |
. . . . . . . . . . . . . 14
⊢ (𝑔 = 𝑏 → (((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1) ↔ ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1))) |
30 | 29, 6 | elrab2 3366 |
. . . . . . . . . . . . 13
⊢ (𝑏 ∈ 𝐵 ↔ (𝑏 ∈ 𝐴 ∧ ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1))) |
31 | 24, 30 | sylib 208 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ∈ 𝐴 ∧ ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1))) |
32 | 31 | simpld 475 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝐴) |
33 | | vex 3203 |
. . . . . . . . . . . 12
⊢ 𝑏 ∈ V |
34 | | f1oeq1 6127 |
. . . . . . . . . . . . 13
⊢ (𝑓 = 𝑏 → (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))) |
35 | | fveq1 6190 |
. . . . . . . . . . . . . . 15
⊢ (𝑓 = 𝑏 → (𝑓‘𝑦) = (𝑏‘𝑦)) |
36 | 35 | neeq1d 2853 |
. . . . . . . . . . . . . 14
⊢ (𝑓 = 𝑏 → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑏‘𝑦) ≠ 𝑦)) |
37 | 36 | ralbidv 2986 |
. . . . . . . . . . . . 13
⊢ (𝑓 = 𝑏 → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦)) |
38 | 34, 37 | anbi12d 747 |
. . . . . . . . . . . 12
⊢ (𝑓 = 𝑏 → ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) ↔ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦))) |
39 | 33, 38, 1 | elab2 3354 |
. . . . . . . . . . 11
⊢ (𝑏 ∈ 𝐴 ↔ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦)) |
40 | 32, 39 | sylib 208 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦)) |
41 | 40 | simpld 475 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))) |
42 | | f1of1 6136 |
. . . . . . . . 9
⊢ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → 𝑏:(1...(𝑁 + 1))–1-1→(1...(𝑁 + 1))) |
43 | | df-f1 5893 |
. . . . . . . . . 10
⊢ (𝑏:(1...(𝑁 + 1))–1-1→(1...(𝑁 + 1)) ↔ (𝑏:(1...(𝑁 + 1))⟶(1...(𝑁 + 1)) ∧ Fun ◡𝑏)) |
44 | 43 | simprbi 480 |
. . . . . . . . 9
⊢ (𝑏:(1...(𝑁 + 1))–1-1→(1...(𝑁 + 1)) → Fun ◡𝑏) |
45 | 41, 42, 44 | 3syl 18 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → Fun ◡𝑏) |
46 | | f1ofn 6138 |
. . . . . . . . . . . 12
⊢ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → 𝑏 Fn (1...(𝑁 + 1))) |
47 | 41, 46 | syl 17 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 Fn (1...(𝑁 + 1))) |
48 | | fnresdm 6000 |
. . . . . . . . . . 11
⊢ (𝑏 Fn (1...(𝑁 + 1)) → (𝑏 ↾ (1...(𝑁 + 1))) = 𝑏) |
49 | | f1oeq1 6127 |
. . . . . . . . . . 11
⊢ ((𝑏 ↾ (1...(𝑁 + 1))) = 𝑏 → ((𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))) |
50 | 47, 48, 49 | 3syl 18 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))) |
51 | 41, 50 | mpbird 247 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))) |
52 | | f1ofo 6144 |
. . . . . . . . 9
⊢ ((𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–onto→(1...(𝑁 + 1))) |
53 | 51, 52 | syl 17 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–onto→(1...(𝑁 + 1))) |
54 | | ssun2 3777 |
. . . . . . . . . . . . 13
⊢ {1, 𝑀} ⊆ (𝐾 ∪ {1, 𝑀}) |
55 | | derang.d |
. . . . . . . . . . . . . . 15
⊢ 𝐷 = (𝑥 ∈ Fin ↦ (#‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)})) |
56 | | subfac.n |
. . . . . . . . . . . . . . 15
⊢ 𝑆 = (𝑛 ∈ ℕ0 ↦ (𝐷‘(1...𝑛))) |
57 | | subfacp1lem1.n |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑁 ∈ ℕ) |
58 | | subfacp1lem1.m |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑀 ∈ (2...(𝑁 + 1))) |
59 | | subfacp1lem1.x |
. . . . . . . . . . . . . . 15
⊢ 𝑀 ∈ V |
60 | 55, 56, 1, 57, 58, 59, 14 | subfacp1lem1 31161 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝐾 ∩ {1, 𝑀}) = ∅ ∧ (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1)) ∧ (#‘𝐾) = (𝑁 − 1))) |
61 | 60 | simp2d 1074 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1))) |
62 | 54, 61 | syl5sseq 3653 |
. . . . . . . . . . . 12
⊢ (𝜑 → {1, 𝑀} ⊆ (1...(𝑁 + 1))) |
63 | 62 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → {1, 𝑀} ⊆ (1...(𝑁 + 1))) |
64 | | fnssres 6004 |
. . . . . . . . . . 11
⊢ ((𝑏 Fn (1...(𝑁 + 1)) ∧ {1, 𝑀} ⊆ (1...(𝑁 + 1))) → (𝑏 ↾ {1, 𝑀}) Fn {1, 𝑀}) |
65 | 47, 63, 64 | syl2anc 693 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ {1, 𝑀}) Fn {1, 𝑀}) |
66 | 31 | simprd 479 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1)) |
67 | 66 | simpld 475 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘1) = 𝑀) |
68 | 59 | prid2 4298 |
. . . . . . . . . . . . 13
⊢ 𝑀 ∈ {1, 𝑀} |
69 | 67, 68 | syl6eqel 2709 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘1) ∈ {1, 𝑀}) |
70 | 66 | simprd 479 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘𝑀) = 1) |
71 | | 1ex 10035 |
. . . . . . . . . . . . . 14
⊢ 1 ∈
V |
72 | 71 | prid1 4297 |
. . . . . . . . . . . . 13
⊢ 1 ∈
{1, 𝑀} |
73 | 70, 72 | syl6eqel 2709 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘𝑀) ∈ {1, 𝑀}) |
74 | | fveq2 6191 |
. . . . . . . . . . . . . 14
⊢ (𝑥 = 1 → (𝑏‘𝑥) = (𝑏‘1)) |
75 | 74 | eleq1d 2686 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 1 → ((𝑏‘𝑥) ∈ {1, 𝑀} ↔ (𝑏‘1) ∈ {1, 𝑀})) |
76 | | fveq2 6191 |
. . . . . . . . . . . . . 14
⊢ (𝑥 = 𝑀 → (𝑏‘𝑥) = (𝑏‘𝑀)) |
77 | 76 | eleq1d 2686 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 𝑀 → ((𝑏‘𝑥) ∈ {1, 𝑀} ↔ (𝑏‘𝑀) ∈ {1, 𝑀})) |
78 | 71, 59, 75, 77 | ralpr 4238 |
. . . . . . . . . . . 12
⊢
(∀𝑥 ∈
{1, 𝑀} (𝑏‘𝑥) ∈ {1, 𝑀} ↔ ((𝑏‘1) ∈ {1, 𝑀} ∧ (𝑏‘𝑀) ∈ {1, 𝑀})) |
79 | 69, 73, 78 | sylanbrc 698 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀} (𝑏‘𝑥) ∈ {1, 𝑀}) |
80 | | fvres 6207 |
. . . . . . . . . . . . 13
⊢ (𝑥 ∈ {1, 𝑀} → ((𝑏 ↾ {1, 𝑀})‘𝑥) = (𝑏‘𝑥)) |
81 | 80 | eleq1d 2686 |
. . . . . . . . . . . 12
⊢ (𝑥 ∈ {1, 𝑀} → (((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀} ↔ (𝑏‘𝑥) ∈ {1, 𝑀})) |
82 | 81 | ralbiia 2979 |
. . . . . . . . . . 11
⊢
(∀𝑥 ∈
{1, 𝑀} ((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀} ↔ ∀𝑥 ∈ {1, 𝑀} (𝑏‘𝑥) ∈ {1, 𝑀}) |
83 | 79, 82 | sylibr 224 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀} ((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀}) |
84 | | ffnfv 6388 |
. . . . . . . . . 10
⊢ ((𝑏 ↾ {1, 𝑀}):{1, 𝑀}⟶{1, 𝑀} ↔ ((𝑏 ↾ {1, 𝑀}) Fn {1, 𝑀} ∧ ∀𝑥 ∈ {1, 𝑀} ((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀})) |
85 | 65, 83, 84 | sylanbrc 698 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ {1, 𝑀}):{1, 𝑀}⟶{1, 𝑀}) |
86 | | fveq2 6191 |
. . . . . . . . . . . . . 14
⊢ (𝑦 = 𝑀 → (𝑏‘𝑦) = (𝑏‘𝑀)) |
87 | 86 | eqeq1d 2624 |
. . . . . . . . . . . . 13
⊢ (𝑦 = 𝑀 → ((𝑏‘𝑦) = 1 ↔ (𝑏‘𝑀) = 1)) |
88 | 87 | rspcev 3309 |
. . . . . . . . . . . 12
⊢ ((𝑀 ∈ {1, 𝑀} ∧ (𝑏‘𝑀) = 1) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1) |
89 | 68, 70, 88 | sylancr 695 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1) |
90 | | fveq2 6191 |
. . . . . . . . . . . . . 14
⊢ (𝑦 = 1 → (𝑏‘𝑦) = (𝑏‘1)) |
91 | 90 | eqeq1d 2624 |
. . . . . . . . . . . . 13
⊢ (𝑦 = 1 → ((𝑏‘𝑦) = 𝑀 ↔ (𝑏‘1) = 𝑀)) |
92 | 91 | rspcev 3309 |
. . . . . . . . . . . 12
⊢ ((1
∈ {1, 𝑀} ∧ (𝑏‘1) = 𝑀) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀) |
93 | 72, 67, 92 | sylancr 695 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀) |
94 | | eqeq2 2633 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 1 → ((𝑏‘𝑦) = 𝑥 ↔ (𝑏‘𝑦) = 1)) |
95 | 94 | rexbidv 3052 |
. . . . . . . . . . . 12
⊢ (𝑥 = 1 → (∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥 ↔ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1)) |
96 | | eqeq2 2633 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 𝑀 → ((𝑏‘𝑦) = 𝑥 ↔ (𝑏‘𝑦) = 𝑀)) |
97 | 96 | rexbidv 3052 |
. . . . . . . . . . . 12
⊢ (𝑥 = 𝑀 → (∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥 ↔ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀)) |
98 | 71, 59, 95, 97 | ralpr 4238 |
. . . . . . . . . . 11
⊢
(∀𝑥 ∈
{1, 𝑀}∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥 ↔ (∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1 ∧ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀)) |
99 | 89, 93, 98 | sylanbrc 698 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥) |
100 | | eqcom 2629 |
. . . . . . . . . . . . 13
⊢ (𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ ((𝑏 ↾ {1, 𝑀})‘𝑦) = 𝑥) |
101 | | fvres 6207 |
. . . . . . . . . . . . . 14
⊢ (𝑦 ∈ {1, 𝑀} → ((𝑏 ↾ {1, 𝑀})‘𝑦) = (𝑏‘𝑦)) |
102 | 101 | eqeq1d 2624 |
. . . . . . . . . . . . 13
⊢ (𝑦 ∈ {1, 𝑀} → (((𝑏 ↾ {1, 𝑀})‘𝑦) = 𝑥 ↔ (𝑏‘𝑦) = 𝑥)) |
103 | 100, 102 | syl5bb 272 |
. . . . . . . . . . . 12
⊢ (𝑦 ∈ {1, 𝑀} → (𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ (𝑏‘𝑦) = 𝑥)) |
104 | 103 | rexbiia 3040 |
. . . . . . . . . . 11
⊢
(∃𝑦 ∈ {1,
𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥) |
105 | 104 | ralbii 2980 |
. . . . . . . . . 10
⊢
(∀𝑥 ∈
{1, 𝑀}∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥) |
106 | 99, 105 | sylibr 224 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦)) |
107 | | dffo3 6374 |
. . . . . . . . 9
⊢ ((𝑏 ↾ {1, 𝑀}):{1, 𝑀}–onto→{1, 𝑀} ↔ ((𝑏 ↾ {1, 𝑀}):{1, 𝑀}⟶{1, 𝑀} ∧ ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦))) |
108 | 85, 106, 107 | sylanbrc 698 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ {1, 𝑀}):{1, 𝑀}–onto→{1, 𝑀}) |
109 | | resdif 6157 |
. . . . . . . 8
⊢ ((Fun
◡𝑏 ∧ (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–onto→(1...(𝑁 + 1)) ∧ (𝑏 ↾ {1, 𝑀}):{1, 𝑀}–onto→{1, 𝑀}) → (𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀})) |
110 | 45, 53, 108, 109 | syl3anc 1326 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀})) |
111 | | uncom 3757 |
. . . . . . . . . . 11
⊢ ({1,
𝑀} ∪ 𝐾) = (𝐾 ∪ {1, 𝑀}) |
112 | 111, 61 | syl5eq 2668 |
. . . . . . . . . 10
⊢ (𝜑 → ({1, 𝑀} ∪ 𝐾) = (1...(𝑁 + 1))) |
113 | | incom 3805 |
. . . . . . . . . . . 12
⊢ ({1,
𝑀} ∩ 𝐾) = (𝐾 ∩ {1, 𝑀}) |
114 | 60 | simp1d 1073 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝐾 ∩ {1, 𝑀}) = ∅) |
115 | 113, 114 | syl5eq 2668 |
. . . . . . . . . . 11
⊢ (𝜑 → ({1, 𝑀} ∩ 𝐾) = ∅) |
116 | | uneqdifeq 4057 |
. . . . . . . . . . 11
⊢ (({1,
𝑀} ⊆ (1...(𝑁 + 1)) ∧ ({1, 𝑀} ∩ 𝐾) = ∅) → (({1, 𝑀} ∪ 𝐾) = (1...(𝑁 + 1)) ↔ ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾)) |
117 | 62, 115, 116 | syl2anc 693 |
. . . . . . . . . 10
⊢ (𝜑 → (({1, 𝑀} ∪ 𝐾) = (1...(𝑁 + 1)) ↔ ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾)) |
118 | 112, 117 | mpbid 222 |
. . . . . . . . 9
⊢ (𝜑 → ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾) |
119 | 118 | adantr 481 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾) |
120 | | reseq2 5391 |
. . . . . . . . . 10
⊢
(((1...(𝑁 + 1))
∖ {1, 𝑀}) = 𝐾 → (𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})) = (𝑏 ↾ 𝐾)) |
121 | | f1oeq1 6127 |
. . . . . . . . . 10
⊢ ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})) = (𝑏 ↾ 𝐾) → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}))) |
122 | 120, 121 | syl 17 |
. . . . . . . . 9
⊢
(((1...(𝑁 + 1))
∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}))) |
123 | | f1oeq2 6128 |
. . . . . . . . 9
⊢
(((1...(𝑁 + 1))
∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ 𝐾):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}))) |
124 | | f1oeq3 6129 |
. . . . . . . . 9
⊢
(((1...(𝑁 + 1))
∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ 𝐾):𝐾–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾)) |
125 | 122, 123,
124 | 3bitrd 294 |
. . . . . . . 8
⊢
(((1...(𝑁 + 1))
∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾)) |
126 | 119, 125 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾)) |
127 | 110, 126 | mpbid 222 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾) |
128 | | ssun1 3776 |
. . . . . . . . 9
⊢ 𝐾 ⊆ (𝐾 ∪ {1, 𝑀}) |
129 | 128, 61 | syl5sseq 3653 |
. . . . . . . 8
⊢ (𝜑 → 𝐾 ⊆ (1...(𝑁 + 1))) |
130 | 129 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝐾 ⊆ (1...(𝑁 + 1))) |
131 | 40 | simprd 479 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦) |
132 | | ssralv 3666 |
. . . . . . 7
⊢ (𝐾 ⊆ (1...(𝑁 + 1)) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦 → ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦)) |
133 | 130, 131,
132 | sylc 65 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦) |
134 | 33 | resex 5443 |
. . . . . . 7
⊢ (𝑏 ↾ 𝐾) ∈ V |
135 | | f1oeq1 6127 |
. . . . . . . 8
⊢ (𝑓 = (𝑏 ↾ 𝐾) → (𝑓:𝐾–1-1-onto→𝐾 ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾)) |
136 | | fveq1 6190 |
. . . . . . . . . . 11
⊢ (𝑓 = (𝑏 ↾ 𝐾) → (𝑓‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦)) |
137 | | fvres 6207 |
. . . . . . . . . . 11
⊢ (𝑦 ∈ 𝐾 → ((𝑏 ↾ 𝐾)‘𝑦) = (𝑏‘𝑦)) |
138 | 136, 137 | sylan9eq 2676 |
. . . . . . . . . 10
⊢ ((𝑓 = (𝑏 ↾ 𝐾) ∧ 𝑦 ∈ 𝐾) → (𝑓‘𝑦) = (𝑏‘𝑦)) |
139 | 138 | neeq1d 2853 |
. . . . . . . . 9
⊢ ((𝑓 = (𝑏 ↾ 𝐾) ∧ 𝑦 ∈ 𝐾) → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑏‘𝑦) ≠ 𝑦)) |
140 | 139 | ralbidva 2985 |
. . . . . . . 8
⊢ (𝑓 = (𝑏 ↾ 𝐾) → (∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦)) |
141 | 135, 140 | anbi12d 747 |
. . . . . . 7
⊢ (𝑓 = (𝑏 ↾ 𝐾) → ((𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦) ↔ ((𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦))) |
142 | 134, 141,
13 | elab2 3354 |
. . . . . 6
⊢ ((𝑏 ↾ 𝐾) ∈ 𝐶 ↔ ((𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦)) |
143 | 127, 133,
142 | sylanbrc 698 |
. . . . 5
⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ 𝐾) ∈ 𝐶) |
144 | 143 | ex 450 |
. . . 4
⊢ (𝜑 → (𝑏 ∈ 𝐵 → (𝑏 ↾ 𝐾) ∈ 𝐶)) |
145 | 57 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑁 ∈ ℕ) |
146 | 58 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑀 ∈ (2...(𝑁 + 1))) |
147 | | eqid 2622 |
. . . . . . . . 9
⊢ (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) |
148 | | simpr 477 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑐 ∈ 𝐶) |
149 | | vex 3203 |
. . . . . . . . . . . 12
⊢ 𝑐 ∈ V |
150 | | f1oeq1 6127 |
. . . . . . . . . . . . 13
⊢ (𝑓 = 𝑐 → (𝑓:𝐾–1-1-onto→𝐾 ↔ 𝑐:𝐾–1-1-onto→𝐾)) |
151 | | fveq1 6190 |
. . . . . . . . . . . . . . 15
⊢ (𝑓 = 𝑐 → (𝑓‘𝑦) = (𝑐‘𝑦)) |
152 | 151 | neeq1d 2853 |
. . . . . . . . . . . . . 14
⊢ (𝑓 = 𝑐 → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑐‘𝑦) ≠ 𝑦)) |
153 | 152 | ralbidv 2986 |
. . . . . . . . . . . . 13
⊢ (𝑓 = 𝑐 → (∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦)) |
154 | 150, 153 | anbi12d 747 |
. . . . . . . . . . . 12
⊢ (𝑓 = 𝑐 → ((𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦) ↔ (𝑐:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦))) |
155 | 149, 154,
13 | elab2 3354 |
. . . . . . . . . . 11
⊢ (𝑐 ∈ 𝐶 ↔ (𝑐:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦)) |
156 | 148, 155 | sylib 208 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦)) |
157 | 156 | simpld 475 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑐:𝐾–1-1-onto→𝐾) |
158 | 55, 56, 1, 145, 146, 59, 14, 147, 157 | subfacp1lem2a 31162 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀 ∧ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1)) |
159 | 158 | simp1d 1073 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))) |
160 | 55, 56, 1, 145, 146, 59, 14, 147, 157 | subfacp1lem2b 31163 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) = (𝑐‘𝑦)) |
161 | 156 | simprd 479 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦) |
162 | 161 | r19.21bi 2932 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → (𝑐‘𝑦) ≠ 𝑦) |
163 | 160, 162 | eqnetrd 2861 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦) |
164 | 163 | ralrimiva 2966 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ 𝐾 ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦) |
165 | 158 | simp2d 1074 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀) |
166 | | elfzuz 12338 |
. . . . . . . . . . . . 13
⊢ (𝑀 ∈ (2...(𝑁 + 1)) → 𝑀 ∈
(ℤ≥‘2)) |
167 | | eluz2b3 11762 |
. . . . . . . . . . . . . 14
⊢ (𝑀 ∈
(ℤ≥‘2) ↔ (𝑀 ∈ ℕ ∧ 𝑀 ≠ 1)) |
168 | 167 | simprbi 480 |
. . . . . . . . . . . . 13
⊢ (𝑀 ∈
(ℤ≥‘2) → 𝑀 ≠ 1) |
169 | 58, 166, 168 | 3syl 18 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑀 ≠ 1) |
170 | 169 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑀 ≠ 1) |
171 | 165, 170 | eqnetrd 2861 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) ≠
1) |
172 | 158 | simp3d 1075 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1) |
173 | 170 | necomd 2849 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 1 ≠ 𝑀) |
174 | 172, 173 | eqnetrd 2861 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) ≠ 𝑀) |
175 | | fveq2 6191 |
. . . . . . . . . . . 12
⊢ (𝑦 = 1 → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1)) |
176 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑦 = 1 → 𝑦 = 1) |
177 | 175, 176 | neeq12d 2855 |
. . . . . . . . . . 11
⊢ (𝑦 = 1 → (((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) ≠
1)) |
178 | | fveq2 6191 |
. . . . . . . . . . . 12
⊢ (𝑦 = 𝑀 → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀)) |
179 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑦 = 𝑀 → 𝑦 = 𝑀) |
180 | 178, 179 | neeq12d 2855 |
. . . . . . . . . . 11
⊢ (𝑦 = 𝑀 → (((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) ≠ 𝑀)) |
181 | 71, 59, 177, 180 | ralpr 4238 |
. . . . . . . . . 10
⊢
(∀𝑦 ∈
{1, 𝑀} ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦 ↔ (((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) ≠ 1 ∧ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) ≠ 𝑀)) |
182 | 171, 174,
181 | sylanbrc 698 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ {1, 𝑀} ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦) |
183 | | ralunb 3794 |
. . . . . . . . 9
⊢
(∀𝑦 ∈
(𝐾 ∪ {1, 𝑀})((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦 ↔ (∀𝑦 ∈ 𝐾 ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦 ∧ ∀𝑦 ∈ {1, 𝑀} ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦)) |
184 | 164, 182,
183 | sylanbrc 698 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦) |
185 | 61 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1))) |
186 | 185 | raleqdv 3144 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦)) |
187 | 184, 186 | mpbid 222 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦) |
188 | | prex 4909 |
. . . . . . . . 9
⊢ {〈1,
𝑀〉, 〈𝑀, 1〉} ∈
V |
189 | 149, 188 | unex 6956 |
. . . . . . . 8
⊢ (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ V |
190 | | f1oeq1 6127 |
. . . . . . . . 9
⊢ (𝑓 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))) |
191 | | fveq1 6190 |
. . . . . . . . . . 11
⊢ (𝑓 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → (𝑓‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦)) |
192 | 191 | neeq1d 2853 |
. . . . . . . . . 10
⊢ (𝑓 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → ((𝑓‘𝑦) ≠ 𝑦 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦)) |
193 | 192 | ralbidv 2986 |
. . . . . . . . 9
⊢ (𝑓 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦)) |
194 | 190, 193 | anbi12d 747 |
. . . . . . . 8
⊢ (𝑓 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦))) |
195 | 189, 194,
1 | elab2 3354 |
. . . . . . 7
⊢ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ 𝐴 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ≠ 𝑦)) |
196 | 159, 187,
195 | sylanbrc 698 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ 𝐴) |
197 | 165, 172 | jca 554 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀 ∧ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1)) |
198 | | fveq1 6190 |
. . . . . . . . 9
⊢ (𝑔 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → (𝑔‘1) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1)) |
199 | 198 | eqeq1d 2624 |
. . . . . . . 8
⊢ (𝑔 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → ((𝑔‘1) = 𝑀 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀)) |
200 | | fveq1 6190 |
. . . . . . . . 9
⊢ (𝑔 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → (𝑔‘𝑀) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀)) |
201 | 200 | eqeq1d 2624 |
. . . . . . . 8
⊢ (𝑔 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → ((𝑔‘𝑀) = 1 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1)) |
202 | 199, 201 | anbi12d 747 |
. . . . . . 7
⊢ (𝑔 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) → (((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1) ↔ (((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀 ∧ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1))) |
203 | 202, 6 | elrab2 3366 |
. . . . . 6
⊢ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ 𝐵 ↔ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ 𝐴 ∧ (((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀 ∧ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1))) |
204 | 196, 197,
203 | sylanbrc 698 |
. . . . 5
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ 𝐵) |
205 | 204 | ex 450 |
. . . 4
⊢ (𝜑 → (𝑐 ∈ 𝐶 → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ∈ 𝐵)) |
206 | 67 | adantrr 753 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘1) = 𝑀) |
207 | 165 | adantrl 752 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) = 𝑀) |
208 | 206, 207 | eqtr4d 2659 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘1) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1)) |
209 | 70 | adantrr 753 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘𝑀) = 1) |
210 | 172 | adantrl 752 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀) = 1) |
211 | 209, 210 | eqtr4d 2659 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘𝑀) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀)) |
212 | 90, 175 | eqeq12d 2637 |
. . . . . . . . . . . 12
⊢ (𝑦 = 1 → ((𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ (𝑏‘1) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1))) |
213 | 86, 178 | eqeq12d 2637 |
. . . . . . . . . . . 12
⊢ (𝑦 = 𝑀 → ((𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ (𝑏‘𝑀) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀))) |
214 | 71, 59, 212, 213 | ralpr 4238 |
. . . . . . . . . . 11
⊢
(∀𝑦 ∈
{1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ((𝑏‘1) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘1) ∧ (𝑏‘𝑀) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑀))) |
215 | 208, 211,
214 | sylanbrc 698 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → ∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦)) |
216 | 215 | biantrud 528 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ∧ ∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦)))) |
217 | | ralunb 3794 |
. . . . . . . . 9
⊢
(∀𝑦 ∈
(𝐾 ∪ {1, 𝑀})(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ∧ ∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦))) |
218 | 216, 217 | syl6bbr 278 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦))) |
219 | 160 | eqeq2d 2632 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → ((𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ (𝑏‘𝑦) = (𝑐‘𝑦))) |
220 | 219 | ralbidva 2985 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦))) |
221 | 220 | adantrl 752 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦))) |
222 | 61 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1))) |
223 | 222 | raleqdv 3144 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦))) |
224 | 218, 221,
223 | 3bitr3rd 299 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦))) |
225 | 137 | eqeq2d 2632 |
. . . . . . . . 9
⊢ (𝑦 ∈ 𝐾 → ((𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦) ↔ (𝑐‘𝑦) = (𝑏‘𝑦))) |
226 | | eqcom 2629 |
. . . . . . . . 9
⊢ ((𝑐‘𝑦) = (𝑏‘𝑦) ↔ (𝑏‘𝑦) = (𝑐‘𝑦)) |
227 | 225, 226 | syl6bb 276 |
. . . . . . . 8
⊢ (𝑦 ∈ 𝐾 → ((𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦) ↔ (𝑏‘𝑦) = (𝑐‘𝑦))) |
228 | 227 | ralbiia 2979 |
. . . . . . 7
⊢
(∀𝑦 ∈
𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦)) |
229 | 224, 228 | syl6bbr 278 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦))) |
230 | 47 | adantrr 753 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝑏 Fn (1...(𝑁 + 1))) |
231 | 159 | adantrl 752 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))) |
232 | | f1ofn 6138 |
. . . . . . . 8
⊢ ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) Fn (1...(𝑁 + 1))) |
233 | 231, 232 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) Fn (1...(𝑁 + 1))) |
234 | | eqfnfv 6311 |
. . . . . . 7
⊢ ((𝑏 Fn (1...(𝑁 + 1)) ∧ (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) Fn (1...(𝑁 + 1))) → (𝑏 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦))) |
235 | 230, 233,
234 | syl2anc 693 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉})‘𝑦))) |
236 | 157 | adantrl 752 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝑐:𝐾–1-1-onto→𝐾) |
237 | | f1ofn 6138 |
. . . . . . . 8
⊢ (𝑐:𝐾–1-1-onto→𝐾 → 𝑐 Fn 𝐾) |
238 | 236, 237 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝑐 Fn 𝐾) |
239 | 129 | adantr 481 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝐾 ⊆ (1...(𝑁 + 1))) |
240 | | fnssres 6004 |
. . . . . . . 8
⊢ ((𝑏 Fn (1...(𝑁 + 1)) ∧ 𝐾 ⊆ (1...(𝑁 + 1))) → (𝑏 ↾ 𝐾) Fn 𝐾) |
241 | 230, 239,
240 | syl2anc 693 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏 ↾ 𝐾) Fn 𝐾) |
242 | | eqfnfv 6311 |
. . . . . . 7
⊢ ((𝑐 Fn 𝐾 ∧ (𝑏 ↾ 𝐾) Fn 𝐾) → (𝑐 = (𝑏 ↾ 𝐾) ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦))) |
243 | 238, 241,
242 | syl2anc 693 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑐 = (𝑏 ↾ 𝐾) ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦))) |
244 | 229, 235,
243 | 3bitr4d 300 |
. . . . 5
⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ↔ 𝑐 = (𝑏 ↾ 𝐾))) |
245 | 244 | ex 450 |
. . . 4
⊢ (𝜑 → ((𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶) → (𝑏 = (𝑐 ∪ {〈1, 𝑀〉, 〈𝑀, 1〉}) ↔ 𝑐 = (𝑏 ↾ 𝐾)))) |
246 | 12, 23, 144, 205, 245 | en3d 7992 |
. . 3
⊢ (𝜑 → 𝐵 ≈ 𝐶) |
247 | | hashen 13135 |
. . . 4
⊢ ((𝐵 ∈ Fin ∧ 𝐶 ∈ Fin) →
((#‘𝐵) =
(#‘𝐶) ↔ 𝐵 ≈ 𝐶)) |
248 | 10, 21, 247 | mp2an 708 |
. . 3
⊢
((#‘𝐵) =
(#‘𝐶) ↔ 𝐵 ≈ 𝐶) |
249 | 246, 248 | sylibr 224 |
. 2
⊢ (𝜑 → (#‘𝐵) = (#‘𝐶)) |
250 | 13 | fveq2i 6194 |
. . . 4
⊢
(#‘𝐶) =
(#‘{𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)}) |
251 | 55 | derangval 31149 |
. . . . 5
⊢ (𝐾 ∈ Fin → (𝐷‘𝐾) = (#‘{𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)})) |
252 | 18, 251 | ax-mp 5 |
. . . 4
⊢ (𝐷‘𝐾) = (#‘{𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)}) |
253 | 55, 56 | derangen2 31156 |
. . . . 5
⊢ (𝐾 ∈ Fin → (𝐷‘𝐾) = (𝑆‘(#‘𝐾))) |
254 | 18, 253 | ax-mp 5 |
. . . 4
⊢ (𝐷‘𝐾) = (𝑆‘(#‘𝐾)) |
255 | 250, 252,
254 | 3eqtr2ri 2651 |
. . 3
⊢ (𝑆‘(#‘𝐾)) = (#‘𝐶) |
256 | 60 | simp3d 1075 |
. . . 4
⊢ (𝜑 → (#‘𝐾) = (𝑁 − 1)) |
257 | 256 | fveq2d 6195 |
. . 3
⊢ (𝜑 → (𝑆‘(#‘𝐾)) = (𝑆‘(𝑁 − 1))) |
258 | 255, 257 | syl5eqr 2670 |
. 2
⊢ (𝜑 → (#‘𝐶) = (𝑆‘(𝑁 − 1))) |
259 | 249, 258 | eqtrd 2656 |
1
⊢ (𝜑 → (#‘𝐵) = (𝑆‘(𝑁 − 1))) |