subfacp1lem3 - Mathbox for Mario Carneiro

	Mathbox for Mario Carneiro		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > subfacp1lem3		Structured version Visualization version GIF version

Theorem subfacp1lem3 34173

Description: Lemma for subfacp1 34177. In subfacp1lem6 34176 we cut up the set of all derangements on 1...(𝑁 + 1) first according to the value at 1, and then by whether or not (𝑓‘(𝑓‘1)) = 1. In this lemma, we show that the subset of all 𝑁 + 1 derangements that satisfy this for fixed 𝑀 = (𝑓‘1) is in bijection with 𝑁 − 1 derangements, by simply dropping the 𝑥 = 1 and 𝑥 = 𝑀 points from the function to get a derangement on 𝐾 = (1...(𝑁 − 1)) ∖ {1, 𝑀}. (Contributed by Mario Carneiro, 23-Jan-2015.)

**Hypotheses**
Ref	Expression
derang.d	⊢ 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)}))
subfac.n	⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ (𝐷‘(1...𝑛)))
subfacp1lem.a	⊢ 𝐴 = {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)}
subfacp1lem1.n	⊢ (𝜑 → 𝑁 ∈ ℕ)
subfacp1lem1.m	⊢ (𝜑 → 𝑀 ∈ (2...(𝑁 + 1)))
subfacp1lem1.x	⊢ 𝑀 ∈ V
subfacp1lem1.k	⊢ 𝐾 = ((2...(𝑁 + 1)) ∖ {𝑀})
subfacp1lem3.b	⊢ 𝐵 = {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1)}
subfacp1lem3.c	⊢ 𝐶 = {𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)}

**Assertion**
Ref	Expression
subfacp1lem3	⊢ (𝜑 → (♯‘𝐵) = (𝑆‘(𝑁 − 1)))

Distinct variable groups: 𝑓,𝑔,𝑛,𝑥,𝑦,𝐴 𝑓,𝑁,𝑔,𝑛,𝑥,𝑦 𝐵,𝑓,𝑔,𝑥,𝑦 𝑥,𝐶,𝑦 𝜑,𝑥,𝑦 𝐷,𝑛 𝑓,𝐾,𝑛,𝑥,𝑦 𝑓,𝑀,𝑔,𝑥,𝑦 𝑆,𝑛,𝑥,𝑦 Allowed substitution hints: 𝜑(𝑓,𝑔,𝑛) 𝐵(𝑛) 𝐶(𝑓,𝑔,𝑛) 𝐷(𝑥,𝑦,𝑓,𝑔) 𝑆(𝑓,𝑔) 𝐾(𝑔) 𝑀(𝑛)

Proof of Theorem subfacp1lem3 Dummy variables 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		subfacp1lem.a	. . . . . . 7 ⊢ 𝐴 = {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)}
2		fzfi 13937	. . . . . . . 8 ⊢ (1...(𝑁 + 1)) ∈ Fin
3		deranglem 34157	. . . . . . . 8 ⊢ ((1...(𝑁 + 1)) ∈ Fin → {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ∈ Fin)
4	2, 3	ax-mp 5	. . . . . . 7 ⊢ {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ∈ Fin
5	1, 4	eqeltri 2830	. . . . . 6 ⊢ 𝐴 ∈ Fin
6		subfacp1lem3.b	. . . . . . 7 ⊢ 𝐵 = {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1)}
7	6	ssrab3 4081	. . . . . 6 ⊢ 𝐵 ⊆ 𝐴
8		ssfi 9173	. . . . . 6 ⊢ ((𝐴 ∈ Fin ∧ 𝐵 ⊆ 𝐴) → 𝐵 ∈ Fin)
9	5, 7, 8	mp2an 691	. . . . 5 ⊢ 𝐵 ∈ Fin
10	9	elexi 3494	. . . 4 ⊢ 𝐵 ∈ V
11	10	a1i 11	. . 3 ⊢ (𝜑 → 𝐵 ∈ V)
12		eqid 2733	. . . 4 ⊢ (𝑏 ∈ 𝐵 ↦ (𝑏 ↾ 𝐾)) = (𝑏 ∈ 𝐵 ↦ (𝑏 ↾ 𝐾))
13		simpr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝐵)
14		fveq1 6891	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = 𝑏 → (𝑔‘1) = (𝑏‘1))
15	14	eqeq1d 2735	. . . . . . . . . . . . . 14 ⊢ (𝑔 = 𝑏 → ((𝑔‘1) = 𝑀 ↔ (𝑏‘1) = 𝑀))
16		fveq1 6891	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = 𝑏 → (𝑔‘𝑀) = (𝑏‘𝑀))
17	16	eqeq1d 2735	. . . . . . . . . . . . . 14 ⊢ (𝑔 = 𝑏 → ((𝑔‘𝑀) = 1 ↔ (𝑏‘𝑀) = 1))
18	15, 17	anbi12d 632	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝑏 → (((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1) ↔ ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1)))
19	18, 6	elrab2 3687	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ 𝐵 ↔ (𝑏 ∈ 𝐴 ∧ ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1)))
20	13, 19	sylib 217	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ∈ 𝐴 ∧ ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1)))
21	20	simpld 496	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 ∈ 𝐴)
22		vex 3479	. . . . . . . . . . 11 ⊢ 𝑏 ∈ V
23		f1oeq1 6822	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑏 → (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))))
24		fveq1 6891	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑏 → (𝑓‘𝑦) = (𝑏‘𝑦))
25	24	neeq1d 3001	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑏 → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑏‘𝑦) ≠ 𝑦))
26	25	ralbidv 3178	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑏 → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦))
27	23, 26	anbi12d 632	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑏 → ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) ↔ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦)))
28	22, 27, 1	elab2 3673	. . . . . . . . . 10 ⊢ (𝑏 ∈ 𝐴 ↔ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦))
29	21, 28	sylib 217	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦))
30	29	simpld 496	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))
31		f1of1 6833	. . . . . . . 8 ⊢ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → 𝑏:(1...(𝑁 + 1))–1-1→(1...(𝑁 + 1)))
32		df-f1 6549	. . . . . . . . 9 ⊢ (𝑏:(1...(𝑁 + 1))–1-1→(1...(𝑁 + 1)) ↔ (𝑏:(1...(𝑁 + 1))⟶(1...(𝑁 + 1)) ∧ Fun ^◡𝑏))
33	32	simprbi 498	. . . . . . . 8 ⊢ (𝑏:(1...(𝑁 + 1))–1-1→(1...(𝑁 + 1)) → Fun ^◡𝑏)
34	30, 31, 33	3syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → Fun ^◡𝑏)
35		f1ofn 6835	. . . . . . . . . . 11 ⊢ (𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → 𝑏 Fn (1...(𝑁 + 1)))
36	30, 35	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝑏 Fn (1...(𝑁 + 1)))
37		fnresdm 6670	. . . . . . . . . 10 ⊢ (𝑏 Fn (1...(𝑁 + 1)) → (𝑏 ↾ (1...(𝑁 + 1))) = 𝑏)
38		f1oeq1 6822	. . . . . . . . . 10 ⊢ ((𝑏 ↾ (1...(𝑁 + 1))) = 𝑏 → ((𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))))
39	36, 37, 38	3syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ 𝑏:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))))
40	30, 39	mpbird 257	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))
41		f1ofo 6841	. . . . . . . 8 ⊢ ((𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–onto→(1...(𝑁 + 1)))
42	40, 41	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–onto→(1...(𝑁 + 1)))
43		ssun2 4174	. . . . . . . . . . . 12 ⊢ {1, 𝑀} ⊆ (𝐾 ∪ {1, 𝑀})
44		derang.d	. . . . . . . . . . . . . 14 ⊢ 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)}))
45		subfac.n	. . . . . . . . . . . . . 14 ⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ (𝐷‘(1...𝑛)))
46		subfacp1lem1.n	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
47		subfacp1lem1.m	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑀 ∈ (2...(𝑁 + 1)))
48		subfacp1lem1.x	. . . . . . . . . . . . . 14 ⊢ 𝑀 ∈ V
49		subfacp1lem1.k	. . . . . . . . . . . . . 14 ⊢ 𝐾 = ((2...(𝑁 + 1)) ∖ {𝑀})
50	44, 45, 1, 46, 47, 48, 49	subfacp1lem1 34170	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐾 ∩ {1, 𝑀}) = ∅ ∧ (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1)) ∧ (♯‘𝐾) = (𝑁 − 1)))
51	50	simp2d 1144	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1)))
52	43, 51	sseqtrid 4035	. . . . . . . . . . 11 ⊢ (𝜑 → {1, 𝑀} ⊆ (1...(𝑁 + 1)))
53	52	adantr 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → {1, 𝑀} ⊆ (1...(𝑁 + 1)))
54	36, 53	fnssresd 6675	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ {1, 𝑀}) Fn {1, 𝑀})
55	20	simprd 497	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝑏‘1) = 𝑀 ∧ (𝑏‘𝑀) = 1))
56	55	simpld 496	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘1) = 𝑀)
57	48	prid2 4768	. . . . . . . . . . . 12 ⊢ 𝑀 ∈ {1, 𝑀}
58	56, 57	eqeltrdi 2842	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘1) ∈ {1, 𝑀})
59	55	simprd 497	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘𝑀) = 1)
60		1ex 11210	. . . . . . . . . . . . 13 ⊢ 1 ∈ V
61	60	prid1 4767	. . . . . . . . . . . 12 ⊢ 1 ∈ {1, 𝑀}
62	59, 61	eqeltrdi 2842	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏‘𝑀) ∈ {1, 𝑀})
63		fveq2 6892	. . . . . . . . . . . . 13 ⊢ (𝑥 = 1 → (𝑏‘𝑥) = (𝑏‘1))
64	63	eleq1d 2819	. . . . . . . . . . . 12 ⊢ (𝑥 = 1 → ((𝑏‘𝑥) ∈ {1, 𝑀} ↔ (𝑏‘1) ∈ {1, 𝑀}))
65		fveq2 6892	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑀 → (𝑏‘𝑥) = (𝑏‘𝑀))
66	65	eleq1d 2819	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑀 → ((𝑏‘𝑥) ∈ {1, 𝑀} ↔ (𝑏‘𝑀) ∈ {1, 𝑀}))
67	60, 48, 64, 66	ralpr 4705	. . . . . . . . . . 11 ⊢ (∀𝑥 ∈ {1, 𝑀} (𝑏‘𝑥) ∈ {1, 𝑀} ↔ ((𝑏‘1) ∈ {1, 𝑀} ∧ (𝑏‘𝑀) ∈ {1, 𝑀}))
68	58, 62, 67	sylanbrc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀} (𝑏‘𝑥) ∈ {1, 𝑀})
69		fvres 6911	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ {1, 𝑀} → ((𝑏 ↾ {1, 𝑀})‘𝑥) = (𝑏‘𝑥))
70	69	eleq1d 2819	. . . . . . . . . . 11 ⊢ (𝑥 ∈ {1, 𝑀} → (((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀} ↔ (𝑏‘𝑥) ∈ {1, 𝑀}))
71	70	ralbiia 3092	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ {1, 𝑀} ((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀} ↔ ∀𝑥 ∈ {1, 𝑀} (𝑏‘𝑥) ∈ {1, 𝑀})
72	68, 71	sylibr 233	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀} ((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀})
73		ffnfv 7118	. . . . . . . . 9 ⊢ ((𝑏 ↾ {1, 𝑀}):{1, 𝑀}⟶{1, 𝑀} ↔ ((𝑏 ↾ {1, 𝑀}) Fn {1, 𝑀} ∧ ∀𝑥 ∈ {1, 𝑀} ((𝑏 ↾ {1, 𝑀})‘𝑥) ∈ {1, 𝑀}))
74	54, 72, 73	sylanbrc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ {1, 𝑀}):{1, 𝑀}⟶{1, 𝑀})
75		fveqeq2 6901	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → ((𝑏‘𝑦) = 1 ↔ (𝑏‘𝑀) = 1))
76	75	rspcev 3613	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ {1, 𝑀} ∧ (𝑏‘𝑀) = 1) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1)
77	57, 59, 76	sylancr 588	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1)
78		fveqeq2 6901	. . . . . . . . . . . 12 ⊢ (𝑦 = 1 → ((𝑏‘𝑦) = 𝑀 ↔ (𝑏‘1) = 𝑀))
79	78	rspcev 3613	. . . . . . . . . . 11 ⊢ ((1 ∈ {1, 𝑀} ∧ (𝑏‘1) = 𝑀) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀)
80	61, 56, 79	sylancr 588	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀)
81		eqeq2 2745	. . . . . . . . . . . 12 ⊢ (𝑥 = 1 → ((𝑏‘𝑦) = 𝑥 ↔ (𝑏‘𝑦) = 1))
82	81	rexbidv 3179	. . . . . . . . . . 11 ⊢ (𝑥 = 1 → (∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥 ↔ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1))
83		eqeq2 2745	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑀 → ((𝑏‘𝑦) = 𝑥 ↔ (𝑏‘𝑦) = 𝑀))
84	83	rexbidv 3179	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑀 → (∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥 ↔ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀))
85	60, 48, 82, 84	ralpr 4705	. . . . . . . . . 10 ⊢ (∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥 ↔ (∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 1 ∧ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑀))
86	77, 80, 85	sylanbrc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥)
87		eqcom 2740	. . . . . . . . . . . 12 ⊢ (𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ ((𝑏 ↾ {1, 𝑀})‘𝑦) = 𝑥)
88		fvres 6911	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ {1, 𝑀} → ((𝑏 ↾ {1, 𝑀})‘𝑦) = (𝑏‘𝑦))
89	88	eqeq1d 2735	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ {1, 𝑀} → (((𝑏 ↾ {1, 𝑀})‘𝑦) = 𝑥 ↔ (𝑏‘𝑦) = 𝑥))
90	87, 89	bitrid 283	. . . . . . . . . . 11 ⊢ (𝑦 ∈ {1, 𝑀} → (𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ (𝑏‘𝑦) = 𝑥))
91	90	rexbiia 3093	. . . . . . . . . 10 ⊢ (∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ ∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥)
92	91	ralbii 3094	. . . . . . . . 9 ⊢ (∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦) ↔ ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = 𝑥)
93	86, 92	sylibr 233	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦))
94		dffo3 7104	. . . . . . . 8 ⊢ ((𝑏 ↾ {1, 𝑀}):{1, 𝑀}–onto→{1, 𝑀} ↔ ((𝑏 ↾ {1, 𝑀}):{1, 𝑀}⟶{1, 𝑀} ∧ ∀𝑥 ∈ {1, 𝑀}∃𝑦 ∈ {1, 𝑀}𝑥 = ((𝑏 ↾ {1, 𝑀})‘𝑦)))
95	74, 93, 94	sylanbrc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ {1, 𝑀}):{1, 𝑀}–onto→{1, 𝑀})
96		resdif 6855	. . . . . . 7 ⊢ ((Fun ^◡𝑏 ∧ (𝑏 ↾ (1...(𝑁 + 1))):(1...(𝑁 + 1))–onto→(1...(𝑁 + 1)) ∧ (𝑏 ↾ {1, 𝑀}):{1, 𝑀}–onto→{1, 𝑀}) → (𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}))
97	34, 42, 95, 96	syl3anc 1372	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}))
98		uncom 4154	. . . . . . . . . 10 ⊢ ({1, 𝑀} ∪ 𝐾) = (𝐾 ∪ {1, 𝑀})
99	98, 51	eqtrid 2785	. . . . . . . . 9 ⊢ (𝜑 → ({1, 𝑀} ∪ 𝐾) = (1...(𝑁 + 1)))
100		incom 4202	. . . . . . . . . . 11 ⊢ ({1, 𝑀} ∩ 𝐾) = (𝐾 ∩ {1, 𝑀})
101	50	simp1d 1143	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾 ∩ {1, 𝑀}) = ∅)
102	100, 101	eqtrid 2785	. . . . . . . . . 10 ⊢ (𝜑 → ({1, 𝑀} ∩ 𝐾) = ∅)
103		uneqdifeq 4493	. . . . . . . . . 10 ⊢ (({1, 𝑀} ⊆ (1...(𝑁 + 1)) ∧ ({1, 𝑀} ∩ 𝐾) = ∅) → (({1, 𝑀} ∪ 𝐾) = (1...(𝑁 + 1)) ↔ ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾))
104	52, 102, 103	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → (({1, 𝑀} ∪ 𝐾) = (1...(𝑁 + 1)) ↔ ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾))
105	99, 104	mpbid 231	. . . . . . . 8 ⊢ (𝜑 → ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾)
106	105	adantr 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾)
107		reseq2 5977	. . . . . . . . 9 ⊢ (((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾 → (𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})) = (𝑏 ↾ 𝐾))
108	107	f1oeq1d 6829	. . . . . . . 8 ⊢ (((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀})))
109		f1oeq2 6823	. . . . . . . 8 ⊢ (((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ 𝐾):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀})))
110		f1oeq3 6824	. . . . . . . 8 ⊢ (((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ 𝐾):𝐾–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾))
111	108, 109, 110	3bitrd 305	. . . . . . 7 ⊢ (((1...(𝑁 + 1)) ∖ {1, 𝑀}) = 𝐾 → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾))
112	106, 111	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ((𝑏 ↾ ((1...(𝑁 + 1)) ∖ {1, 𝑀})):((1...(𝑁 + 1)) ∖ {1, 𝑀})–1-1-onto→((1...(𝑁 + 1)) ∖ {1, 𝑀}) ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾))
113	97, 112	mpbid 231	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾)
114		ssun1 4173	. . . . . . . 8 ⊢ 𝐾 ⊆ (𝐾 ∪ {1, 𝑀})
115	114, 51	sseqtrid 4035	. . . . . . 7 ⊢ (𝜑 → 𝐾 ⊆ (1...(𝑁 + 1)))
116	115	adantr 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → 𝐾 ⊆ (1...(𝑁 + 1)))
117	29	simprd 497	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦)
118		ssralv 4051	. . . . . 6 ⊢ (𝐾 ⊆ (1...(𝑁 + 1)) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) ≠ 𝑦 → ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦))
119	116, 117, 118	sylc 65	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦)
120	22	resex 6030	. . . . . 6 ⊢ (𝑏 ↾ 𝐾) ∈ V
121		f1oeq1 6822	. . . . . . 7 ⊢ (𝑓 = (𝑏 ↾ 𝐾) → (𝑓:𝐾–1-1-onto→𝐾 ↔ (𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾))
122		fveq1 6891	. . . . . . . . . 10 ⊢ (𝑓 = (𝑏 ↾ 𝐾) → (𝑓‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦))
123		fvres 6911	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝐾 → ((𝑏 ↾ 𝐾)‘𝑦) = (𝑏‘𝑦))
124	122, 123	sylan9eq 2793	. . . . . . . . 9 ⊢ ((𝑓 = (𝑏 ↾ 𝐾) ∧ 𝑦 ∈ 𝐾) → (𝑓‘𝑦) = (𝑏‘𝑦))
125	124	neeq1d 3001	. . . . . . . 8 ⊢ ((𝑓 = (𝑏 ↾ 𝐾) ∧ 𝑦 ∈ 𝐾) → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑏‘𝑦) ≠ 𝑦))
126	125	ralbidva 3176	. . . . . . 7 ⊢ (𝑓 = (𝑏 ↾ 𝐾) → (∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦))
127	121, 126	anbi12d 632	. . . . . 6 ⊢ (𝑓 = (𝑏 ↾ 𝐾) → ((𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦) ↔ ((𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦)))
128		subfacp1lem3.c	. . . . . 6 ⊢ 𝐶 = {𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)}
129	120, 127, 128	elab2 3673	. . . . 5 ⊢ ((𝑏 ↾ 𝐾) ∈ 𝐶 ↔ ((𝑏 ↾ 𝐾):𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) ≠ 𝑦))
130	113, 119, 129	sylanbrc 584	. . . 4 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐵) → (𝑏 ↾ 𝐾) ∈ 𝐶)
131	46	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑁 ∈ ℕ)
132	47	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑀 ∈ (2...(𝑁 + 1)))
133		eqid 2733	. . . . . . . 8 ⊢ (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})
134		simpr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑐 ∈ 𝐶)
135		vex 3479	. . . . . . . . . . 11 ⊢ 𝑐 ∈ V
136		f1oeq1 6822	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑐 → (𝑓:𝐾–1-1-onto→𝐾 ↔ 𝑐:𝐾–1-1-onto→𝐾))
137		fveq1 6891	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑐 → (𝑓‘𝑦) = (𝑐‘𝑦))
138	137	neeq1d 3001	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑐 → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑐‘𝑦) ≠ 𝑦))
139	138	ralbidv 3178	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑐 → (∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦))
140	136, 139	anbi12d 632	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑐 → ((𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦) ↔ (𝑐:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦)))
141	135, 140, 128	elab2 3673	. . . . . . . . . 10 ⊢ (𝑐 ∈ 𝐶 ↔ (𝑐:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦))
142	134, 141	sylib 217	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦))
143	142	simpld 496	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑐:𝐾–1-1-onto→𝐾)
144	44, 45, 1, 131, 132, 48, 49, 133, 143	subfacp1lem2a 34171	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀 ∧ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1))
145	144	simp1d 1143	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))
146	44, 45, 1, 131, 132, 48, 49, 133, 143	subfacp1lem2b 34172	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) = (𝑐‘𝑦))
147	142	simprd 497	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) ≠ 𝑦)
148	147	r19.21bi 3249	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → (𝑐‘𝑦) ≠ 𝑦)
149	146, 148	eqnetrd 3009	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦)
150	149	ralrimiva 3147	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ 𝐾 ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦)
151	144	simp2d 1144	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀)
152		elfzuz 13497	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ (2...(𝑁 + 1)) → 𝑀 ∈ (ℤ_≥‘2))
153		eluz2b3 12906	. . . . . . . . . . . . 13 ⊢ (𝑀 ∈ (ℤ_≥‘2) ↔ (𝑀 ∈ ℕ ∧ 𝑀 ≠ 1))
154	153	simprbi 498	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ (ℤ_≥‘2) → 𝑀 ≠ 1)
155	47, 152, 154	3syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ≠ 1)
156	155	adantr 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 𝑀 ≠ 1)
157	151, 156	eqnetrd 3009	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) ≠ 1)
158	144	simp3d 1145	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1)
159	156	necomd 2997	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → 1 ≠ 𝑀)
160	158, 159	eqnetrd 3009	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) ≠ 𝑀)
161		fveq2 6892	. . . . . . . . . . 11 ⊢ (𝑦 = 1 → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1))
162		id 22	. . . . . . . . . . 11 ⊢ (𝑦 = 1 → 𝑦 = 1)
163	161, 162	neeq12d 3003	. . . . . . . . . 10 ⊢ (𝑦 = 1 → (((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) ≠ 1))
164		fveq2 6892	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑀 → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀))
165		id 22	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑀 → 𝑦 = 𝑀)
166	164, 165	neeq12d 3003	. . . . . . . . . 10 ⊢ (𝑦 = 𝑀 → (((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) ≠ 𝑀))
167	60, 48, 163, 166	ralpr 4705	. . . . . . . . 9 ⊢ (∀𝑦 ∈ {1, 𝑀} ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦 ↔ (((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) ≠ 1 ∧ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) ≠ 𝑀))
168	157, 160, 167	sylanbrc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ {1, 𝑀} ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦)
169		ralunb 4192	. . . . . . . 8 ⊢ (∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦 ↔ (∀𝑦 ∈ 𝐾 ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦 ∧ ∀𝑦 ∈ {1, 𝑀} ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦))
170	150, 168, 169	sylanbrc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦)
171	51	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1)))
172	171	raleqdv 3326	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦))
173	170, 172	mpbid 231	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦)
174		prex 5433	. . . . . . . 8 ⊢ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩} ∈ V
175	135, 174	unex 7733	. . . . . . 7 ⊢ (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ∈ V
176		f1oeq1 6822	. . . . . . . 8 ⊢ (𝑓 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ↔ (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1))))
177		fveq1 6891	. . . . . . . . . 10 ⊢ (𝑓 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → (𝑓‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦))
178	177	neeq1d 3001	. . . . . . . . 9 ⊢ (𝑓 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → ((𝑓‘𝑦) ≠ 𝑦 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦))
179	178	ralbidv 3178	. . . . . . . 8 ⊢ (𝑓 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦))
180	176, 179	anbi12d 632	. . . . . . 7 ⊢ (𝑓 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦)))
181	175, 180, 1	elab2 3673	. . . . . 6 ⊢ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ∈ 𝐴 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ≠ 𝑦))
182	145, 173, 181	sylanbrc 584	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ∈ 𝐴)
183	151, 158	jca 513	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀 ∧ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1))
184		fveq1 6891	. . . . . . . 8 ⊢ (𝑔 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → (𝑔‘1) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1))
185	184	eqeq1d 2735	. . . . . . 7 ⊢ (𝑔 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → ((𝑔‘1) = 𝑀 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀))
186		fveq1 6891	. . . . . . . 8 ⊢ (𝑔 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → (𝑔‘𝑀) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀))
187	186	eqeq1d 2735	. . . . . . 7 ⊢ (𝑔 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → ((𝑔‘𝑀) = 1 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1))
188	185, 187	anbi12d 632	. . . . . 6 ⊢ (𝑔 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) → (((𝑔‘1) = 𝑀 ∧ (𝑔‘𝑀) = 1) ↔ (((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀 ∧ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1)))
189	188, 6	elrab2 3687	. . . . 5 ⊢ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ∈ 𝐵 ↔ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ∈ 𝐴 ∧ (((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀 ∧ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1)))
190	182, 183, 189	sylanbrc 584	. . . 4 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ∈ 𝐵)
191	56	adantrr 716	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘1) = 𝑀)
192	151	adantrl 715	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) = 𝑀)
193	191, 192	eqtr4d 2776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘1) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1))
194	59	adantrr 716	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘𝑀) = 1)
195	158	adantrl 715	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀) = 1)
196	194, 195	eqtr4d 2776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏‘𝑀) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀))
197		fveq2 6892	. . . . . . . . . . . 12 ⊢ (𝑦 = 1 → (𝑏‘𝑦) = (𝑏‘1))
198	197, 161	eqeq12d 2749	. . . . . . . . . . 11 ⊢ (𝑦 = 1 → ((𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ (𝑏‘1) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1)))
199		fveq2 6892	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑀 → (𝑏‘𝑦) = (𝑏‘𝑀))
200	199, 164	eqeq12d 2749	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑀 → ((𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ (𝑏‘𝑀) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀)))
201	60, 48, 198, 200	ralpr 4705	. . . . . . . . . 10 ⊢ (∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ((𝑏‘1) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘1) ∧ (𝑏‘𝑀) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑀)))
202	193, 196, 201	sylanbrc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → ∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦))
203	202	biantrud 533	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ∧ ∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦))))
204		ralunb 4192	. . . . . . . 8 ⊢ (∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ∧ ∀𝑦 ∈ {1, 𝑀} (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦)))
205	203, 204	bitr4di 289	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦)))
206	146	eqeq2d 2744	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ 𝐶) ∧ 𝑦 ∈ 𝐾) → ((𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ (𝑏‘𝑦) = (𝑐‘𝑦)))
207	206	ralbidva 3176	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ 𝐶) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦)))
208	207	adantrl 715	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦)))
209	51	adantr 482	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝐾 ∪ {1, 𝑀}) = (1...(𝑁 + 1)))
210	209	raleqdv 3326	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ (𝐾 ∪ {1, 𝑀})(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦)))
211	205, 208, 210	3bitr3rd 310	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦)))
212	123	eqeq2d 2744	. . . . . . . 8 ⊢ (𝑦 ∈ 𝐾 → ((𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦) ↔ (𝑐‘𝑦) = (𝑏‘𝑦)))
213		eqcom 2740	. . . . . . . 8 ⊢ ((𝑐‘𝑦) = (𝑏‘𝑦) ↔ (𝑏‘𝑦) = (𝑐‘𝑦))
214	212, 213	bitrdi 287	. . . . . . 7 ⊢ (𝑦 ∈ 𝐾 → ((𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦) ↔ (𝑏‘𝑦) = (𝑐‘𝑦)))
215	214	ralbiia 3092	. . . . . 6 ⊢ (∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑏‘𝑦) = (𝑐‘𝑦))
216	211, 215	bitr4di 289	. . . . 5 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦) ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦)))
217	36	adantrr 716	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝑏 Fn (1...(𝑁 + 1)))
218	145	adantrl 715	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)))
219		f1ofn 6835	. . . . . . 7 ⊢ ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}):(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) Fn (1...(𝑁 + 1)))
220	218, 219	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) Fn (1...(𝑁 + 1)))
221		eqfnfv 7033	. . . . . 6 ⊢ ((𝑏 Fn (1...(𝑁 + 1)) ∧ (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) Fn (1...(𝑁 + 1))) → (𝑏 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦)))
222	217, 220, 221	syl2anc 585	. . . . 5 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ↔ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑏‘𝑦) = ((𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩})‘𝑦)))
223	143	adantrl 715	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝑐:𝐾–1-1-onto→𝐾)
224		f1ofn 6835	. . . . . . 7 ⊢ (𝑐:𝐾–1-1-onto→𝐾 → 𝑐 Fn 𝐾)
225	223, 224	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝑐 Fn 𝐾)
226	115	adantr 482	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → 𝐾 ⊆ (1...(𝑁 + 1)))
227	217, 226	fnssresd 6675	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏 ↾ 𝐾) Fn 𝐾)
228		eqfnfv 7033	. . . . . 6 ⊢ ((𝑐 Fn 𝐾 ∧ (𝑏 ↾ 𝐾) Fn 𝐾) → (𝑐 = (𝑏 ↾ 𝐾) ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦)))
229	225, 227, 228	syl2anc 585	. . . . 5 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑐 = (𝑏 ↾ 𝐾) ↔ ∀𝑦 ∈ 𝐾 (𝑐‘𝑦) = ((𝑏 ↾ 𝐾)‘𝑦)))
230	216, 222, 229	3bitr4d 311	. . . 4 ⊢ ((𝜑 ∧ (𝑏 ∈ 𝐵 ∧ 𝑐 ∈ 𝐶)) → (𝑏 = (𝑐 ∪ {⟨1, 𝑀⟩, ⟨𝑀, 1⟩}) ↔ 𝑐 = (𝑏 ↾ 𝐾)))
231	12, 130, 190, 230	f1o2d 7660	. . 3 ⊢ (𝜑 → (𝑏 ∈ 𝐵 ↦ (𝑏 ↾ 𝐾)):𝐵–1-1-onto→𝐶)
232	11, 231	hasheqf1od 14313	. 2 ⊢ (𝜑 → (♯‘𝐵) = (♯‘𝐶))
233	128	fveq2i 6895	. . . 4 ⊢ (♯‘𝐶) = (♯‘{𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)})
234		fzfi 13937	. . . . . . 7 ⊢ (2...(𝑁 + 1)) ∈ Fin
235		diffi 9179	. . . . . . 7 ⊢ ((2...(𝑁 + 1)) ∈ Fin → ((2...(𝑁 + 1)) ∖ {𝑀}) ∈ Fin)
236	234, 235	ax-mp 5	. . . . . 6 ⊢ ((2...(𝑁 + 1)) ∖ {𝑀}) ∈ Fin
237	49, 236	eqeltri 2830	. . . . 5 ⊢ 𝐾 ∈ Fin
238	44	derangval 34158	. . . . 5 ⊢ (𝐾 ∈ Fin → (𝐷‘𝐾) = (♯‘{𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)}))
239	237, 238	ax-mp 5	. . . 4 ⊢ (𝐷‘𝐾) = (♯‘{𝑓 ∣ (𝑓:𝐾–1-1-onto→𝐾 ∧ ∀𝑦 ∈ 𝐾 (𝑓‘𝑦) ≠ 𝑦)})
240	44, 45	derangen2 34165	. . . . 5 ⊢ (𝐾 ∈ Fin → (𝐷‘𝐾) = (𝑆‘(♯‘𝐾)))
241	237, 240	ax-mp 5	. . . 4 ⊢ (𝐷‘𝐾) = (𝑆‘(♯‘𝐾))
242	233, 239, 241	3eqtr2ri 2768	. . 3 ⊢ (𝑆‘(♯‘𝐾)) = (♯‘𝐶)
243	50	simp3d 1145	. . . 4 ⊢ (𝜑 → (♯‘𝐾) = (𝑁 − 1))
244	243	fveq2d 6896	. . 3 ⊢ (𝜑 → (𝑆‘(♯‘𝐾)) = (𝑆‘(𝑁 − 1)))
245	242, 244	eqtr3id 2787	. 2 ⊢ (𝜑 → (♯‘𝐶) = (𝑆‘(𝑁 − 1)))
246	232, 245	eqtrd 2773	1 ⊢ (𝜑 → (♯‘𝐵) = (𝑆‘(𝑁 − 1)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 397 = wceq 1542 ∈ wcel 2107 {cab 2710 ≠ wne 2941 ∀wral 3062 ∃wrex 3071 {crab 3433 Vcvv 3475 ∖ cdif 3946 ∪ cun 3947 ∩ cin 3948 ⊆ wss 3949 ∅c0 4323 {csn 4629 {cpr 4631 ⟨cop 4635 ↦ cmpt 5232 ^◡ccnv 5676 ↾ cres 5679 Fun wfun 6538 Fn wfn 6539 ⟶wf 6540 –1-1→wf1 6541 –onto→wfo 6542 –1-1-onto→wf1o 6543 ‘cfv 6544 (class class class)co 7409 Fincfn 8939 1c1 11111 + caddc 11113 − cmin 11444 ℕcn 12212 2c2 12267 ℕ₀cn0 12472 ℤ_≥cuz 12822 ...cfz 13484 ♯chash 14290

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725 ax-cnex 11166 ax-resscn 11167 ax-1cn 11168 ax-icn 11169 ax-addcl 11170 ax-addrcl 11171 ax-mulcl 11172 ax-mulrcl 11173 ax-mulcom 11174 ax-addass 11175 ax-mulass 11176 ax-distr 11177 ax-i2m1 11178 ax-1ne0 11179 ax-1rid 11180 ax-rnegex 11181 ax-rrecex 11182 ax-cnre 11183 ax-pre-lttri 11184 ax-pre-lttrn 11185 ax-pre-ltadd 11186 ax-pre-mulgt0 11187

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-op 4636 df-uni 4910 df-int 4952 df-iun 5000 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5575 df-eprel 5581 df-po 5589 df-so 5590 df-fr 5632 df-we 5634 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-pred 6301 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-om 7856 df-1st 7975 df-2nd 7976 df-frecs 8266 df-wrecs 8297 df-recs 8371 df-rdg 8410 df-1o 8466 df-oadd 8470 df-er 8703 df-map 8822 df-pm 8823 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-dju 9896 df-card 9934 df-pnf 11250 df-mnf 11251 df-xr 11252 df-ltxr 11253 df-le 11254 df-sub 11446 df-neg 11447 df-nn 12213 df-2 12275 df-n0 12473 df-xnn0 12545 df-z 12559 df-uz 12823 df-fz 13485 df-hash 14291

This theorem is referenced by: subfacp1lem6 34176

W3C validator