xsubge0 - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > xsubge0		GIF version

Theorem xsubge0 10010

Description: Extended real version of subge0 8555. (Contributed by Mario Carneiro, 24-Aug-2015.)

**Assertion**
Ref	Expression
xsubge0	⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 𝐵 ≤ 𝐴))

**Proof of Theorem xsubge0**
Step	Hyp	Ref	Expression
1		elxr 9905	. 2 ⊢ (𝐵 ∈ ℝ^* ↔ (𝐵 ∈ ℝ ∨ 𝐵 = +∞ ∨ 𝐵 = -∞))
2		0xr 8126	. . . . 5 ⊢ 0 ∈ ℝ^*
3		rexr 8125	. . . . . 6 ⊢ (𝐵 ∈ ℝ → 𝐵 ∈ ℝ^*)
4		xnegcl 9961	. . . . . . 7 ⊢ (𝐵 ∈ ℝ^* → -_𝑒𝐵 ∈ ℝ^*)
5		xaddcl 9989	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ^* ∧ -_𝑒𝐵 ∈ ℝ^) → (𝐴 +_𝑒 -_𝑒𝐵) ∈ ℝ^)
6	4, 5	sylan2 286	. . . . . 6 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^) → (𝐴 +_𝑒 -_𝑒𝐵) ∈ ℝ^)
7	3, 6	sylan2 286	. . . . 5 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → (𝐴 +_𝑒 -_𝑒𝐵) ∈ ℝ^*)
8		simpr 110	. . . . 5 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → 𝐵 ∈ ℝ)
9		xleadd1 10004	. . . . 5 ⊢ ((0 ∈ ℝ^* ∧ (𝐴 +_𝑒 -_𝑒𝐵) ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ (0 +_𝑒 𝐵) ≤ ((𝐴 +_𝑒 -_𝑒𝐵) +_𝑒 𝐵)))
10	2, 7, 8, 9	mp3an2i 1355	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ (0 +_𝑒 𝐵) ≤ ((𝐴 +_𝑒 -_𝑒𝐵) +_𝑒 𝐵)))
11	3	adantl 277	. . . . . 6 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → 𝐵 ∈ ℝ^*)
12		xaddid2 9992	. . . . . 6 ⊢ (𝐵 ∈ ℝ^* → (0 +_𝑒 𝐵) = 𝐵)
13	11, 12	syl 14	. . . . 5 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → (0 +_𝑒 𝐵) = 𝐵)
14		xnpcan 10001	. . . . 5 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → ((𝐴 +_𝑒 -_𝑒𝐵) +_𝑒 𝐵) = 𝐴)
15	13, 14	breq12d 4060	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → ((0 +_𝑒 𝐵) ≤ ((𝐴 +_𝑒 -_𝑒𝐵) +_𝑒 𝐵) ↔ 𝐵 ≤ 𝐴))
16	10, 15	bitrd 188	. . 3 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 𝐵 ≤ 𝐴))
17		pnfxr 8132	. . . . . . 7 ⊢ +∞ ∈ ℝ^*
18		xrletri3 9933	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ^* ∧ +∞ ∈ ℝ^*) → (𝐴 = +∞ ↔ (𝐴 ≤ +∞ ∧ +∞ ≤ 𝐴)))
19	17, 18	mpan2 425	. . . . . 6 ⊢ (𝐴 ∈ ℝ^* → (𝐴 = +∞ ↔ (𝐴 ≤ +∞ ∧ +∞ ≤ 𝐴)))
20		rexr 8125	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℝ^*)
21		renepnf 8127	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℝ → 𝐴 ≠ +∞)
22		xaddmnf1 9977	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 ≠ +∞) → (𝐴 +_𝑒 -∞) = -∞)
23	20, 21, 22	syl2anc 411	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℝ → (𝐴 +_𝑒 -∞) = -∞)
24		mnflt0 9913	. . . . . . . . . . . . 13 ⊢ -∞ < 0
25		mnfxr 8136	. . . . . . . . . . . . . . 15 ⊢ -∞ ∈ ℝ^*
26		xrlenlt 8144	. . . . . . . . . . . . . . 15 ⊢ ((0 ∈ ℝ^* ∧ -∞ ∈ ℝ^*) → (0 ≤ -∞ ↔ ¬ -∞ < 0))
27	2, 25, 26	mp2an 426	. . . . . . . . . . . . . 14 ⊢ (0 ≤ -∞ ↔ ¬ -∞ < 0)
28	27	biimpi 120	. . . . . . . . . . . . 13 ⊢ (0 ≤ -∞ → ¬ -∞ < 0)
29	24, 28	mt2 641	. . . . . . . . . . . 12 ⊢ ¬ 0 ≤ -∞
30		breq2 4051	. . . . . . . . . . . 12 ⊢ ((𝐴 +_𝑒 -∞) = -∞ → (0 ≤ (𝐴 +_𝑒 -∞) ↔ 0 ≤ -∞))
31	29, 30	mtbiri 677	. . . . . . . . . . 11 ⊢ ((𝐴 +_𝑒 -∞) = -∞ → ¬ 0 ≤ (𝐴 +_𝑒 -∞))
32	31	pm2.21d 620	. . . . . . . . . 10 ⊢ ((𝐴 +_𝑒 -∞) = -∞ → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
33	23, 32	syl 14	. . . . . . . . 9 ⊢ (𝐴 ∈ ℝ → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
34	33	adantl 277	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 ∈ ℝ) → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
35		simpr 110	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 = +∞) → 𝐴 = +∞)
36	35	a1d 22	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 = +∞) → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
37		eleq1 2269	. . . . . . . . . . . 12 ⊢ (𝐴 = -∞ → (𝐴 ∈ ℝ^* ↔ -∞ ∈ ℝ^*))
38	25, 37	mpbiri 168	. . . . . . . . . . 11 ⊢ (𝐴 = -∞ → 𝐴 ∈ ℝ^*)
39		mnfnepnf 8135	. . . . . . . . . . . 12 ⊢ -∞ ≠ +∞
40		neeq1 2390	. . . . . . . . . . . 12 ⊢ (𝐴 = -∞ → (𝐴 ≠ +∞ ↔ -∞ ≠ +∞))
41	39, 40	mpbiri 168	. . . . . . . . . . 11 ⊢ (𝐴 = -∞ → 𝐴 ≠ +∞)
42	38, 41, 22	syl2anc 411	. . . . . . . . . 10 ⊢ (𝐴 = -∞ → (𝐴 +_𝑒 -∞) = -∞)
43	42, 32	syl 14	. . . . . . . . 9 ⊢ (𝐴 = -∞ → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
44	43	adantl 277	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 = -∞) → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
45		elxr 9905	. . . . . . . . 9 ⊢ (𝐴 ∈ ℝ^* ↔ (𝐴 ∈ ℝ ∨ 𝐴 = +∞ ∨ 𝐴 = -∞))
46	45	biimpi 120	. . . . . . . 8 ⊢ (𝐴 ∈ ℝ^* → (𝐴 ∈ ℝ ∨ 𝐴 = +∞ ∨ 𝐴 = -∞))
47	34, 36, 44, 46	mpjao3dan 1320	. . . . . . 7 ⊢ (𝐴 ∈ ℝ^* → (0 ≤ (𝐴 +_𝑒 -∞) → 𝐴 = +∞))
48		0le0 9132	. . . . . . . 8 ⊢ 0 ≤ 0
49		oveq1 5958	. . . . . . . . 9 ⊢ (𝐴 = +∞ → (𝐴 +_𝑒 -∞) = (+∞ +_𝑒 -∞))
50		pnfaddmnf 9979	. . . . . . . . 9 ⊢ (+∞ +_𝑒 -∞) = 0
51	49, 50	eqtrdi 2255	. . . . . . . 8 ⊢ (𝐴 = +∞ → (𝐴 +_𝑒 -∞) = 0)
52	48, 51	breqtrrid 4085	. . . . . . 7 ⊢ (𝐴 = +∞ → 0 ≤ (𝐴 +_𝑒 -∞))
53	47, 52	impbid1 142	. . . . . 6 ⊢ (𝐴 ∈ ℝ^* → (0 ≤ (𝐴 +_𝑒 -∞) ↔ 𝐴 = +∞))
54		pnfge 9918	. . . . . . 7 ⊢ (𝐴 ∈ ℝ^* → 𝐴 ≤ +∞)
55	54	biantrurd 305	. . . . . 6 ⊢ (𝐴 ∈ ℝ^* → (+∞ ≤ 𝐴 ↔ (𝐴 ≤ +∞ ∧ +∞ ≤ 𝐴)))
56	19, 53, 55	3bitr4d 220	. . . . 5 ⊢ (𝐴 ∈ ℝ^* → (0 ≤ (𝐴 +_𝑒 -∞) ↔ +∞ ≤ 𝐴))
57	56	adantr 276	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = +∞) → (0 ≤ (𝐴 +_𝑒 -∞) ↔ +∞ ≤ 𝐴))
58		xnegeq 9956	. . . . . . . 8 ⊢ (𝐵 = +∞ → -_𝑒𝐵 = -_𝑒+∞)
59		xnegpnf 9957	. . . . . . . 8 ⊢ -_𝑒+∞ = -∞
60	58, 59	eqtrdi 2255	. . . . . . 7 ⊢ (𝐵 = +∞ → -_𝑒𝐵 = -∞)
61	60	adantl 277	. . . . . 6 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = +∞) → -_𝑒𝐵 = -∞)
62	61	oveq2d 5967	. . . . 5 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = +∞) → (𝐴 +_𝑒 -_𝑒𝐵) = (𝐴 +_𝑒 -∞))
63	62	breq2d 4059	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = +∞) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 0 ≤ (𝐴 +_𝑒 -∞)))
64		breq1 4050	. . . . 5 ⊢ (𝐵 = +∞ → (𝐵 ≤ 𝐴 ↔ +∞ ≤ 𝐴))
65	64	adantl 277	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = +∞) → (𝐵 ≤ 𝐴 ↔ +∞ ≤ 𝐴))
66	57, 63, 65	3bitr4d 220	. . 3 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = +∞) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 𝐵 ≤ 𝐴))
67		oveq1 5958	. . . . . . . . . 10 ⊢ (𝐴 = -∞ → (𝐴 +_𝑒 +∞) = (-∞ +_𝑒 +∞))
68		mnfaddpnf 9980	. . . . . . . . . 10 ⊢ (-∞ +_𝑒 +∞) = 0
69	67, 68	eqtrdi 2255	. . . . . . . . 9 ⊢ (𝐴 = -∞ → (𝐴 +_𝑒 +∞) = 0)
70	69	adantl 277	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 = -∞) → (𝐴 +_𝑒 +∞) = 0)
71	48, 70	breqtrrid 4085	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 = -∞) → 0 ≤ (𝐴 +_𝑒 +∞))
72		df-ne 2378	. . . . . . . 8 ⊢ (𝐴 ≠ -∞ ↔ ¬ 𝐴 = -∞)
73		0lepnf 9919	. . . . . . . . 9 ⊢ 0 ≤ +∞
74		xaddpnf1 9975	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 ≠ -∞) → (𝐴 +_𝑒 +∞) = +∞)
75	73, 74	breqtrrid 4085	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐴 ≠ -∞) → 0 ≤ (𝐴 +_𝑒 +∞))
76	72, 75	sylan2br 288	. . . . . . 7 ⊢ ((𝐴 ∈ ℝ^* ∧ ¬ 𝐴 = -∞) → 0 ≤ (𝐴 +_𝑒 +∞))
77		xrmnfdc 9972	. . . . . . . 8 ⊢ (𝐴 ∈ ℝ^* → DECID 𝐴 = -∞)
78		exmiddc 838	. . . . . . . 8 ⊢ (DECID 𝐴 = -∞ → (𝐴 = -∞ ∨ ¬ 𝐴 = -∞))
79	77, 78	syl 14	. . . . . . 7 ⊢ (𝐴 ∈ ℝ^* → (𝐴 = -∞ ∨ ¬ 𝐴 = -∞))
80	71, 76, 79	mpjaodan 800	. . . . . 6 ⊢ (𝐴 ∈ ℝ^* → 0 ≤ (𝐴 +_𝑒 +∞))
81		mnfle 9921	. . . . . 6 ⊢ (𝐴 ∈ ℝ^* → -∞ ≤ 𝐴)
82	80, 81	2thd 175	. . . . 5 ⊢ (𝐴 ∈ ℝ^* → (0 ≤ (𝐴 +_𝑒 +∞) ↔ -∞ ≤ 𝐴))
83	82	adantr 276	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = -∞) → (0 ≤ (𝐴 +_𝑒 +∞) ↔ -∞ ≤ 𝐴))
84		xnegeq 9956	. . . . . . . 8 ⊢ (𝐵 = -∞ → -_𝑒𝐵 = -_𝑒-∞)
85		xnegmnf 9958	. . . . . . . 8 ⊢ -_𝑒-∞ = +∞
86	84, 85	eqtrdi 2255	. . . . . . 7 ⊢ (𝐵 = -∞ → -_𝑒𝐵 = +∞)
87	86	adantl 277	. . . . . 6 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = -∞) → -_𝑒𝐵 = +∞)
88	87	oveq2d 5967	. . . . 5 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = -∞) → (𝐴 +_𝑒 -_𝑒𝐵) = (𝐴 +_𝑒 +∞))
89	88	breq2d 4059	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = -∞) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 0 ≤ (𝐴 +_𝑒 +∞)))
90		breq1 4050	. . . . 5 ⊢ (𝐵 = -∞ → (𝐵 ≤ 𝐴 ↔ -∞ ≤ 𝐴))
91	90	adantl 277	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = -∞) → (𝐵 ≤ 𝐴 ↔ -∞ ≤ 𝐴))
92	83, 89, 91	3bitr4d 220	. . 3 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 = -∞) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 𝐵 ≤ 𝐴))
93	16, 66, 92	3jaodan 1319	. 2 ⊢ ((𝐴 ∈ ℝ^* ∧ (𝐵 ∈ ℝ ∨ 𝐵 = +∞ ∨ 𝐵 = -∞)) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 𝐵 ≤ 𝐴))
94	1, 93	sylan2b 287	1 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^*) → (0 ≤ (𝐴 +_𝑒 -_𝑒𝐵) ↔ 𝐵 ≤ 𝐴))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 710 DECID wdc 836 ∨ w3o 980 = wceq 1373 ∈ wcel 2177 ≠ wne 2377 class class class wbr 4047 (class class class)co 5951 ℝcr 7931 0cc0 7932 +∞cpnf 8111 -∞cmnf 8112 ℝ^*cxr 8113 < clt 8114 ≤ cle 8115 -_𝑒cxne 9898 +_𝑒 cxad 9899

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 711 ax-5 1471 ax-7 1472 ax-gen 1473 ax-ie1 1517 ax-ie2 1518 ax-8 1528 ax-10 1529 ax-11 1530 ax-i12 1531 ax-bndl 1533 ax-4 1534 ax-17 1550 ax-i9 1554 ax-ial 1558 ax-i5r 1559 ax-13 2179 ax-14 2180 ax-ext 2188 ax-sep 4166 ax-pow 4222 ax-pr 4257 ax-un 4484 ax-setind 4589 ax-cnex 8023 ax-resscn 8024 ax-1cn 8025 ax-1re 8026 ax-icn 8027 ax-addcl 8028 ax-addrcl 8029 ax-mulcl 8030 ax-addcom 8032 ax-addass 8034 ax-distr 8036 ax-i2m1 8037 ax-0id 8040 ax-rnegex 8041 ax-cnre 8043 ax-pre-ltirr 8044 ax-pre-apti 8047 ax-pre-ltadd 8048

This theorem depends on definitions: df-bi 117 df-dc 837 df-3or 982 df-3an 983 df-tru 1376 df-fal 1379 df-nf 1485 df-sb 1787 df-eu 2058 df-mo 2059 df-clab 2193 df-cleq 2199 df-clel 2202 df-nfc 2338 df-ne 2378 df-nel 2473 df-ral 2490 df-rex 2491 df-reu 2492 df-rab 2494 df-v 2775 df-sbc 3000 df-csb 3095 df-dif 3169 df-un 3171 df-in 3173 df-ss 3180 df-if 3573 df-pw 3619 df-sn 3640 df-pr 3641 df-op 3643 df-uni 3853 df-iun 3931 df-br 4048 df-opab 4110 df-mpt 4111 df-id 4344 df-xp 4685 df-rel 4686 df-cnv 4687 df-co 4688 df-dm 4689 df-rn 4690 df-res 4691 df-ima 4692 df-iota 5237 df-fun 5278 df-fn 5279 df-f 5280 df-fv 5284 df-riota 5906 df-ov 5954 df-oprab 5955 df-mpo 5956 df-1st 6233 df-2nd 6234 df-pnf 8116 df-mnf 8117 df-xr 8118 df-ltxr 8119 df-le 8120 df-sub 8252 df-neg 8253 df-xneg 9901 df-xadd 9902

This theorem is referenced by: ssblps 14941 ssbl 14942

W3C validator