supminfxr2 - Mathbox for Glauco Siliprandi

	Mathbox for Glauco Siliprandi		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > supminfxr2		Structured version Visualization version GIF version

Theorem supminfxr2 45472

Description: The extended real suprema of a set of extended reals is the extended real negative of the extended real infima of that set's image under extended real negation. (Contributed by Glauco Siliprandi, 2-Jan-2022.)

**Hypothesis**
Ref	Expression
supminfxr2.1	⊢ (𝜑 → 𝐴 ⊆ ℝ^*)

**Assertion**
Ref	Expression
supminfxr2	⊢ (𝜑 → sup(𝐴, ℝ^, < ) = -_𝑒inf({𝑥 ∈ ℝ^ ∣ -_𝑒𝑥 ∈ 𝐴}, ℝ^*, < ))

Distinct variable group: 𝑥,𝐴 Allowed substitution hint: 𝜑(𝑥)

Proof of Theorem supminfxr2 Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		xnegmnf 13177	. . . . . 6 ⊢ -_𝑒-∞ = +∞
2	1	eqcomi 2739	. . . . 5 ⊢ +∞ = -_𝑒-∞
3	2	a1i 11	. . . 4 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → +∞ = -_𝑒-∞)
4		supminfxr2.1	. . . . 5 ⊢ (𝜑 → 𝐴 ⊆ ℝ^*)
5		supxrpnf 13285	. . . . 5 ⊢ ((𝐴 ⊆ ℝ^* ∧ +∞ ∈ 𝐴) → sup(𝐴, ℝ^*, < ) = +∞)
6	4, 5	sylan 580	. . . 4 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → sup(𝐴, ℝ^*, < ) = +∞)
7		ssrab2 4046	. . . . . . . 8 ⊢ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ⊆ ℝ^*
8	7	a1i 11	. . . . . . 7 ⊢ (+∞ ∈ 𝐴 → {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ⊆ ℝ^*)
9		xnegeq 13174	. . . . . . . . . 10 ⊢ (𝑦 = -∞ → -_𝑒𝑦 = -_𝑒-∞)
10	1	a1i 11	. . . . . . . . . 10 ⊢ (𝑦 = -∞ → -_𝑒-∞ = +∞)
11	9, 10	eqtrd 2765	. . . . . . . . 9 ⊢ (𝑦 = -∞ → -_𝑒𝑦 = +∞)
12	11	eleq1d 2814	. . . . . . . 8 ⊢ (𝑦 = -∞ → (-_𝑒𝑦 ∈ 𝐴 ↔ +∞ ∈ 𝐴))
13		mnfxr 11238	. . . . . . . . 9 ⊢ -∞ ∈ ℝ^*
14	13	a1i 11	. . . . . . . 8 ⊢ (+∞ ∈ 𝐴 → -∞ ∈ ℝ^*)
15		id 22	. . . . . . . 8 ⊢ (+∞ ∈ 𝐴 → +∞ ∈ 𝐴)
16	12, 14, 15	elrabd 3664	. . . . . . 7 ⊢ (+∞ ∈ 𝐴 → -∞ ∈ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴})
17		infxrmnf 13305	. . . . . . 7 ⊢ (({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ⊆ ℝ^* ∧ -∞ ∈ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}) → inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ) = -∞)
18	8, 16, 17	syl2anc 584	. . . . . 6 ⊢ (+∞ ∈ 𝐴 → inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ) = -∞)
19	18	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ) = -∞)
20	19	xnegeqd 45440	. . . 4 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → -_𝑒inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ) = -_𝑒-∞)
21	3, 6, 20	3eqtr4d 2775	. . 3 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → sup(𝐴, ℝ^, < ) = -_𝑒inf({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ))
22	4	ssdifssd 4113	. . . . . . 7 ⊢ (𝜑 → (𝐴 ∖ {-∞}) ⊆ ℝ^*)
23	22	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → (𝐴 ∖ {-∞}) ⊆ ℝ^*)
24		difssd 4103	. . . . . . . 8 ⊢ (¬ +∞ ∈ 𝐴 → (𝐴 ∖ {-∞}) ⊆ 𝐴)
25		id 22	. . . . . . . 8 ⊢ (¬ +∞ ∈ 𝐴 → ¬ +∞ ∈ 𝐴)
26		ssnel 45044	. . . . . . . 8 ⊢ (((𝐴 ∖ {-∞}) ⊆ 𝐴 ∧ ¬ +∞ ∈ 𝐴) → ¬ +∞ ∈ (𝐴 ∖ {-∞}))
27	24, 25, 26	syl2anc 584	. . . . . . 7 ⊢ (¬ +∞ ∈ 𝐴 → ¬ +∞ ∈ (𝐴 ∖ {-∞}))
28	27	adantl 481	. . . . . 6 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → ¬ +∞ ∈ (𝐴 ∖ {-∞}))
29		neldifsnd 4760	. . . . . 6 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → ¬ -∞ ∈ (𝐴 ∖ {-∞}))
30	23, 28, 29	xrssre 45351	. . . . 5 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → (𝐴 ∖ {-∞}) ⊆ ℝ)
31	30	supminfxr 45467	. . . 4 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → sup((𝐴 ∖ {-∞}), ℝ^, < ) = -_𝑒inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ^, < ))
32		supxrmnf2 45436	. . . . . . 7 ⊢ (𝐴 ⊆ ℝ^* → sup((𝐴 ∖ {-∞}), ℝ^, < ) = sup(𝐴, ℝ^, < ))
33	4, 32	syl 17	. . . . . 6 ⊢ (𝜑 → sup((𝐴 ∖ {-∞}), ℝ^, < ) = sup(𝐴, ℝ^, < ))
34	33	eqcomd 2736	. . . . 5 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) = sup((𝐴 ∖ {-∞}), ℝ^, < ))
35	34	adantr 480	. . . 4 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → sup(𝐴, ℝ^, < ) = sup((𝐴 ∖ {-∞}), ℝ^, < ))
36		rexr 11227	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ℝ^*)
37	36	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ ℝ^*)
38		simpl 482	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ ℝ)
39	38	rexnegd 45144	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → -_𝑒𝑦 = -𝑦)
40		eldifi 4097	. . . . . . . . . . . . . . . . . 18 ⊢ (-𝑦 ∈ (𝐴 ∖ {-∞}) → -𝑦 ∈ 𝐴)
41	40	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → -𝑦 ∈ 𝐴)
42	39, 41	eqeltrd 2829	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → -_𝑒𝑦 ∈ 𝐴)
43	37, 42	jca 511	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → (𝑦 ∈ ℝ^* ∧ -_𝑒𝑦 ∈ 𝐴))
44		rabid 3430	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ↔ (𝑦 ∈ ℝ^* ∧ -_𝑒𝑦 ∈ 𝐴))
45	43, 44	sylibr 234	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴})
46		renepnf 11229	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ ℝ → 𝑦 ≠ +∞)
47		elsni 4609	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ {+∞} → 𝑦 = +∞)
48	47	necon3ai 2951	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ≠ +∞ → ¬ 𝑦 ∈ {+∞})
49	46, 48	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ℝ → ¬ 𝑦 ∈ {+∞})
50	38, 49	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → ¬ 𝑦 ∈ {+∞})
51	45, 50	eldifd 3928	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}))
52	51	ex 412	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ℝ → (-𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})))
53	52	rgen 3047	. . . . . . . . . . 11 ⊢ ∀𝑦 ∈ ℝ (-𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}))
54	53	a1i 11	. . . . . . . . . 10 ⊢ (¬ +∞ ∈ 𝐴 → ∀𝑦 ∈ ℝ (-𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})))
55		nfrab1 3429	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦{𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}
56		nfcv 2892	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦{+∞}
57	55, 56	nfdif 4095	. . . . . . . . . . 11 ⊢ Ⅎ𝑦({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})
58	57	rabssf 45120	. . . . . . . . . 10 ⊢ ({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} ⊆ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ↔ ∀𝑦 ∈ ℝ (-𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})))
59	54, 58	sylibr 234	. . . . . . . . 9 ⊢ (¬ +∞ ∈ 𝐴 → {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} ⊆ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}))
60		nfv 1914	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦 ¬ +∞ ∈ 𝐴
61		nfcv 2892	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦ℝ
62		eldifi 4097	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) → 𝑦 ∈ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴})
63	7, 62	sselid 3947	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) → 𝑦 ∈ ℝ^*)
64	63	adantl 481	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ∈ ℝ^*)
65	44	simprbi 496	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} → -_𝑒𝑦 ∈ 𝐴)
66	62, 65	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) → -_𝑒𝑦 ∈ 𝐴)
67	12	biimpac 478	. . . . . . . . . . . . . . . . 17 ⊢ ((-_𝑒𝑦 ∈ 𝐴 ∧ 𝑦 = -∞) → +∞ ∈ 𝐴)
68	67	adantll 714	. . . . . . . . . . . . . . . 16 ⊢ (((¬ +∞ ∈ 𝐴 ∧ -_𝑒𝑦 ∈ 𝐴) ∧ 𝑦 = -∞) → +∞ ∈ 𝐴)
69		simpll 766	. . . . . . . . . . . . . . . 16 ⊢ (((¬ +∞ ∈ 𝐴 ∧ -_𝑒𝑦 ∈ 𝐴) ∧ 𝑦 = -∞) → ¬ +∞ ∈ 𝐴)
70	68, 69	pm2.65da 816	. . . . . . . . . . . . . . 15 ⊢ ((¬ +∞ ∈ 𝐴 ∧ -_𝑒𝑦 ∈ 𝐴) → ¬ 𝑦 = -∞)
71	70	neqned 2933	. . . . . . . . . . . . . 14 ⊢ ((¬ +∞ ∈ 𝐴 ∧ -_𝑒𝑦 ∈ 𝐴) → 𝑦 ≠ -∞)
72	66, 71	sylan2 593	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ≠ -∞)
73		eldifsni 4757	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) → 𝑦 ≠ +∞)
74	73	adantl 481	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ≠ +∞)
75	64, 72, 74	xrred 45368	. . . . . . . . . . . 12 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ∈ ℝ)
76	60, 57, 61, 75	ssdf2 45142	. . . . . . . . . . 11 ⊢ (¬ +∞ ∈ 𝐴 → ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ ℝ)
77	75	rexnegd 45144	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → -_𝑒𝑦 = -𝑦)
78	66	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → -_𝑒𝑦 ∈ 𝐴)
79	63	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -_𝑒𝑦 ∈ {-∞}) → 𝑦 ∈ ℝ^*)
80		elsni 4609	. . . . . . . . . . . . . . . . . 18 ⊢ (-_𝑒𝑦 ∈ {-∞} → -_𝑒𝑦 = -∞)
81	80	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -_𝑒𝑦 ∈ {-∞}) → -_𝑒𝑦 = -∞)
82		xnegeq 13174	. . . . . . . . . . . . . . . . . . . 20 ⊢ (-_𝑒𝑦 = -∞ → -_𝑒-_𝑒𝑦 = -_𝑒-∞)
83	1	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (-_𝑒𝑦 = -∞ → -_𝑒-∞ = +∞)
84	82, 83	eqtr2d 2766	. . . . . . . . . . . . . . . . . . 19 ⊢ (-_𝑒𝑦 = -∞ → +∞ = -_𝑒-_𝑒𝑦)
85	84	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ ℝ^* ∧ -_𝑒𝑦 = -∞) → +∞ = -_𝑒-_𝑒𝑦)
86		xnegneg 13181	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 ∈ ℝ^* → -_𝑒-_𝑒𝑦 = 𝑦)
87	86	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ ℝ^* ∧ -_𝑒𝑦 = -∞) → -_𝑒-_𝑒𝑦 = 𝑦)
88	85, 87	eqtr2d 2766	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ^* ∧ -_𝑒𝑦 = -∞) → 𝑦 = +∞)
89	79, 81, 88	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -_𝑒𝑦 ∈ {-∞}) → 𝑦 = +∞)
90	73	neneqd 2931	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) → ¬ 𝑦 = +∞)
91	90	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -_𝑒𝑦 ∈ {-∞}) → ¬ 𝑦 = +∞)
92	89, 91	pm2.65da 816	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) → ¬ -_𝑒𝑦 ∈ {-∞})
93	92	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → ¬ -_𝑒𝑦 ∈ {-∞})
94	78, 93	eldifd 3928	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → -_𝑒𝑦 ∈ (𝐴 ∖ {-∞}))
95	77, 94	eqeltrrd 2830	. . . . . . . . . . . 12 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})) → -𝑦 ∈ (𝐴 ∖ {-∞}))
96	95	ralrimiva 3126	. . . . . . . . . . 11 ⊢ (¬ +∞ ∈ 𝐴 → ∀𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})-𝑦 ∈ (𝐴 ∖ {-∞}))
97	76, 96	jca 511	. . . . . . . . . 10 ⊢ (¬ +∞ ∈ 𝐴 → (({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ ℝ ∧ ∀𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})-𝑦 ∈ (𝐴 ∖ {-∞})))
98	57, 61	ssrabf 45115	. . . . . . . . . 10 ⊢ (({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} ↔ (({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ ℝ ∧ ∀𝑦 ∈ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞})-𝑦 ∈ (𝐴 ∖ {-∞})))
99	97, 98	sylibr 234	. . . . . . . . 9 ⊢ (¬ +∞ ∈ 𝐴 → ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})})
100	59, 99	eqssd 3967	. . . . . . . 8 ⊢ (¬ +∞ ∈ 𝐴 → {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} = ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}))
101	100	infeq1d 9436	. . . . . . 7 ⊢ (¬ +∞ ∈ 𝐴 → inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ^, < ) = inf(({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}), ℝ^*, < ))
102		infxrpnf2 45466	. . . . . . . . 9 ⊢ ({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ⊆ ℝ^* → inf(({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}), ℝ^, < ) = inf({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ))
103	7, 102	ax-mp 5	. . . . . . . 8 ⊢ inf(({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}), ℝ^, < ) = inf({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < )
104	103	a1i 11	. . . . . . 7 ⊢ (¬ +∞ ∈ 𝐴 → inf(({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} ∖ {+∞}), ℝ^, < ) = inf({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ))
105	101, 104	eqtr2d 2766	. . . . . 6 ⊢ (¬ +∞ ∈ 𝐴 → inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^, < ) = inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ^, < ))
106	105	xnegeqd 45440	. . . . 5 ⊢ (¬ +∞ ∈ 𝐴 → -_𝑒inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^, < ) = -_𝑒inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ^, < ))
107	106	adantl 481	. . . 4 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → -_𝑒inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^, < ) = -_𝑒inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ^, < ))
108	31, 35, 107	3eqtr4d 2775	. . 3 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → sup(𝐴, ℝ^, < ) = -_𝑒inf({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ))
109	21, 108	pm2.61dan 812	. 2 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) = -_𝑒inf({𝑦 ∈ ℝ^ ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^*, < ))
110		xnegeq 13174	. . . . . . 7 ⊢ (𝑦 = 𝑥 → -_𝑒𝑦 = -_𝑒𝑥)
111	110	eleq1d 2814	. . . . . 6 ⊢ (𝑦 = 𝑥 → (-_𝑒𝑦 ∈ 𝐴 ↔ -_𝑒𝑥 ∈ 𝐴))
112	111	cbvrabv 3419	. . . . 5 ⊢ {𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴} = {𝑥 ∈ ℝ^* ∣ -_𝑒𝑥 ∈ 𝐴}
113	112	infeq1i 9437	. . . 4 ⊢ inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^, < ) = inf({𝑥 ∈ ℝ^ ∣ -_𝑒𝑥 ∈ 𝐴}, ℝ^*, < )
114	113	xnegeqi 45443	. . 3 ⊢ -_𝑒inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^, < ) = -_𝑒inf({𝑥 ∈ ℝ^ ∣ -_𝑒𝑥 ∈ 𝐴}, ℝ^*, < )
115	114	a1i 11	. 2 ⊢ (𝜑 → -_𝑒inf({𝑦 ∈ ℝ^* ∣ -_𝑒𝑦 ∈ 𝐴}, ℝ^, < ) = -_𝑒inf({𝑥 ∈ ℝ^ ∣ -_𝑒𝑥 ∈ 𝐴}, ℝ^*, < ))
116	109, 115	eqtrd 2765	1 ⊢ (𝜑 → sup(𝐴, ℝ^, < ) = -_𝑒inf({𝑥 ∈ ℝ^ ∣ -_𝑒𝑥 ∈ 𝐴}, ℝ^*, < ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ≠ wne 2926 ∀wral 3045 {crab 3408 ∖ cdif 3914 ⊆ wss 3917 {csn 4592 supcsup 9398 infcinf 9399 ℝcr 11074 +∞cpnf 11212 -∞cmnf 11213 ℝ^*cxr 11214 < clt 11215 -cneg 11413 -_𝑒cxne 13076

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-sep 5254 ax-nul 5264 ax-pow 5323 ax-pr 5390 ax-un 7714 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152 ax-pre-sup 11153

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3356 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3757 df-csb 3866 df-dif 3920 df-un 3922 df-in 3924 df-ss 3934 df-nul 4300 df-if 4492 df-pw 4568 df-sn 4593 df-pr 4595 df-op 4599 df-uni 4875 df-br 5111 df-opab 5173 df-mpt 5192 df-id 5536 df-po 5549 df-so 5550 df-xp 5647 df-rel 5648 df-cnv 5649 df-co 5650 df-dm 5651 df-rn 5652 df-res 5653 df-ima 5654 df-iota 6467 df-fun 6516 df-fn 6517 df-f 6518 df-f1 6519 df-fo 6520 df-f1o 6521 df-fv 6522 df-isom 6523 df-riota 7347 df-ov 7393 df-oprab 7394 df-mpo 7395 df-er 8674 df-en 8922 df-dom 8923 df-sdom 8924 df-sup 9400 df-inf 9401 df-pnf 11217 df-mnf 11218 df-xr 11219 df-ltxr 11220 df-le 11221 df-sub 11414 df-neg 11415 df-xneg 13079

This theorem is referenced by: supminfxrrnmpt 45474 liminfvalxr 45788

W3C validator