Metamath Proof Explorer


Theorem dedekind

Description: The Dedekind cut theorem. This theorem, which may be used to replace ax-pre-sup with appropriate adjustments, states that, if A completely preceeds B , then there is some number separating the two of them. (Contributed by Scott Fenton, 13-Jun-2013)

Ref Expression
Assertion dedekind ABxAyBx<yzxAyBxzzy

Proof

Step Hyp Ref Expression
1 nfv xAB
2 nfv xAB
3 nfra1 xxAyBx<y
4 1 2 3 nf3an xABABxAyBx<y
5 nfv xz
6 nfra1 xxA¬z<x
7 nfra1 xxx<zwAx<w
8 6 7 nfan xxA¬z<xxx<zwAx<w
9 5 8 nfan xzxA¬z<xxx<zwAx<w
10 4 9 nfan xABABxAyBx<yzxA¬z<xxx<zwAx<w
11 nfv yAB
12 nfv yAB
13 nfra2w yxAyBx<y
14 11 12 13 nf3an yABABxAyBx<y
15 nfv yzxA¬z<xxx<zwAx<w
16 14 15 nfan yABABxAyBx<yzxA¬z<xxx<zwAx<w
17 nfv yxA
18 simpl2l ABABxAyBx<yzxA¬z<xxx<zwAx<wA
19 18 sselda ABABxAyBx<yzxA¬z<xxx<zwAx<wxAx
20 simplrl ABABxAyBx<yzxA¬z<xxx<zwAx<wxAz
21 simprrl ABABxAyBx<yzxA¬z<xxx<zwAx<wxA¬z<x
22 21 r19.21bi ABABxAyBx<yzxA¬z<xxx<zwAx<wxA¬z<x
23 19 20 22 nltled ABABxAyBx<yzxA¬z<xxx<zwAx<wxAxz
24 23 ex ABABxAyBx<yzxA¬z<xxx<zwAx<wxAxz
25 simprll ABABxAyBx<yzxA¬z<xxx<zwAx<wyBz
26 simp2r ABABxAyBx<yB
27 simpr zxA¬z<xxx<zwAx<wyByB
28 ssel2 ByBy
29 26 27 28 syl2an ABABxAyBx<yzxA¬z<xxx<zwAx<wyBy
30 simpl3 ABABxAyBx<yzxA¬z<xxx<zwAx<wyBxAyBx<y
31 simp2 ABABxAyBx<yAB
32 rsp yBx<yyBx<y
33 32 com12 yByBx<yx<y
34 33 adantl ABxAyByBx<yx<y
35 ssel2 AxAx
36 35 adantlr ABxAx
37 simplr ABxAB
38 37 sselda ABxAyBy
39 ltnsym xyx<y¬y<x
40 36 38 39 syl2an2r ABxAyBx<y¬y<x
41 34 40 syld ABxAyByBx<y¬y<x
42 41 an32s AByBxAyBx<y¬y<x
43 42 ralimdva AByBxAyBx<yxA¬y<x
44 31 27 43 syl2an ABABxAyBx<yzxA¬z<xxx<zwAx<wyBxAyBx<yxA¬y<x
45 30 44 mpd ABABxAyBx<yzxA¬z<xxx<zwAx<wyBxA¬y<x
46 breq2 x=wy<xy<w
47 46 notbid x=w¬y<x¬y<w
48 47 cbvralvw xA¬y<xwA¬y<w
49 45 48 sylib ABABxAyBx<yzxA¬z<xxx<zwAx<wyBwA¬y<w
50 ralnex wA¬y<w¬wAy<w
51 49 50 sylib ABABxAyBx<yzxA¬z<xxx<zwAx<wyB¬wAy<w
52 breq1 x=yx<zy<z
53 breq1 x=yx<wy<w
54 53 rexbidv x=ywAx<wwAy<w
55 52 54 imbi12d x=yx<zwAx<wy<zwAy<w
56 simplrr zxA¬z<xxx<zwAx<wyBxx<zwAx<w
57 56 adantl ABABxAyBx<yzxA¬z<xxx<zwAx<wyBxx<zwAx<w
58 55 57 29 rspcdva ABABxAyBx<yzxA¬z<xxx<zwAx<wyBy<zwAy<w
59 51 58 mtod ABABxAyBx<yzxA¬z<xxx<zwAx<wyB¬y<z
60 25 29 59 nltled ABABxAyBx<yzxA¬z<xxx<zwAx<wyBzy
61 60 expr ABABxAyBx<yzxA¬z<xxx<zwAx<wyBzy
62 24 61 anim12d ABABxAyBx<yzxA¬z<xxx<zwAx<wxAyBxzzy
63 62 expd ABABxAyBx<yzxA¬z<xxx<zwAx<wxAyBxzzy
64 16 17 63 ralrimd ABABxAyBx<yzxA¬z<xxx<zwAx<wxAyBxzzy
65 10 64 ralrimi ABABxAyBx<yzxA¬z<xxx<zwAx<wxAyBxzzy
66 simp2l ABABxAyBx<yA
67 simp1l ABABxAyBx<yA
68 simp1r ABABxAyBx<yB
69 n0 BzzB
70 68 69 sylib ABABxAyBx<yzzB
71 26 sseld ABABxAyBx<yzBz
72 ralcom xAyBx<yyBxAx<y
73 breq2 y=zx<yx<z
74 73 ralbidv y=zxAx<yxAx<z
75 74 rspccv yBxAx<yzBxAx<z
76 72 75 sylbi xAyBx<yzBxAx<z
77 76 3ad2ant3 ABABxAyBx<yzBxAx<z
78 71 77 jcad ABABxAyBx<yzBzxAx<z
79 78 eximdv ABABxAyBx<yzzBzzxAx<z
80 70 79 mpd ABABxAyBx<yzzxAx<z
81 df-rex zxAx<zzzxAx<z
82 80 81 sylibr ABABxAyBx<yzxAx<z
83 axsup AAzxAx<zzxA¬z<xxx<zwAx<w
84 66 67 82 83 syl3anc ABABxAyBx<yzxA¬z<xxx<zwAx<w
85 65 84 reximddv ABABxAyBx<yzxAyBxzzy
86 85 3expib ABABxAyBx<yzxAyBxzzy
87 1re 1
88 rzal A=xAyBx11y
89 breq2 z=1xzx1
90 breq1 z=1zy1y
91 89 90 anbi12d z=1xzzyx11y
92 91 2ralbidv z=1xAyBxzzyxAyBx11y
93 92 rspcev 1xAyBx11yzxAyBxzzy
94 87 88 93 sylancr A=zxAyBxzzy
95 94 a1d A=ABxAyBx<yzxAyBxzzy
96 rzal B=yBx11y
97 96 ralrimivw B=xAyBx11y
98 87 97 93 sylancr B=zxAyBxzzy
99 98 a1d B=ABxAyBx<yzxAyBxzzy
100 86 95 99 pm2.61iine ABxAyBx<yzxAyBxzzy
101 100 3impa ABxAyBx<yzxAyBxzzy