Metamath Proof Explorer


Theorem ioc0

Description: An empty open interval of extended reals. (Contributed by FL, 30-May-2014)

Ref Expression
Assertion ioc0 A*B*AB=BA

Proof

Step Hyp Ref Expression
1 iocval A*B*AB=x*|A<xxB
2 1 eqeq1d A*B*AB=x*|A<xxB=
3 df-ne x*|A<xxB¬x*|A<xxB=
4 rabn0 x*|A<xxBx*A<xxB
5 3 4 bitr3i ¬x*|A<xxB=x*A<xxB
6 xrltletr A*x*B*A<xxBA<B
7 6 3com23 A*B*x*A<xxBA<B
8 7 3expa A*B*x*A<xxBA<B
9 8 rexlimdva A*B*x*A<xxBA<B
10 qbtwnxr A*B*A<BxA<xx<B
11 qre xx
12 11 rexrd xx*
13 12 a1i x*A*B*A<Bxx*
14 xrltle x*B*x<BxB
15 14 3ad2antr2 x*A*B*A<Bx<BxB
16 15 anim2d x*A*B*A<BA<xx<BA<xxB
17 13 16 anim12d x*A*B*A<BxA<xx<Bx*A<xxB
18 17 ex x*A*B*A<BxA<xx<Bx*A<xxB
19 12 18 syl xA*B*A<BxA<xx<Bx*A<xxB
20 19 adantr xA<xx<BA*B*A<BxA<xx<Bx*A<xxB
21 20 pm2.43b A*B*A<BxA<xx<Bx*A<xxB
22 21 reximdv2 A*B*A<BxA<xx<Bx*A<xxB
23 10 22 mpd A*B*A<Bx*A<xxB
24 23 3expia A*B*A<Bx*A<xxB
25 9 24 impbid A*B*x*A<xxBA<B
26 5 25 bitrid A*B*¬x*|A<xxB=A<B
27 xrltnle A*B*A<B¬BA
28 26 27 bitrd A*B*¬x*|A<xxB=¬BA
29 28 con4bid A*B*x*|A<xxB=BA
30 2 29 bitrd A*B*AB=BA