Theorem kmlem12 10231

Description: Lemma for 5-quantifier AC of Kurt Maes, Th. 4, part of 3 => 4. (Contributed by NM, 27-Mar-2004.)

Hypothesis

Ref	Expression
kmlem9.1	⊢ 𝐴 = {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))}

Assertion

Ref	Expression
kmlem12	⊢ (∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅ → (∀𝑧 ∈ 𝐴 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) → ∀𝑧 ∈ 𝑥 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)))))

Distinct variable groups:   𝑥,𝑦,𝑧,𝑣,𝑢,𝑡   𝑦,𝐴,𝑧,𝑣

Allowed substitution hints:   𝐴(𝑥,𝑢,𝑡)

Proof of Theorem kmlem12

Step	Hyp	Ref	Expression
1		difeq1 4142	. . . . . . 7 ⊢ (𝑡 = 𝑧 → (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) = (𝑧 ∖ ∪ (𝑥 ∖ {𝑡})))
2		sneq 4658	. . . . . . . . . 10 ⊢ (𝑡 = 𝑧 → {𝑡} = {𝑧})
3	2	difeq2d 4149	. . . . . . . . 9 ⊢ (𝑡 = 𝑧 → (𝑥 ∖ {𝑡}) = (𝑥 ∖ {𝑧}))
4	3	unieqd 4944	. . . . . . . 8 ⊢ (𝑡 = 𝑧 → ∪ (𝑥 ∖ {𝑡}) = ∪ (𝑥 ∖ {𝑧}))
5	4	difeq2d 4149	. . . . . . 7 ⊢ (𝑡 = 𝑧 → (𝑧 ∖ ∪ (𝑥 ∖ {𝑡})) = (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})))
6	1, 5	eqtrd 2780	. . . . . 6 ⊢ (𝑡 = 𝑧 → (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) = (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})))
7	6	neeq1d 3006	. . . . 5 ⊢ (𝑡 = 𝑧 → ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ ↔ (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅))
8	7	cbvralvw 3243	. . . 4 ⊢ (∀𝑡 ∈ 𝑥 (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ ↔ ∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅)
9	6	ineq1d 4240	. . . . . . 7 ⊢ (𝑡 = 𝑧 → ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦) = ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦))
10	9	eleq2d 2830	. . . . . 6 ⊢ (𝑡 = 𝑧 → (𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦) ↔ 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦)))
11	10	eubidv 2589	. . . . 5 ⊢ (𝑡 = 𝑧 → (∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦) ↔ ∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦)))
12	11	cbvralvw 3243	. . . 4 ⊢ (∀𝑡 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦) ↔ ∀𝑧 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦))
13	8, 12	imbi12i 350	. . 3 ⊢ ((∀𝑡 ∈ 𝑥 (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∀𝑡 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)) ↔ (∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅ → ∀𝑧 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦)))
14		in12 4250	. . . . . . . . . 10 ⊢ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)) = (𝑦 ∩ (𝑧 ∩ ∪ 𝐴))
15		incom 4230	. . . . . . . . . 10 ⊢ (𝑦 ∩ (𝑧 ∩ ∪ 𝐴)) = ((𝑧 ∩ ∪ 𝐴) ∩ 𝑦)
16	14, 15	eqtri 2768	. . . . . . . . 9 ⊢ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)) = ((𝑧 ∩ ∪ 𝐴) ∩ 𝑦)
17		kmlem9.1	. . . . . . . . . . 11 ⊢ 𝐴 = {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))}
18	17	kmlem11 10230	. . . . . . . . . 10 ⊢ (𝑧 ∈ 𝑥 → (𝑧 ∩ ∪ 𝐴) = (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})))
19	18	ineq1d 4240	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑥 → ((𝑧 ∩ ∪ 𝐴) ∩ 𝑦) = ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦))
20	16, 19	eqtr2id 2793	. . . . . . . 8 ⊢ (𝑧 ∈ 𝑥 → ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦) = (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)))
21	20	eleq2d 2830	. . . . . . 7 ⊢ (𝑧 ∈ 𝑥 → (𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦) ↔ 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴))))
22	21	eubidv 2589	. . . . . 6 ⊢ (𝑧 ∈ 𝑥 → (∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦) ↔ ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴))))
23		ax-1 6	. . . . . 6 ⊢ (∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴))))
24	22, 23	biimtrdi 253	. . . . 5 ⊢ (𝑧 ∈ 𝑥 → (∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)))))
25	24	ralimia 3086	. . . 4 ⊢ (∀𝑧 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦) → ∀𝑧 ∈ 𝑥 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴))))
26	25	imim2i 16	. . 3 ⊢ ((∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅ → ∀𝑧 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ∩ 𝑦)) → (∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅ → ∀𝑧 ∈ 𝑥 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)))))
27	13, 26	sylbi 217	. 2 ⊢ ((∀𝑡 ∈ 𝑥 (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∀𝑡 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)) → (∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅ → ∀𝑧 ∈ 𝑥 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)))))
28	17	raleqi 3332	. . . 4 ⊢ (∀𝑧 ∈ 𝐴 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) ↔ ∀𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)))
29		df-ral 3068	. . . 4 ⊢ (∀𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) ↔ ∀𝑧(𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))))
30		vex 3492	. . . . . . . . 9 ⊢ 𝑧 ∈ V
31		eqeq1 2744	. . . . . . . . . 10 ⊢ (𝑢 = 𝑧 → (𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ↔ 𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))))
32	31	rexbidv 3185	. . . . . . . . 9 ⊢ (𝑢 = 𝑧 → (∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ↔ ∃𝑡 ∈ 𝑥 𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))))
33	30, 32	elab 3694	. . . . . . . 8 ⊢ (𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} ↔ ∃𝑡 ∈ 𝑥 𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})))
34	33	imbi1i 349	. . . . . . 7 ⊢ ((𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ (∃𝑡 ∈ 𝑥 𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))))
35		r19.23v 3189	. . . . . . 7 ⊢ (∀𝑡 ∈ 𝑥 (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ (∃𝑡 ∈ 𝑥 𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))))
36	34, 35	bitr4i 278	. . . . . 6 ⊢ ((𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ ∀𝑡 ∈ 𝑥 (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))))
37	36	albii 1817	. . . . 5 ⊢ (∀𝑧(𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ ∀𝑧∀𝑡 ∈ 𝑥 (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))))
38		ralcom4 3292	. . . . 5 ⊢ (∀𝑡 ∈ 𝑥 ∀𝑧(𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ ∀𝑧∀𝑡 ∈ 𝑥 (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))))
39		vex 3492	. . . . . . . 8 ⊢ 𝑡 ∈ V
40	39	difexi 5348	. . . . . . 7 ⊢ (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∈ V
41		neeq1 3009	. . . . . . . 8 ⊢ (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ ↔ (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅))
42		ineq1 4234	. . . . . . . . . 10 ⊢ (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ∩ 𝑦) = ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦))
43	42	eleq2d 2830	. . . . . . . . 9 ⊢ (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑣 ∈ (𝑧 ∩ 𝑦) ↔ 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
44	43	eubidv 2589	. . . . . . . 8 ⊢ (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦) ↔ ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
45	41, 44	imbi12d 344	. . . . . . 7 ⊢ (𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → ((𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) ↔ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦))))
46	40, 45	ceqsalv 3529	. . . . . 6 ⊢ (∀𝑧(𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
47	46	ralbii 3099	. . . . 5 ⊢ (∀𝑡 ∈ 𝑥 ∀𝑧(𝑧 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ ∀𝑡 ∈ 𝑥 ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
48	37, 38, 47	3bitr2i 299	. . . 4 ⊢ (∀𝑧(𝑧 ∈ {𝑢 ∣ ∃𝑡 ∈ 𝑥 𝑢 = (𝑡 ∖ ∪ (𝑥 ∖ {𝑡}))} → (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦))) ↔ ∀𝑡 ∈ 𝑥 ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
49	28, 29, 48	3bitri 297	. . 3 ⊢ (∀𝑧 ∈ 𝐴 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) ↔ ∀𝑡 ∈ 𝑥 ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
50		ralim 3092	. . 3 ⊢ (∀𝑡 ∈ 𝑥 ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)) → (∀𝑡 ∈ 𝑥 (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∀𝑡 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
51	49, 50	sylbi 217	. 2 ⊢ (∀𝑧 ∈ 𝐴 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) → (∀𝑡 ∈ 𝑥 (𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ≠ ∅ → ∀𝑡 ∈ 𝑥 ∃!𝑣 𝑣 ∈ ((𝑡 ∖ ∪ (𝑥 ∖ {𝑡})) ∩ 𝑦)))
52	27, 51	syl11 33	1 ⊢ (∀𝑧 ∈ 𝑥 (𝑧 ∖ ∪ (𝑥 ∖ {𝑧})) ≠ ∅ → (∀𝑧 ∈ 𝐴 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ 𝑦)) → ∀𝑧 ∈ 𝑥 (𝑧 ≠ ∅ → ∃!𝑣 𝑣 ∈ (𝑧 ∩ (𝑦 ∩ ∪ 𝐴)))))

Syntax hints:   → wi 4  ∀wal 1535   = wceq 1537   ∈ wcel 2108  ∃!weu 2571  {cab 2717   ≠ wne 2946  ∀wral 3067  ∃wrex 3076   ∖ cdif 3973   ∩ cin 3975  ∅c0 4352  {csn 4648  ∪ cuni 4931

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-11 2158  ax-ext 2711  ax-sep 5317

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-ne 2947  df-ral 3068  df-rex 3077  df-rab 3444  df-v 3490  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-sn 4649  df-uni 4932  df-iun 5017

This theorem is referenced by:  kmlem13  10232