Theorem cnrefiisplem 42117

Description: Lemma for cnrefiisp 42118 (some local definitions are used). (Contributed by Glauco Siliprandi, 5-Feb-2022.)

Hypotheses

Ref	Expression
cnrefiisplem.a	⊢ (𝜑 → 𝐴 ∈ ℂ)
cnrefiisplem.n	⊢ (𝜑 → ¬ 𝐴 ∈ ℝ)
cnrefiisplem.b	⊢ (𝜑 → 𝐵 ∈ Fin)
cnrefiisplem.c	⊢ 𝐶 = (ℝ ∪ 𝐵)
cnrefiisplem.d	⊢ 𝐷 = ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))})
cnrefiisplem.x	⊢ 𝑋 = inf(𝐷, ℝ*, < )

Assertion

Ref	Expression
cnrefiisplem	⊢ (𝜑 → ∃𝑥 ∈ ℝ+ ∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑥 ≤ (abs‘(𝑦 − 𝐴))))

Distinct variable groups:   𝑦,𝐴,𝑥   𝑦,𝐵   𝑥,𝐶   𝑥,𝑋,𝑦   𝜑,𝑦

Allowed substitution hints:   𝜑(𝑥)   𝐵(𝑥)   𝐶(𝑦)   𝐷(𝑥,𝑦)

Proof of Theorem cnrefiisplem

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 = (abs‘(ℑ‘𝐴))) → 𝑤 = (abs‘(ℑ‘𝐴)))
2		cnrefiisplem.a	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ ℂ)
3		cnrefiisplem.n	. . . . . . . . 9 ⊢ (𝜑 → ¬ 𝐴 ∈ ℝ)
4	2, 3	absimnre 41760	. . . . . . . 8 ⊢ (𝜑 → (abs‘(ℑ‘𝐴)) ∈ ℝ+)
5	4	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 = (abs‘(ℑ‘𝐴))) → (abs‘(ℑ‘𝐴)) ∈ ℝ+)
6	1, 5	eqeltrd 2915	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 = (abs‘(ℑ‘𝐴))) → 𝑤 ∈ ℝ+)
7	6	adantlr 713	. . . . 5 ⊢ (((𝜑 ∧ 𝑤 ∈ 𝐷) ∧ 𝑤 = (abs‘(ℑ‘𝐴))) → 𝑤 ∈ ℝ+)
8		simpll 765	. . . . . 6 ⊢ (((𝜑 ∧ 𝑤 ∈ 𝐷) ∧ 𝑤 ≠ (abs‘(ℑ‘𝐴))) → 𝜑)
9		cnrefiisplem.d	. . . . . . . . . . . 12 ⊢ 𝐷 = ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))})
10	9	eleq2i 2906	. . . . . . . . . . 11 ⊢ (𝑤 ∈ 𝐷 ↔ 𝑤 ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}))
11	10	biimpi 218	. . . . . . . . . 10 ⊢ (𝑤 ∈ 𝐷 → 𝑤 ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}))
12		nelsn 4607	. . . . . . . . . 10 ⊢ (𝑤 ≠ (abs‘(ℑ‘𝐴)) → ¬ 𝑤 ∈ {(abs‘(ℑ‘𝐴))})
13		elunnel1 4128	. . . . . . . . . 10 ⊢ ((𝑤 ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}) ∧ ¬ 𝑤 ∈ {(abs‘(ℑ‘𝐴))}) → 𝑤 ∈ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))})
14	11, 12, 13	syl2an 597	. . . . . . . . 9 ⊢ ((𝑤 ∈ 𝐷 ∧ 𝑤 ≠ (abs‘(ℑ‘𝐴))) → 𝑤 ∈ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))})
15		eliun 4925	. . . . . . . . 9 ⊢ (𝑤 ∈ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))} ↔ ∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 ∈ {(abs‘(𝑦 − 𝐴))})
16	14, 15	sylib 220	. . . . . . . 8 ⊢ ((𝑤 ∈ 𝐷 ∧ 𝑤 ≠ (abs‘(ℑ‘𝐴))) → ∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 ∈ {(abs‘(𝑦 − 𝐴))})
17		velsn 4585	. . . . . . . . 9 ⊢ (𝑤 ∈ {(abs‘(𝑦 − 𝐴))} ↔ 𝑤 = (abs‘(𝑦 − 𝐴)))
18	17	rexbii 3249	. . . . . . . 8 ⊢ (∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 ∈ {(abs‘(𝑦 − 𝐴))} ↔ ∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 = (abs‘(𝑦 − 𝐴)))
19	16, 18	sylib 220	. . . . . . 7 ⊢ ((𝑤 ∈ 𝐷 ∧ 𝑤 ≠ (abs‘(ℑ‘𝐴))) → ∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 = (abs‘(𝑦 − 𝐴)))
20	19	adantll 712	. . . . . 6 ⊢ (((𝜑 ∧ 𝑤 ∈ 𝐷) ∧ 𝑤 ≠ (abs‘(ℑ‘𝐴))) → ∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 = (abs‘(𝑦 − 𝐴)))
21		simpr 487	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → 𝑤 = (abs‘(𝑦 − 𝐴)))
22		eldifi 4105	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}) → 𝑦 ∈ (𝐵 ∩ ℂ))
23	22	elin2d 4178	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}) → 𝑦 ∈ ℂ)
24	23	ad2antlr 725	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → 𝑦 ∈ ℂ)
25	2	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → 𝐴 ∈ ℂ)
26	24, 25	subcld 10999	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → (𝑦 − 𝐴) ∈ ℂ)
27		eldifsni 4724	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}) → 𝑦 ≠ 𝐴)
28	27	ad2antlr 725	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → 𝑦 ≠ 𝐴)
29	24, 25, 28	subne0d 11008	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → (𝑦 − 𝐴) ≠ 0)
30	26, 29	absrpcld 14810	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → (abs‘(𝑦 − 𝐴)) ∈ ℝ+)
31	21, 30	eqeltrd 2915	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})) ∧ 𝑤 = (abs‘(𝑦 − 𝐴))) → 𝑤 ∈ ℝ+)
32	31	rexlimdva2 3289	. . . . . 6 ⊢ (𝜑 → (∃𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴})𝑤 = (abs‘(𝑦 − 𝐴)) → 𝑤 ∈ ℝ+))
33	8, 20, 32	sylc 65	. . . . 5 ⊢ (((𝜑 ∧ 𝑤 ∈ 𝐷) ∧ 𝑤 ≠ (abs‘(ℑ‘𝐴))) → 𝑤 ∈ ℝ+)
34	7, 33	pm2.61dane 3106	. . . 4 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → 𝑤 ∈ ℝ+)
35	34	ssd 41351	. . 3 ⊢ (𝜑 → 𝐷 ⊆ ℝ+)
36		cnrefiisplem.x	. . . 4 ⊢ 𝑋 = inf(𝐷, ℝ*, < )
37		xrltso 12537	. . . . . 6 ⊢ < Or ℝ*
38	37	a1i 11	. . . . 5 ⊢ (𝜑 → < Or ℝ*)
39		snfi 8596	. . . . . . . 8 ⊢ {(abs‘(ℑ‘𝐴))} ∈ Fin
40	39	a1i 11	. . . . . . 7 ⊢ (𝜑 → {(abs‘(ℑ‘𝐴))} ∈ Fin)
41		cnrefiisplem.b	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ Fin)
42		inss1 4207	. . . . . . . . . . 11 ⊢ (𝐵 ∩ ℂ) ⊆ 𝐵
43	42	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 ∩ ℂ) ⊆ 𝐵)
44	43	ssdifssd 4121	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 ∩ ℂ) ∖ {𝐴}) ⊆ 𝐵)
45	41, 44	ssfid 8743	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 ∩ ℂ) ∖ {𝐴}) ∈ Fin)
46		snfi 8596	. . . . . . . . 9 ⊢ {(abs‘(𝑦 − 𝐴))} ∈ Fin
47	46	rgenw 3152	. . . . . . . 8 ⊢ ∀𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))} ∈ Fin
48		iunfi 8814	. . . . . . . 8 ⊢ ((((𝐵 ∩ ℂ) ∖ {𝐴}) ∈ Fin ∧ ∀𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))} ∈ Fin) → ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))} ∈ Fin)
49	45, 47, 48	sylancl 588	. . . . . . 7 ⊢ (𝜑 → ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))} ∈ Fin)
50	40, 49	unfid 41429	. . . . . 6 ⊢ (𝜑 → ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}) ∈ Fin)
51	9, 50	eqeltrid 2919	. . . . 5 ⊢ (𝜑 → 𝐷 ∈ Fin)
52		fvex 6685	. . . . . . . . . 10 ⊢ (abs‘(ℑ‘𝐴)) ∈ V
53	52	snid 4603	. . . . . . . . 9 ⊢ (abs‘(ℑ‘𝐴)) ∈ {(abs‘(ℑ‘𝐴))}
54		elun1 4154	. . . . . . . . 9 ⊢ ((abs‘(ℑ‘𝐴)) ∈ {(abs‘(ℑ‘𝐴))} → (abs‘(ℑ‘𝐴)) ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}))
55	53, 54	ax-mp 5	. . . . . . . 8 ⊢ (abs‘(ℑ‘𝐴)) ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))})
56	55, 9	eleqtrri 2914	. . . . . . 7 ⊢ (abs‘(ℑ‘𝐴)) ∈ 𝐷
57	56	a1i 11	. . . . . 6 ⊢ (𝜑 → (abs‘(ℑ‘𝐴)) ∈ 𝐷)
58	57	ne0d 4303	. . . . 5 ⊢ (𝜑 → 𝐷 ≠ ∅)
59		rpssxr 41764	. . . . . 6 ⊢ ℝ+ ⊆ ℝ*
60	35, 59	sstrdi 3981	. . . . 5 ⊢ (𝜑 → 𝐷 ⊆ ℝ*)
61		fiinfcl 8967	. . . . 5 ⊢ (( < Or ℝ* ∧ (𝐷 ∈ Fin ∧ 𝐷 ≠ ∅ ∧ 𝐷 ⊆ ℝ*)) → inf(𝐷, ℝ*, < ) ∈ 𝐷)
62	38, 51, 58, 60, 61	syl13anc 1368	. . . 4 ⊢ (𝜑 → inf(𝐷, ℝ*, < ) ∈ 𝐷)
63	36, 62	eqeltrid 2919	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
64	35, 63	sseldd 3970	. 2 ⊢ (𝜑 → 𝑋 ∈ ℝ+)
65	35, 62	sseldd 3970	. . . . . . . . . 10 ⊢ (𝜑 → inf(𝐷, ℝ*, < ) ∈ ℝ+)
66	65	rpred 12434	. . . . . . . . 9 ⊢ (𝜑 → inf(𝐷, ℝ*, < ) ∈ ℝ)
67	66	adantr 483	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → inf(𝐷, ℝ*, < ) ∈ ℝ)
68	2	imcld 14556	. . . . . . . . . . 11 ⊢ (𝜑 → (ℑ‘𝐴) ∈ ℝ)
69	68	recnd 10671	. . . . . . . . . 10 ⊢ (𝜑 → (ℑ‘𝐴) ∈ ℂ)
70	69	adantr 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (ℑ‘𝐴) ∈ ℂ)
71	70	abscld 14798	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (abs‘(ℑ‘𝐴)) ∈ ℝ)
72		recn 10629	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ℂ)
73	72	adantl 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ℂ)
74	2	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝐴 ∈ ℂ)
75	73, 74	subcld 10999	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (𝑦 − 𝐴) ∈ ℂ)
76	75	abscld 14798	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (abs‘(𝑦 − 𝐴)) ∈ ℝ)
77	60	adantr 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝐷 ⊆ ℝ*)
78		infxrlb 12730	. . . . . . . . 9 ⊢ ((𝐷 ⊆ ℝ* ∧ (abs‘(ℑ‘𝐴)) ∈ 𝐷) → inf(𝐷, ℝ*, < ) ≤ (abs‘(ℑ‘𝐴)))
79	77, 56, 78	sylancl 588	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → inf(𝐷, ℝ*, < ) ≤ (abs‘(ℑ‘𝐴)))
80		simpr 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
81	74, 80	absimlere 41763	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → (abs‘(ℑ‘𝐴)) ≤ (abs‘(𝑦 − 𝐴)))
82	67, 71, 76, 79, 81	letrd 10799	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → inf(𝐷, ℝ*, < ) ≤ (abs‘(𝑦 − 𝐴)))
83	36, 82	eqbrtrid 5103	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ ℝ) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))
84	83	ad4ant14 750	. . . . 5 ⊢ ((((𝜑 ∧ 𝑦 ∈ 𝐶) ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ 𝑦 ∈ ℝ) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))
85		cnrefiisplem.c	. . . . . . . . 9 ⊢ 𝐶 = (ℝ ∪ 𝐵)
86	85	eleq2i 2906	. . . . . . . 8 ⊢ (𝑦 ∈ 𝐶 ↔ 𝑦 ∈ (ℝ ∪ 𝐵))
87		elunnel1 4128	. . . . . . . 8 ⊢ ((𝑦 ∈ (ℝ ∪ 𝐵) ∧ ¬ 𝑦 ∈ ℝ) → 𝑦 ∈ 𝐵)
88	86, 87	sylanb 583	. . . . . . 7 ⊢ ((𝑦 ∈ 𝐶 ∧ ¬ 𝑦 ∈ ℝ) → 𝑦 ∈ 𝐵)
89	88	ad4ant24 752	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑦 ∈ 𝐶) ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ ¬ 𝑦 ∈ ℝ) → 𝑦 ∈ 𝐵)
90	60	ad2antrr 724	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ 𝑦 ∈ 𝐵) → 𝐷 ⊆ ℝ*)
91		simpr 487	. . . . . . . . . . . . . . . 16 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ 𝐵)
92		simpll 765	. . . . . . . . . . . . . . . 16 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ ℂ)
93	91, 92	elind 4173	. . . . . . . . . . . . . . 15 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ (𝐵 ∩ ℂ))
94		nelsn 4607	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ≠ 𝐴 → ¬ 𝑦 ∈ {𝐴})
95	94	ad2antlr 725	. . . . . . . . . . . . . . 15 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → ¬ 𝑦 ∈ {𝐴})
96	93, 95	eldifd 3949	. . . . . . . . . . . . . 14 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}))
97		fvex 6685	. . . . . . . . . . . . . . 15 ⊢ (abs‘(𝑦 − 𝐴)) ∈ V
98	97	snid 4603	. . . . . . . . . . . . . 14 ⊢ (abs‘(𝑦 − 𝐴)) ∈ {(abs‘(𝑦 − 𝐴))}
99		fvoveq1 7181	. . . . . . . . . . . . . . . 16 ⊢ (𝑤 = 𝑦 → (abs‘(𝑤 − 𝐴)) = (abs‘(𝑦 − 𝐴)))
100	99	sneqd 4581	. . . . . . . . . . . . . . 15 ⊢ (𝑤 = 𝑦 → {(abs‘(𝑤 − 𝐴))} = {(abs‘(𝑦 − 𝐴))})
101	100	eliuni 4927	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}) ∧ (abs‘(𝑦 − 𝐴)) ∈ {(abs‘(𝑦 − 𝐴))}) → (abs‘(𝑦 − 𝐴)) ∈ ∪ 𝑤 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑤 − 𝐴))})
102	96, 98, 101	sylancl 588	. . . . . . . . . . . . 13 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → (abs‘(𝑦 − 𝐴)) ∈ ∪ 𝑤 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑤 − 𝐴))})
103	100	cbviunv 4967	. . . . . . . . . . . . 13 ⊢ ∪ 𝑤 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑤 − 𝐴))} = ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}
104	102, 103	eleqtrdi 2925	. . . . . . . . . . . 12 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → (abs‘(𝑦 − 𝐴)) ∈ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))})
105		elun2 4155	. . . . . . . . . . . 12 ⊢ ((abs‘(𝑦 − 𝐴)) ∈ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))} → (abs‘(𝑦 − 𝐴)) ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}))
106	104, 105	syl 17	. . . . . . . . . . 11 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → (abs‘(𝑦 − 𝐴)) ∈ ({(abs‘(ℑ‘𝐴))} ∪ ∪ 𝑦 ∈ ((𝐵 ∩ ℂ) ∖ {𝐴}){(abs‘(𝑦 − 𝐴))}))
107	106, 9	eleqtrrdi 2926	. . . . . . . . . 10 ⊢ (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) ∧ 𝑦 ∈ 𝐵) → (abs‘(𝑦 − 𝐴)) ∈ 𝐷)
108	107	adantll 712	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ 𝑦 ∈ 𝐵) → (abs‘(𝑦 − 𝐴)) ∈ 𝐷)
109		infxrlb 12730	. . . . . . . . 9 ⊢ ((𝐷 ⊆ ℝ* ∧ (abs‘(𝑦 − 𝐴)) ∈ 𝐷) → inf(𝐷, ℝ*, < ) ≤ (abs‘(𝑦 − 𝐴)))
110	90, 108, 109	syl2anc 586	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ 𝑦 ∈ 𝐵) → inf(𝐷, ℝ*, < ) ≤ (abs‘(𝑦 − 𝐴)))
111	36, 110	eqbrtrid 5103	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ 𝑦 ∈ 𝐵) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))
112	111	adantllr 717	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑦 ∈ 𝐶) ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ 𝑦 ∈ 𝐵) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))
113	89, 112	syldan 593	. . . . 5 ⊢ ((((𝜑 ∧ 𝑦 ∈ 𝐶) ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) ∧ ¬ 𝑦 ∈ ℝ) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))
114	84, 113	pm2.61dan 811	. . . 4 ⊢ (((𝜑 ∧ 𝑦 ∈ 𝐶) ∧ (𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴)) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))
115	114	ex 415	. . 3 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐶) → ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑋 ≤ (abs‘(𝑦 − 𝐴))))
116	115	ralrimiva 3184	. 2 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑋 ≤ (abs‘(𝑦 − 𝐴))))
117		breq1 5071	. . . . 5 ⊢ (𝑥 = 𝑋 → (𝑥 ≤ (abs‘(𝑦 − 𝐴)) ↔ 𝑋 ≤ (abs‘(𝑦 − 𝐴))))
118	117	imbi2d 343	. . . 4 ⊢ (𝑥 = 𝑋 → (((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑥 ≤ (abs‘(𝑦 − 𝐴))) ↔ ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))))
119	118	ralbidv 3199	. . 3 ⊢ (𝑥 = 𝑋 → (∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑥 ≤ (abs‘(𝑦 − 𝐴))) ↔ ∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))))
120	119	rspcev 3625	. 2 ⊢ ((𝑋 ∈ ℝ+ ∧ ∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑋 ≤ (abs‘(𝑦 − 𝐴)))) → ∃𝑥 ∈ ℝ+ ∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑥 ≤ (abs‘(𝑦 − 𝐴))))
121	64, 116, 120	syl2anc 586	1 ⊢ (𝜑 → ∃𝑥 ∈ ℝ+ ∀𝑦 ∈ 𝐶 ((𝑦 ∈ ℂ ∧ 𝑦 ≠ 𝐴) → 𝑥 ≤ (abs‘(𝑦 − 𝐴))))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114   ≠ wne 3018  ∀wral 3140  ∃wrex 3141   ∖ cdif 3935   ∪ cun 3936   ∩ cin 3937   ⊆ wss 3938  ∅c0 4293  {csn 4569  ∪ ciun 4921   class class class wbr 5068   Or wor 5475  ‘cfv 6357  (class class class)co 7158  Fincfn 8511  infcinf 8907  ℂcc 10537  ℝcr 10538  ℝ^*cxr 10676   < clt 10677   ≤ cle 10678   − cmin 10872  ℝ⁺crp 12392  ℑcim 14459  abscabs 14595

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-oadd 8108  df-er 8291  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-sup 8908  df-inf 8909  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-n0 11901  df-z 11985  df-uz 12247  df-rp 12393  df-seq 13373  df-exp 13433  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597

This theorem is referenced by:  cnrefiisp  42118