Theorem supminfxr2 46684

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(𝐴, ℝ*, < ) = -einf({𝑥 ∈ ℝ* ∣ -e𝑥 ∈ 𝐴}, ℝ*, < ))

Distinct variable group:   𝑥,𝐴

Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem supminfxr2

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		xnegmnf 13367	. . . . . 6 ⊢ -e-∞ = +∞
2	1	eqcomi 2772	. . . . 5 ⊢ +∞ = -e-∞
3	2	a1i 11	. . . 4 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → +∞ = -e-∞)
4		supminfxr2.1	. . . . 5 ⊢ (𝜑 → 𝐴 ⊆ ℝ*)
5		supxrpnf 13475	. . . . 5 ⊢ ((𝐴 ⊆ ℝ* ∧ +∞ ∈ 𝐴) → sup(𝐴, ℝ*, < ) = +∞)
6	4, 5	sylan 592	. . . 4 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → sup(𝐴, ℝ*, < ) = +∞)
7		ssrab2 4008	. . . . . . . 8 ⊢ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ⊆ ℝ*
8	7	a1i 11	. . . . . . 7 ⊢ (+∞ ∈ 𝐴 → {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ⊆ ℝ*)
9		xnegeq 13364	. . . . . . . . . 10 ⊢ (𝑦 = -∞ → -e𝑦 = -e-∞)
10	1	a1i 11	. . . . . . . . . 10 ⊢ (𝑦 = -∞ → -e-∞ = +∞)
11	9, 10	eqtrd 2798	. . . . . . . . 9 ⊢ (𝑦 = -∞ → -e𝑦 = +∞)
12	11	eleq1d 2849	. . . . . . . 8 ⊢ (𝑦 = -∞ → ( -e𝑦 ∈ 𝐴 ↔ +∞ ∈ 𝐴))
13		mnfxr 11393	. . . . . . . . 9 ⊢ -∞ ∈ ℝ*
14	13	a1i 11	. . . . . . . 8 ⊢ (+∞ ∈ 𝐴 → -∞ ∈ ℝ*)
15		id 23	. . . . . . . 8 ⊢ (+∞ ∈ 𝐴 → +∞ ∈ 𝐴)
16	12, 14, 15	elrabd 3650	. . . . . . 7 ⊢ (+∞ ∈ 𝐴 → -∞ ∈ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴})
17		infxrmnf 13495	. . . . . . 7 ⊢ (({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ⊆ ℝ* ∧ -∞ ∈ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}) → inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -∞)
18	8, 16, 17	syl2anc 596	. . . . . 6 ⊢ (+∞ ∈ 𝐴 → inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -∞)
19	18	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -∞)
20	19	xnegeqd 46652	. . . 4 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -e-∞)
21	3, 6, 20	3eqtr4d 2808	. . 3 ⊢ ((𝜑 ∧ +∞ ∈ 𝐴) → sup(𝐴, ℝ*, < ) = -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ))
22	4	ssdifssd 4086	. . . . . . 7 ⊢ (𝜑 → (𝐴 ∖ {-∞}) ⊆ ℝ*)
23	22	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → (𝐴 ∖ {-∞}) ⊆ ℝ*)
24		difssd 4076	. . . . . . . 8 ⊢ (¬ +∞ ∈ 𝐴 → (𝐴 ∖ {-∞}) ⊆ 𝐴)
25		id 23	. . . . . . . 8 ⊢ (¬ +∞ ∈ 𝐴 → ¬ +∞ ∈ 𝐴)
26		ssnel 46265	. . . . . . . 8 ⊢ (((𝐴 ∖ {-∞}) ⊆ 𝐴 ∧ ¬ +∞ ∈ 𝐴) → ¬ +∞ ∈ (𝐴 ∖ {-∞}))
27	24, 25, 26	syl2anc 596	. . . . . . 7 ⊢ (¬ +∞ ∈ 𝐴 → ¬ +∞ ∈ (𝐴 ∖ {-∞}))
28	27	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → ¬ +∞ ∈ (𝐴 ∖ {-∞}))
29		neldifsnd 4756	. . . . . 6 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → ¬ -∞ ∈ (𝐴 ∖ {-∞}))
30	23, 28, 29	xrssre 46565	. . . . 5 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → (𝐴 ∖ {-∞}) ⊆ ℝ)
31	30	supminfxr 46679	. . . 4 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → sup((𝐴 ∖ {-∞}), ℝ*, < ) = -einf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ*, < ))
32		supxrmnf2 46648	. . . . . . 7 ⊢ (𝐴 ⊆ ℝ* → sup((𝐴 ∖ {-∞}), ℝ*, < ) = sup(𝐴, ℝ*, < ))
33	4, 32	syl 18	. . . . . 6 ⊢ (𝜑 → sup((𝐴 ∖ {-∞}), ℝ*, < ) = sup(𝐴, ℝ*, < ))
34	33	eqcomd 2769	. . . . 5 ⊢ (𝜑 → sup(𝐴, ℝ*, < ) = sup((𝐴 ∖ {-∞}), ℝ*, < ))
35	34	adantr 486	. . . 4 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → sup(𝐴, ℝ*, < ) = sup((𝐴 ∖ {-∞}), ℝ*, < ))
36		rexr 11382	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ℝ → 𝑦 ∈ ℝ*)
37	36	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ ℝ*)
38		simpl 488	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ ℝ)
39	38	rexnegd 46363	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → -e𝑦 = -𝑦)
40		eldifi 4070	. . . . . . . . . . . . . . . . . 18 ⊢ ( -𝑦 ∈ (𝐴 ∖ {-∞}) → -𝑦 ∈ 𝐴)
41	40	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → -𝑦 ∈ 𝐴)
42	39, 41	eqeltrd 2864	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → -e𝑦 ∈ 𝐴)
43	37, 42	jca 521	. . . . . . . . . . . . . . 15 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → (𝑦 ∈ ℝ* ∧ -e𝑦 ∈ 𝐴))
44		rabid 3436	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ↔ (𝑦 ∈ ℝ* ∧ -e𝑦 ∈ 𝐴))
45	43, 44	sylibr 237	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴})
46		renepnf 11384	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ ℝ → 𝑦 ≠ +∞)
47		elsni 4601	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ {+∞} → 𝑦 = +∞)
48	47	necon3ai 2984	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ≠ +∞ → ¬ 𝑦 ∈ {+∞})
49	46, 48	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ℝ → ¬ 𝑦 ∈ {+∞})
50	38, 49	syl 18	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → ¬ 𝑦 ∈ {+∞})
51	45, 50	eldifd 4053	. . . . . . . . . . . . 13 ⊢ ((𝑦 ∈ ℝ ∧ -𝑦 ∈ (𝐴 ∖ {-∞})) → 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}))
52	51	ex 418	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ℝ → ( -𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})))
53	52	rgen 3082	. . . . . . . . . . 11 ⊢ ∀𝑦 ∈ ℝ ( -𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}))
54	53	a1i 11	. . . . . . . . . 10 ⊢ (¬ +∞ ∈ 𝐴 → ∀𝑦 ∈ ℝ ( -𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})))
55		nfrab1 3435	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦{𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}
56		nfcv 2926	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦{+∞}
57	55, 56	nfdif 4069	. . . . . . . . . . 11 ⊢ Ⅎ𝑦({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})
58	57	rabssf 46339	. . . . . . . . . 10 ⊢ ({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} ⊆ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ↔ ∀𝑦 ∈ ℝ ( -𝑦 ∈ (𝐴 ∖ {-∞}) → 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})))
59	54, 58	sylibr 237	. . . . . . . . 9 ⊢ (¬ +∞ ∈ 𝐴 → {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} ⊆ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}))
60		nfv 1949	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦 ¬ +∞ ∈ 𝐴
61		nfcv 2926	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦ℝ
62		eldifi 4070	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) → 𝑦 ∈ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴})
63	7, 62	sselid 3911	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) → 𝑦 ∈ ℝ*)
64	63	adantl 487	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ∈ ℝ*)
65	44	simprbi 503	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} → -e𝑦 ∈ 𝐴)
66	62, 65	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) → -e𝑦 ∈ 𝐴)
67	12	biimpac 484	. . . . . . . . . . . . . . . . 17 ⊢ (( -e𝑦 ∈ 𝐴 ∧ 𝑦 = -∞) → +∞ ∈ 𝐴)
68	67	adantll 727	. . . . . . . . . . . . . . . 16 ⊢ (((¬ +∞ ∈ 𝐴 ∧ -e𝑦 ∈ 𝐴) ∧ 𝑦 = -∞) → +∞ ∈ 𝐴)
69		simpll 779	. . . . . . . . . . . . . . . 16 ⊢ (((¬ +∞ ∈ 𝐴 ∧ -e𝑦 ∈ 𝐴) ∧ 𝑦 = -∞) → ¬ +∞ ∈ 𝐴)
70	68, 69	pm2.65da 829	. . . . . . . . . . . . . . 15 ⊢ ((¬ +∞ ∈ 𝐴 ∧ -e𝑦 ∈ 𝐴) → ¬ 𝑦 = -∞)
71	70	neqned 2966	. . . . . . . . . . . . . 14 ⊢ ((¬ +∞ ∈ 𝐴 ∧ -e𝑦 ∈ 𝐴) → 𝑦 ≠ -∞)
72	66, 71	sylan2 605	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ≠ -∞)
73		eldifsni 4753	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) → 𝑦 ≠ +∞)
74	73	adantl 487	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ≠ +∞)
75	64, 72, 74	xrred 46581	. . . . . . . . . . . 12 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → 𝑦 ∈ ℝ)
76	60, 57, 61, 75	ssdf2 46361	. . . . . . . . . . 11 ⊢ (¬ +∞ ∈ 𝐴 → ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ ℝ)
77	75	rexnegd 46363	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → -e𝑦 = -𝑦)
78	66	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → -e𝑦 ∈ 𝐴)
79	63	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -e𝑦 ∈ {-∞}) → 𝑦 ∈ ℝ*)
80		elsni 4601	. . . . . . . . . . . . . . . . . 18 ⊢ ( -e𝑦 ∈ {-∞} → -e𝑦 = -∞)
81	80	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -e𝑦 ∈ {-∞}) → -e𝑦 = -∞)
82		xnegeq 13364	. . . . . . . . . . . . . . . . . . . 20 ⊢ ( -e𝑦 = -∞ → -e -e𝑦 = -e-∞)
83	1	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ ( -e𝑦 = -∞ → -e-∞ = +∞)
84	82, 83	eqtr2d 2799	. . . . . . . . . . . . . . . . . . 19 ⊢ ( -e𝑦 = -∞ → +∞ = -e -e𝑦)
85	84	adantl 487	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ ℝ* ∧ -e𝑦 = -∞) → +∞ = -e -e𝑦)
86		xnegneg 13371	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 ∈ ℝ* → -e -e𝑦 = 𝑦)
87	86	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑦 ∈ ℝ* ∧ -e𝑦 = -∞) → -e -e𝑦 = 𝑦)
88	85, 87	eqtr2d 2799	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑦 ∈ ℝ* ∧ -e𝑦 = -∞) → 𝑦 = +∞)
89	79, 81, 88	syl2anc 596	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -e𝑦 ∈ {-∞}) → 𝑦 = +∞)
90	73	neneqd 2964	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) → ¬ 𝑦 = +∞)
91	90	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ∧ -e𝑦 ∈ {-∞}) → ¬ 𝑦 = +∞)
92	89, 91	pm2.65da 829	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) → ¬ -e𝑦 ∈ {-∞})
93	92	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → ¬ -e𝑦 ∈ {-∞})
94	78, 93	eldifd 4053	. . . . . . . . . . . . 13 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → -e𝑦 ∈ (𝐴 ∖ {-∞}))
95	77, 94	eqeltrrd 2865	. . . . . . . . . . . 12 ⊢ ((¬ +∞ ∈ 𝐴 ∧ 𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞})) → -𝑦 ∈ (𝐴 ∖ {-∞}))
96	95	ralrimiva 3158	. . . . . . . . . . 11 ⊢ (¬ +∞ ∈ 𝐴 → ∀𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) -𝑦 ∈ (𝐴 ∖ {-∞}))
97	76, 96	jca 521	. . . . . . . . . 10 ⊢ (¬ +∞ ∈ 𝐴 → (({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ ℝ ∧ ∀𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) -𝑦 ∈ (𝐴 ∖ {-∞})))
98	57, 61	ssrabf 46334	. . . . . . . . . 10 ⊢ (({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} ↔ (({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ ℝ ∧ ∀𝑦 ∈ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) -𝑦 ∈ (𝐴 ∖ {-∞})))
99	97, 98	sylibr 237	. . . . . . . . 9 ⊢ (¬ +∞ ∈ 𝐴 → ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}) ⊆ {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})})
100	59, 99	eqssd 3930	. . . . . . . 8 ⊢ (¬ +∞ ∈ 𝐴 → {𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})} = ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}))
101	100	infeq1d 9497	. . . . . . 7 ⊢ (¬ +∞ ∈ 𝐴 → inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ*, < ) = inf(({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}), ℝ*, < ))
102		infxrpnf2 46678	. . . . . . . . 9 ⊢ ({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ⊆ ℝ* → inf(({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}), ℝ*, < ) = inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ))
103	7, 102	ax-mp 5	. . . . . . . 8 ⊢ inf(({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}), ℝ*, < ) = inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < )
104	103	a1i 11	. . . . . . 7 ⊢ (¬ +∞ ∈ 𝐴 → inf(({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} ∖ {+∞}), ℝ*, < ) = inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ))
105	101, 104	eqtr2d 2799	. . . . . 6 ⊢ (¬ +∞ ∈ 𝐴 → inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = inf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ*, < ))
106	105	xnegeqd 46652	. . . . 5 ⊢ (¬ +∞ ∈ 𝐴 → -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -einf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ*, < ))
107	106	adantl 487	. . . 4 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -einf({𝑦 ∈ ℝ ∣ -𝑦 ∈ (𝐴 ∖ {-∞})}, ℝ*, < ))
108	31, 35, 107	3eqtr4d 2808	. . 3 ⊢ ((𝜑 ∧ ¬ +∞ ∈ 𝐴) → sup(𝐴, ℝ*, < ) = -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ))
109	21, 108	pm2.61dan 825	. 2 ⊢ (𝜑 → sup(𝐴, ℝ*, < ) = -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ))
110		xnegeq 13364	. . . . . . 7 ⊢ (𝑦 = 𝑥 → -e𝑦 = -e𝑥)
111	110	eleq1d 2849	. . . . . 6 ⊢ (𝑦 = 𝑥 → ( -e𝑦 ∈ 𝐴 ↔ -e𝑥 ∈ 𝐴))
112	111	cbvrabv 3426	. . . . 5 ⊢ {𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴} = {𝑥 ∈ ℝ* ∣ -e𝑥 ∈ 𝐴}
113	112	infeq1i 9498	. . . 4 ⊢ inf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = inf({𝑥 ∈ ℝ* ∣ -e𝑥 ∈ 𝐴}, ℝ*, < )
114	113	xnegeqi 46655	. . 3 ⊢ -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -einf({𝑥 ∈ ℝ* ∣ -e𝑥 ∈ 𝐴}, ℝ*, < )
115	114	a1i 11	. 2 ⊢ (𝜑 → -einf({𝑦 ∈ ℝ* ∣ -e𝑦 ∈ 𝐴}, ℝ*, < ) = -einf({𝑥 ∈ ℝ* ∣ -e𝑥 ∈ 𝐴}, ℝ*, < ))
116	109, 115	eqtrd 2798	1 ⊢ (𝜑 → sup(𝐴, ℝ*, < ) = -einf({𝑥 ∈ ℝ* ∣ -e𝑥 ∈ 𝐴}, ℝ*, < ))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080  {crab 3416   ⊆ wss 3900   ∖ cdif 4048  {csn 4588  supcsup 9459  infcinf 9460  ℝcr 11226  +∞cpnf 11367  -∞cmnf 11368  ℝ^*cxr 11369   < clt 11370   -cneg 11569   -_ecxne 13265

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7775  ax-cnex 11283  ax-resscn 11284  ax-1cn 11285  ax-icn 11286  ax-addcl 11287  ax-addrcl 11288  ax-mulcl 11289  ax-mulrcl 11290  ax-mulcom 11291  ax-addass 11292  ax-mulass 11293  ax-distr 11294  ax-i2m1 11295  ax-1ne0 11296  ax-1rid 11297  ax-rnegex 11298  ax-rrecex 11299  ax-cnre 11300  ax-pre-lttri 11301  ax-pre-lttrn 11302  ax-pre-ltadd 11303  ax-pre-mulgt0 11304  ax-pre-sup 11305

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-po 5563  df-so 5564  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-isom 6567  df-riota 7400  df-ov 7446  df-oprab 7447  df-mpo 7448  df-er 8745  df-en 9002  df-dom 9003  df-sdom 9004  df-sup 9461  df-inf 9462  df-pnf 11372  df-mnf 11373  df-xr 11374  df-ltxr 11375  df-le 11376  df-sub 11570  df-neg 11571  df-xneg 13268

This theorem is used by:  supminfxrrnmpt  46686  liminfvalxr  46998