Users' Mathboxes Mathbox for Jeff Hankins < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  elicc3 Structured version   Visualization version   GIF version

Theorem elicc3 37105
Description: An equivalent membership condition for closed intervals. (Contributed by Jeff Hankins, 14-Jul-2009.)
Assertion
Ref Expression
elicc3 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐶 ∈ (𝐴[,]𝐵) ↔ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵))))

Proof of Theorem elicc3
StepHypRef Expression
1 elicc1 13520 . 2 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐶 ∈ (𝐴[,]𝐵) ↔ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)))
2 simp1 1154 . . . . 5 ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → 𝐶 ∈ ℝ*)
32a1i 11 . . . 4 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → 𝐶 ∈ ℝ*))
4 xrletr 13287 . . . . . . 7 ((𝐴 ∈ ℝ* ∧ 𝐶 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → 𝐴 ≤ 𝐵))
54exp5o 1374 . . . . . 6 (𝐴 ∈ ℝ* → (𝐶 ∈ ℝ* → (𝐵 ∈ ℝ* → (𝐴 ≤ 𝐶 → (𝐶 ≤ 𝐵 → 𝐴 ≤ 𝐵)))))
65com23 87 . . . . 5 (𝐴 ∈ ℝ* → (𝐵 ∈ ℝ* → (𝐶 ∈ ℝ* → (𝐴 ≤ 𝐶 → (𝐶 ≤ 𝐵 → 𝐴 ≤ 𝐵)))))
76imp5q 37101 . . . 4 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → 𝐴 ≤ 𝐵))
8 df-ne 2956 . . . . . . . . . 10 (𝐶 ≠ 𝐴 ↔ ¬ 𝐶 = 𝐴)
9 xrleltne 13274 . . . . . . . . . . 11 ((𝐴 ∈ ℝ* ∧ 𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶) → (𝐴 < 𝐶 ↔ 𝐶 ≠ 𝐴))
109biimprd 251 . . . . . . . . . 10 ((𝐴 ∈ ℝ* ∧ 𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶) → (𝐶 ≠ 𝐴 → 𝐴 < 𝐶))
118, 10biimtrrid 246 . . . . . . . . 9 ((𝐴 ∈ ℝ* ∧ 𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶) → (¬ 𝐶 = 𝐴 → 𝐴 < 𝐶))
12113adant3r3 1203 . . . . . . . 8 ((𝐴 ∈ ℝ* ∧ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)) → (¬ 𝐶 = 𝐴 → 𝐴 < 𝐶))
1312adantlr 728 . . . . . . 7 (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)) → (¬ 𝐶 = 𝐴 → 𝐴 < 𝐶))
14 eqcom 2767 . . . . . . . . . . . . . 14 (𝐶 = 𝐵 ↔ 𝐵 = 𝐶)
1514necon3bbii 3002 . . . . . . . . . . . . 13 (¬ 𝐶 = 𝐵 ↔ 𝐵 ≠ 𝐶)
16 xrleltne 13274 . . . . . . . . . . . . . 14 ((𝐶 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐶 ≤ 𝐵) → (𝐶 < 𝐵 ↔ 𝐵 ≠ 𝐶))
1716biimprd 251 . . . . . . . . . . . . 13 ((𝐶 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐶 ≤ 𝐵) → (𝐵 ≠ 𝐶 → 𝐶 < 𝐵))
1815, 17biimtrid 245 . . . . . . . . . . . 12 ((𝐶 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐶 ≤ 𝐵) → (¬ 𝐶 = 𝐵 → 𝐶 < 𝐵))
19183exp 1137 . . . . . . . . . . 11 (𝐶 ∈ ℝ* → (𝐵 ∈ ℝ* → (𝐶 ≤ 𝐵 → (¬ 𝐶 = 𝐵 → 𝐶 < 𝐵))))
2019com12 33 . . . . . . . . . 10 (𝐵 ∈ ℝ* → (𝐶 ∈ ℝ* → (𝐶 ≤ 𝐵 → (¬ 𝐶 = 𝐵 → 𝐶 < 𝐵))))
2120imp32 424 . . . . . . . . 9 ((𝐵 ∈ ℝ* ∧ (𝐶 ∈ ℝ* ∧ 𝐶 ≤ 𝐵)) → (¬ 𝐶 = 𝐵 → 𝐶 < 𝐵))
22213adantr2 1189 . . . . . . . 8 ((𝐵 ∈ ℝ* ∧ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)) → (¬ 𝐶 = 𝐵 → 𝐶 < 𝐵))
2322adantll 727 . . . . . . 7 (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)) → (¬ 𝐶 = 𝐵 → 𝐶 < 𝐵))
2413, 23anim12d 621 . . . . . 6 (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)) → ((¬ 𝐶 = 𝐴 ∧ ¬ 𝐶 = 𝐵) → (𝐴 < 𝐶 ∧ 𝐶 < 𝐵)))
2524ex 418 . . . . 5 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → ((¬ 𝐶 = 𝐴 ∧ ¬ 𝐶 = 𝐵) → (𝐴 < 𝐶 ∧ 𝐶 < 𝐵))))
26 df-or 862 . . . . . 6 ((𝐶 = 𝐴 ∨ ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)) ↔ (¬ 𝐶 = 𝐴 → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)))
27 3orass 1106 . . . . . 6 ((𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵) ↔ (𝐶 = 𝐴 ∨ ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)))
28 pm5.6 1017 . . . . . . 7 (((¬ 𝐶 = 𝐴 ∧ ¬ 𝐶 = 𝐵) → (𝐴 < 𝐶 ∧ 𝐶 < 𝐵)) ↔ (¬ 𝐶 = 𝐴 → (𝐶 = 𝐵 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵))))
29 orcom 884 . . . . . . . 8 ((𝐶 = 𝐵 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵)) ↔ ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵))
3029imbi2i 339 . . . . . . 7 ((¬ 𝐶 = 𝐴 → (𝐶 = 𝐵 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵))) ↔ (¬ 𝐶 = 𝐴 → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)))
3128, 30bitri 278 . . . . . 6 (((¬ 𝐶 = 𝐴 ∧ ¬ 𝐶 = 𝐵) → (𝐴 < 𝐶 ∧ 𝐶 < 𝐵)) ↔ (¬ 𝐶 = 𝐴 → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)))
3226, 27, 313bitr4ri 307 . . . . 5 (((¬ 𝐶 = 𝐴 ∧ ¬ 𝐶 = 𝐵) → (𝐴 < 𝐶 ∧ 𝐶 < 𝐵)) ↔ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵))
3325, 32imbitrdi 254 . . . 4 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)))
343, 7, 333jcad 1147 . . 3 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) → (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵))))
35 simp1 1154 . . . . 5 ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)) → 𝐶 ∈ ℝ*)
3635a1i 11 . . . 4 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)) → 𝐶 ∈ ℝ*))
37 xrleid 13280 . . . . . . . . 9 (𝐴 ∈ ℝ* → 𝐴 ≤ 𝐴)
3837ad3antrrr 743 . . . . . . . 8 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → 𝐴 ≤ 𝐴)
39 breq2 5106 . . . . . . . 8 (𝐶 = 𝐴 → (𝐴 ≤ 𝐶 ↔ 𝐴 ≤ 𝐴))
4038, 39syl5ibrcom 250 . . . . . . 7 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → (𝐶 = 𝐴 → 𝐴 ≤ 𝐶))
41 xrltle 13278 . . . . . . . . . 10 ((𝐴 ∈ ℝ* ∧ 𝐶 ∈ ℝ*) → (𝐴 < 𝐶 → 𝐴 ≤ 𝐶))
4241adantr 486 . . . . . . . . 9 (((𝐴 ∈ ℝ* ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → (𝐴 < 𝐶 → 𝐴 ≤ 𝐶))
4342adantllr 732 . . . . . . . 8 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → (𝐴 < 𝐶 → 𝐴 ≤ 𝐶))
4443adantrd 497 . . . . . . 7 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) → 𝐴 ≤ 𝐶))
45 simpr 490 . . . . . . . 8 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → 𝐴 ≤ 𝐵)
46 breq2 5106 . . . . . . . 8 (𝐶 = 𝐵 → (𝐴 ≤ 𝐶 ↔ 𝐴 ≤ 𝐵))
4745, 46syl5ibrcom 250 . . . . . . 7 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → (𝐶 = 𝐵 → 𝐴 ≤ 𝐶))
4840, 44, 473jaod 1456 . . . . . 6 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → ((𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵) → 𝐴 ≤ 𝐶))
4948exp31 425 . . . . 5 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐶 ∈ ℝ* → (𝐴 ≤ 𝐵 → ((𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵) → 𝐴 ≤ 𝐶))))
50493impd 1367 . . . 4 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)) → 𝐴 ≤ 𝐶))
51 breq1 5105 . . . . . . . 8 (𝐶 = 𝐴 → (𝐶 ≤ 𝐵 ↔ 𝐴 ≤ 𝐵))
5245, 51syl5ibrcom 250 . . . . . . 7 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → (𝐶 = 𝐴 → 𝐶 ≤ 𝐵))
53 xrltle 13278 . . . . . . . . . . 11 ((𝐶 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐶 < 𝐵 → 𝐶 ≤ 𝐵))
5453ancoms 464 . . . . . . . . . 10 ((𝐵 ∈ ℝ* ∧ 𝐶 ∈ ℝ*) → (𝐶 < 𝐵 → 𝐶 ≤ 𝐵))
5554adantld 496 . . . . . . . . 9 ((𝐵 ∈ ℝ* ∧ 𝐶 ∈ ℝ*) → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) → 𝐶 ≤ 𝐵))
5655adantll 727 . . . . . . . 8 (((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) → 𝐶 ≤ 𝐵))
5756adantr 486 . . . . . . 7 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → ((𝐴 < 𝐶 ∧ 𝐶 < 𝐵) → 𝐶 ≤ 𝐵))
58 xrleid 13280 . . . . . . . . 9 (𝐵 ∈ ℝ* → 𝐵 ≤ 𝐵)
5958ad3antlr 744 . . . . . . . 8 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → 𝐵 ≤ 𝐵)
60 breq1 5105 . . . . . . . 8 (𝐶 = 𝐵 → (𝐶 ≤ 𝐵 ↔ 𝐵 ≤ 𝐵))
6159, 60syl5ibrcom 250 . . . . . . 7 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → (𝐶 = 𝐵 → 𝐶 ≤ 𝐵))
6252, 57, 613jaod 1456 . . . . . 6 ((((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) ∧ 𝐶 ∈ ℝ*) ∧ 𝐴 ≤ 𝐵) → ((𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵) → 𝐶 ≤ 𝐵))
6362exp31 425 . . . . 5 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐶 ∈ ℝ* → (𝐴 ≤ 𝐵 → ((𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵) → 𝐶 ≤ 𝐵))))
64633impd 1367 . . . 4 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)) → 𝐶 ≤ 𝐵))
6536, 50, 643jcad 1147 . . 3 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵)) → (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵)))
6634, 65impbid 215 . 2 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → ((𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐶 ∧ 𝐶 ≤ 𝐵) ↔ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵))))
671, 66bitrd 282 1 ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ*) → (𝐶 ∈ (𝐴[,]𝐵) ↔ (𝐶 ∈ ℝ* ∧ 𝐴 ≤ 𝐵 ∧ (𝐶 = 𝐴 ∨ (𝐴 < 𝐶 ∧ 𝐶 < 𝐵) ∨ 𝐶 = 𝐵))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∨ w3o 1102   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144   ≠ wne 2955   class class class wbr 5102  (class class class)co 7420  ℝ*cxr 11342   < clt 11343   ≤ cle 11344  [,]cicc 13479
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-cnex 11256  ax-resscn 11257  ax-pre-lttri 11274  ax-pre-lttrn 11275
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5545  df-po 5558  df-so 5559  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-ov 7423  df-oprab 7424  df-mpo 7425  df-er 8717  df-en 8974  df-dom 8975  df-sdom 8976  df-pnf 11345  df-mnf 11346  df-xr 11347  df-ltxr 11348  df-le 11349  df-icc 13483
This theorem is used by:  ivthALT  37123
  Copyright terms: Public domain W3C validator