Theorem elfz0ubfz0 10056

Description: An element of a finite set of sequential nonnegative integers is an element of a finite set of sequential nonnegative integers with the upper bound being an element of the finite set of sequential nonnegative integers with the same lower bound as for the first interval and the element under consideration as upper bound. (Contributed by Alexander van der Vekens, 3-Apr-2018.)

Assertion

Ref	Expression
elfz0ubfz0	|- ( ( K e. ( 0 ... N ) /\ L e. ( K ... N ) ) -> K e. ( 0 ... L ) )

Proof of Theorem elfz0ubfz0

Step	Hyp	Ref	Expression
1		elfz2nn0 10043	. . . 4 |- ( K e. ( 0 ... N ) <-> ( K e. NN0 /\ N e. NN0 /\ K <_ N ) )
2		elfz2 9947	. . . . . 6 |- ( L e. ( K ... N ) <-> ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) )
3		simpr1 993	. . . . . . . 8 |- ( ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) /\ ( K e. NN0 /\ N e. NN0 /\ K <_ N ) ) -> K e. NN0 )
4		elnn0z 9200	. . . . . . . . . . . . . . . . 17 |- ( K e. NN0 <-> ( K e. ZZ /\ 0 <_ K ) )
5		simpr 109	. . . . . . . . . . . . . . . . . . . 20 |- ( ( K e. ZZ /\ L e. ZZ ) -> L e. ZZ )
6		0z 9198	. . . . . . . . . . . . . . . . . . . . 21 |- 0 e. ZZ
7		zletr 9236	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( 0 e. ZZ /\ K e. ZZ /\ L e. ZZ ) -> ( ( 0 <_ K /\ K <_ L ) -> 0 <_ L ) )
8	6, 7	mp3an1 1314	. . . . . . . . . . . . . . . . . . . 20 |- ( ( K e. ZZ /\ L e. ZZ ) -> ( ( 0 <_ K /\ K <_ L ) -> 0 <_ L ) )
9		elnn0z 9200	. . . . . . . . . . . . . . . . . . . . 21 |- ( L e. NN0 <-> ( L e. ZZ /\ 0 <_ L ) )
10	9	simplbi2 383	. . . . . . . . . . . . . . . . . . . 20 |- ( L e. ZZ -> ( 0 <_ L -> L e. NN0 ) )
11	5, 8, 10	sylsyld 58	. . . . . . . . . . . . . . . . . . 19 |- ( ( K e. ZZ /\ L e. ZZ ) -> ( ( 0 <_ K /\ K <_ L ) -> L e. NN0 ) )
12	11	expd 256	. . . . . . . . . . . . . . . . . 18 |- ( ( K e. ZZ /\ L e. ZZ ) -> ( 0 <_ K -> ( K <_ L -> L e. NN0 ) ) )
13	12	impancom 258	. . . . . . . . . . . . . . . . 17 |- ( ( K e. ZZ /\ 0 <_ K ) -> ( L e. ZZ -> ( K <_ L -> L e. NN0 ) ) )
14	4, 13	sylbi 120	. . . . . . . . . . . . . . . 16 |- ( K e. NN0 -> ( L e. ZZ -> ( K <_ L -> L e. NN0 ) ) )
15	14	com13 80	. . . . . . . . . . . . . . 15 |- ( K <_ L -> ( L e. ZZ -> ( K e. NN0 -> L e. NN0 ) ) )
16	15	adantr 274	. . . . . . . . . . . . . 14 |- ( ( K <_ L /\ L <_ N ) -> ( L e. ZZ -> ( K e. NN0 -> L e. NN0 ) ) )
17	16	com12 30	. . . . . . . . . . . . 13 |- ( L e. ZZ -> ( ( K <_ L /\ L <_ N ) -> ( K e. NN0 -> L e. NN0 ) ) )
18	17	3ad2ant3 1010	. . . . . . . . . . . 12 |- ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) -> ( ( K <_ L /\ L <_ N ) -> ( K e. NN0 -> L e. NN0 ) ) )
19	18	imp 123	. . . . . . . . . . 11 |- ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) -> ( K e. NN0 -> L e. NN0 ) )
20	19	com12 30	. . . . . . . . . 10 |- ( K e. NN0 -> ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) -> L e. NN0 ) )
21	20	3ad2ant1 1008	. . . . . . . . 9 |- ( ( K e. NN0 /\ N e. NN0 /\ K <_ N ) -> ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) -> L e. NN0 ) )
22	21	impcom 124	. . . . . . . 8 |- ( ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) /\ ( K e. NN0 /\ N e. NN0 /\ K <_ N ) ) -> L e. NN0 )
23		simplrl 525	. . . . . . . 8 |- ( ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) /\ ( K e. NN0 /\ N e. NN0 /\ K <_ N ) ) -> K <_ L )
24	3, 22, 23	3jca 1167	. . . . . . 7 |- ( ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) /\ ( K e. NN0 /\ N e. NN0 /\ K <_ N ) ) -> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) )
25	24	ex 114	. . . . . 6 |- ( ( ( K e. ZZ /\ N e. ZZ /\ L e. ZZ ) /\ ( K <_ L /\ L <_ N ) ) -> ( ( K e. NN0 /\ N e. NN0 /\ K <_ N ) -> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) ) )
26	2, 25	sylbi 120	. . . . 5 |- ( L e. ( K ... N ) -> ( ( K e. NN0 /\ N e. NN0 /\ K <_ N ) -> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) ) )
27	26	com12 30	. . . 4 |- ( ( K e. NN0 /\ N e. NN0 /\ K <_ N ) -> ( L e. ( K ... N ) -> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) ) )
28	1, 27	sylbi 120	. . 3 |- ( K e. ( 0 ... N ) -> ( L e. ( K ... N ) -> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) ) )
29	28	imp 123	. 2 |- ( ( K e. ( 0 ... N ) /\ L e. ( K ... N ) ) -> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) )
30		elfz2nn0 10043	. 2 |- ( K e. ( 0 ... L ) <-> ( K e. NN0 /\ L e. NN0 /\ K <_ L ) )
31	29, 30	sylibr 133	1 |- ( ( K e. ( 0 ... N ) /\ L e. ( K ... N ) ) -> K e. ( 0 ... L ) )

Syntax hints:   -> wi 4   /\ wa 103   /\ w3a 968   e. wcel 2136   class class class wbr 3981  (class class class)co 5841   0cc0 7749   <_ cle 7930   NN0cn0 9110   ZZcz 9187   ...cfz 9940

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-sep 4099  ax-pow 4152  ax-pr 4186  ax-un 4410  ax-setind 4513  ax-cnex 7840  ax-resscn 7841  ax-1cn 7842  ax-1re 7843  ax-icn 7844  ax-addcl 7845  ax-addrcl 7846  ax-mulcl 7847  ax-addcom 7849  ax-addass 7851  ax-distr 7853  ax-i2m1 7854  ax-0lt1 7855  ax-0id 7857  ax-rnegex 7858  ax-cnre 7860  ax-pre-ltirr 7861  ax-pre-ltwlin 7862  ax-pre-lttrn 7863  ax-pre-ltadd 7865

This theorem depends on definitions:  df-bi 116  df-3or 969  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2296  df-ne 2336  df-nel 2431  df-ral 2448  df-rex 2449  df-reu 2450  df-rab 2452  df-v 2727  df-sbc 2951  df-dif 3117  df-un 3119  df-in 3121  df-ss 3128  df-pw 3560  df-sn 3581  df-pr 3582  df-op 3584  df-uni 3789  df-int 3824  df-br 3982  df-opab 4043  df-mpt 4044  df-id 4270  df-xp 4609  df-rel 4610  df-cnv 4611  df-co 4612  df-dm 4613  df-rn 4614  df-res 4615  df-ima 4616  df-iota 5152  df-fun 5189  df-fn 5190  df-f 5191  df-fv 5195  df-riota 5797  df-ov 5844  df-oprab 5845  df-mpo 5846  df-pnf 7931  df-mnf 7932  df-xr 7933  df-ltxr 7934  df-le 7935  df-sub 8067  df-neg 8068  df-inn 8854  df-n0 9111  df-z 9188  df-uz 9463  df-fz 9941

This theorem is referenced by: (None)