Metamath Proof Explorer


Theorem qextltlem

Description: Lemma for qextlt and qextle . (Contributed by Mario Carneiro, 3-Oct-2014)

Ref Expression
Assertion qextltlem A*B*A<Bx¬x<Ax<B¬xAxB

Proof

Step Hyp Ref Expression
1 qbtwnxr A*B*A<BxA<xx<B
2 1 3expia A*B*A<BxA<xx<B
3 simprl A*B*xA<xx<BA<x
4 simplll A*B*xA<xx<BA*
5 qre xx
6 5 rexrd xx*
7 6 ad2antlr A*B*xA<xx<Bx*
8 xrltnle A*x*A<x¬xA
9 4 7 8 syl2anc A*B*xA<xx<BA<x¬xA
10 3 9 mpbid A*B*xA<xx<B¬xA
11 xrltle x*A*x<AxA
12 7 4 11 syl2anc A*B*xA<xx<Bx<AxA
13 10 12 mtod A*B*xA<xx<B¬x<A
14 simprr A*B*xA<xx<Bx<B
15 13 14 2thd A*B*xA<xx<B¬x<Ax<B
16 nbbn ¬x<Ax<B¬x<Ax<B
17 15 16 sylib A*B*xA<xx<B¬x<Ax<B
18 simpllr A*B*xA<xx<BB*
19 7 18 14 xrltled A*B*xA<xx<BxB
20 10 19 2thd A*B*xA<xx<B¬xAxB
21 nbbn ¬xAxB¬xAxB
22 20 21 sylib A*B*xA<xx<B¬xAxB
23 17 22 jca A*B*xA<xx<B¬x<Ax<B¬xAxB
24 23 ex A*B*xA<xx<B¬x<Ax<B¬xAxB
25 24 reximdva A*B*xA<xx<Bx¬x<Ax<B¬xAxB
26 2 25 syld A*B*A<Bx¬x<Ax<B¬xAxB