Metamath Proof Explorer


Theorem ormkglobd

Description: If all adjacent elements of a certain sequence are ordered according to a relation which is a total order on S, then any element is so related to anything to right of it (so-called "global monotonicity"). Deduction form. (Contributed by Ender Ting, 30-Apr-2025)

Ref Expression
Hypotheses ormkglobd.1 φ R Or S
ormkglobd.2 φ k 0 ..^ T + 1 B k S
ormkglobd.3 φ k 0 ..^ T B k R B k + 1
Assertion ormkglobd φ k 0 ..^ T t 1 ..^ T + 1 k < t B k R B t

Proof

Step Hyp Ref Expression
1 ormkglobd.1 φ R Or S
2 ormkglobd.2 φ k 0 ..^ T + 1 B k S
3 ormkglobd.3 φ k 0 ..^ T B k R B k + 1
4 2a1 φ k 0 ..^ T t 1 ..^ T + 1 k < t φ
5 4 imp φ k 0 ..^ T t 1 ..^ T + 1 k < t φ
6 2a1 k 0 ..^ T t 1 ..^ T + 1 k < t k 0 ..^ T
7 6 imp k 0 ..^ T t 1 ..^ T + 1 k < t k 0 ..^ T
8 7 adantl φ k 0 ..^ T t 1 ..^ T + 1 k < t k 0 ..^ T
9 5 8 jcad φ k 0 ..^ T t 1 ..^ T + 1 k < t φ k 0 ..^ T
10 elfzoelz t 1 ..^ T + 1 t
11 10 adantl k 0 ..^ T t 1 ..^ T + 1 t
12 11 a1d k 0 ..^ T t 1 ..^ T + 1 k < t t
13 elfzoelz k 0 ..^ T k
14 13 adantr k 0 ..^ T t 1 ..^ T + 1 k
15 zltp1le k t k < t k + 1 t
16 14 11 15 syl2anc k 0 ..^ T t 1 ..^ T + 1 k < t k + 1 t
17 16 biimpd k 0 ..^ T t 1 ..^ T + 1 k < t k + 1 t
18 11 zred k 0 ..^ T t 1 ..^ T + 1 t
19 elfzoel2 k 0 ..^ T T
20 19 adantr k 0 ..^ T t 1 ..^ T + 1 T
21 20 zred k 0 ..^ T t 1 ..^ T + 1 T
22 1red k 0 ..^ T t 1 ..^ T + 1 1
23 18 21 22 3jca k 0 ..^ T t 1 ..^ T + 1 t T 1
24 elfzop1le2 t 1 ..^ T + 1 t + 1 T + 1
25 24 adantl k 0 ..^ T t 1 ..^ T + 1 t + 1 T + 1
26 leadd1 t T 1 t T t + 1 T + 1
27 26 biimprd t T 1 t + 1 T + 1 t T
28 23 25 27 sylc k 0 ..^ T t 1 ..^ T + 1 t T
29 28 a1d k 0 ..^ T t 1 ..^ T + 1 k < t t T
30 12 17 29 3jcad k 0 ..^ T t 1 ..^ T + 1 k < t t k + 1 t t T
31 30 adantl φ k 0 ..^ T t 1 ..^ T + 1 k < t t k + 1 t t T
32 9 31 jcad φ k 0 ..^ T t 1 ..^ T + 1 k < t φ k 0 ..^ T t k + 1 t t T
33 32 ex φ k 0 ..^ T t 1 ..^ T + 1 k < t φ k 0 ..^ T t k + 1 t t T
34 fveq2 a = k + 1 B a = B k + 1
35 34 breq2d a = k + 1 B k R B a B k R B k + 1
36 fveq2 a = b B a = B b
37 36 breq2d a = b B k R B a B k R B b
38 fveq2 a = b + 1 B a = B b + 1
39 38 breq2d a = b + 1 B k R B a B k R B b + 1
40 fveq2 a = t B a = B t
41 40 breq2d a = t B k R B a B k R B t
42 3 r19.21bi φ k 0 ..^ T B k R B k + 1
43 simp1l φ k 0 ..^ T b k + 1 b b < T B k R B b φ
44 43 1 syl φ k 0 ..^ T b k + 1 b b < T B k R B b R Or S
45 elfzofz k 0 ..^ T k 0 T
46 fzval3 T 0 T = 0 ..^ T + 1
47 19 46 syl k 0 ..^ T 0 T = 0 ..^ T + 1
48 45 47 eleqtrd k 0 ..^ T k 0 ..^ T + 1
49 2 r19.21bi φ k 0 ..^ T + 1 B k S
50 48 49 sylan2 φ k 0 ..^ T B k S
51 50 3ad2ant1 φ k 0 ..^ T b k + 1 b b < T B k R B b B k S
52 simp21 φ k 0 ..^ T b k + 1 b b < T B k R B b b
53 0red φ k 0 ..^ T b k + 1 b b < T B k R B b 0
54 simp1r φ k 0 ..^ T b k + 1 b b < T B k R B b k 0 ..^ T
55 54 13 syl φ k 0 ..^ T b k + 1 b b < T B k R B b k
56 55 zred φ k 0 ..^ T b k + 1 b b < T B k R B b k
57 1red φ k 0 ..^ T b k + 1 b b < T B k R B b 1
58 56 57 readdcld φ k 0 ..^ T b k + 1 b b < T B k R B b k + 1
59 52 zred φ k 0 ..^ T b k + 1 b b < T B k R B b b
60 elfzole1 k 0 ..^ T 0 k
61 54 60 syl φ k 0 ..^ T b k + 1 b b < T B k R B b 0 k
62 0le1 0 1
63 62 a1i φ k 0 ..^ T b k + 1 b b < T B k R B b 0 1
64 56 57 61 63 addge0d φ k 0 ..^ T b k + 1 b b < T B k R B b 0 k + 1
65 simp22 φ k 0 ..^ T b k + 1 b b < T B k R B b k + 1 b
66 53 58 59 64 65 letrd φ k 0 ..^ T b k + 1 b b < T B k R B b 0 b
67 elnn0z b 0 b 0 b
68 52 66 67 sylanbrc φ k 0 ..^ T b k + 1 b b < T B k R B b b 0
69 54 19 syl φ k 0 ..^ T b k + 1 b b < T B k R B b T
70 69 peano2zd φ k 0 ..^ T b k + 1 b b < T B k R B b T + 1
71 69 zred φ k 0 ..^ T b k + 1 b b < T B k R B b T
72 71 57 readdcld φ k 0 ..^ T b k + 1 b b < T B k R B b T + 1
73 simp23 φ k 0 ..^ T b k + 1 b b < T B k R B b b < T
74 71 ltp1d φ k 0 ..^ T b k + 1 b b < T B k R B b T < T + 1
75 59 71 72 73 74 lttrd φ k 0 ..^ T b k + 1 b b < T B k R B b b < T + 1
76 elfzo0z b 0 ..^ T + 1 b 0 T + 1 b < T + 1
77 68 70 75 76 syl3anbrc φ k 0 ..^ T b k + 1 b b < T B k R B b b 0 ..^ T + 1
78 eleq1w k = b k 0 ..^ T + 1 b 0 ..^ T + 1
79 78 anbi2d k = b φ k 0 ..^ T + 1 φ b 0 ..^ T + 1
80 fveq2 k = b B k = B b
81 80 eleq1d k = b B k S B b S
82 49 81 imbitrid k = b φ k 0 ..^ T + 1 B b S
83 79 82 sylbird k = b φ b 0 ..^ T + 1 B b S
84 ax6ev k k = b
85 83 84 exlimiiv φ b 0 ..^ T + 1 B b S
86 43 77 85 syl2anc φ k 0 ..^ T b k + 1 b b < T B k R B b B b S
87 1nn0 1 0
88 87 a1i φ k 0 ..^ T b k + 1 b b < T B k R B b 1 0
89 68 88 nn0addcld φ k 0 ..^ T b k + 1 b b < T B k R B b b + 1 0
90 59 71 57 73 ltadd1dd φ k 0 ..^ T b k + 1 b b < T B k R B b b + 1 < T + 1
91 elfzo0z b + 1 0 ..^ T + 1 b + 1 0 T + 1 b + 1 < T + 1
92 89 70 90 91 syl3anbrc φ k 0 ..^ T b k + 1 b b < T B k R B b b + 1 0 ..^ T + 1
93 ovex b + 1 V
94 eleq1 k = b + 1 k 0 ..^ T + 1 b + 1 0 ..^ T + 1
95 94 anbi2d k = b + 1 φ k 0 ..^ T + 1 φ b + 1 0 ..^ T + 1
96 fveq2 k = b + 1 B k = B b + 1
97 96 eleq1d k = b + 1 B k S B b + 1 S
98 49 97 imbitrid k = b + 1 φ k 0 ..^ T + 1 B b + 1 S
99 95 98 sylbird k = b + 1 φ b + 1 0 ..^ T + 1 B b + 1 S
100 93 99 vtocle φ b + 1 0 ..^ T + 1 B b + 1 S
101 43 92 100 syl2anc φ k 0 ..^ T b k + 1 b b < T B k R B b B b + 1 S
102 simp3 φ k 0 ..^ T b k + 1 b b < T B k R B b B k R B b
103 elfzo0z b 0 ..^ T b 0 T b < T
104 68 69 73 103 syl3anbrc φ k 0 ..^ T b k + 1 b b < T B k R B b b 0 ..^ T
105 eleq1w b = k b 0 ..^ T k 0 ..^ T
106 105 anbi2d b = k φ b 0 ..^ T φ k 0 ..^ T
107 fveq2 b = k B b = B k
108 fvoveq1 b = k B b + 1 = B k + 1
109 107 108 breq12d b = k B b R B b + 1 B k R B k + 1
110 42 109 imbitrrid b = k φ k 0 ..^ T B b R B b + 1
111 106 110 sylbid b = k φ b 0 ..^ T B b R B b + 1
112 ax6evr k b = k
113 111 112 exlimiiv φ b 0 ..^ T B b R B b + 1
114 43 104 113 syl2anc φ k 0 ..^ T b k + 1 b b < T B k R B b B b R B b + 1
115 44 51 86 101 102 114 sotrd φ k 0 ..^ T b k + 1 b b < T B k R B b B k R B b + 1
116 13 adantl φ k 0 ..^ T k
117 116 peano2zd φ k 0 ..^ T k + 1
118 19 adantl φ k 0 ..^ T T
119 elfzop1le2 k 0 ..^ T k + 1 T
120 119 adantl φ k 0 ..^ T k + 1 T
121 35 37 39 41 42 115 117 118 120 fzindd φ k 0 ..^ T t k + 1 t t T B k R B t
122 33 121 syl8 φ k 0 ..^ T t 1 ..^ T + 1 k < t B k R B t
123 122 ralrimivv φ k 0 ..^ T t 1 ..^ T + 1 k < t B k R B t