Theorem drsdirfi 16232

Description: Any finite number of elements in a directed set have a common upper bound. Here is where the non-emptiness constraint in df-drs 16223 first comes into play; without it we would need an additional constraint that X not be empty. (Contributed by Stefan O'Rear, 1-Feb-2015.)

Hypotheses

Ref	Expression
drsbn0.b	|- B = ( Base ` K )
drsdirfi.l	|- .<_ = ( le ` K )

Assertion

Ref	Expression
drsdirfi	|- ( ( K e. Dirset /\ X C_ B /\ X e. Fin ) -> E. y e. B A. z e. X z .<_ y )

Distinct variable groups:   y, K, z   y, B, z   y, .<_ , z   y, X, z

Proof of Theorem drsdirfi

Dummy variables a b c are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		sseq1 3465	. . . . . 6 |- ( a = (/) -> ( a C_ B <-> (/) C_ B ) )
2	1	anbi2d 715	. . . . 5 |- ( a = (/) -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ (/) C_ B ) ) )
3		raleq 2999	. . . . . 6 |- ( a = (/) -> ( A. z e. a z .<_ y <-> A. z e. (/) z .<_ y ) )
4	3	rexbidv 2913	. . . . 5 |- ( a = (/) -> ( E. y e. B A. z e. a z .<_ y <-> E. y e. B A. z e. (/) z .<_ y ) )
5	2, 4	imbi12d 326	. . . 4 |- ( a = (/) -> ( ( ( K e. Dirset /\ a C_ B ) -> E. y e. B A. z e. a z .<_ y ) <-> ( ( K e. Dirset /\ (/) C_ B ) -> E. y e. B A. z e. (/) z .<_ y ) ) )
6		sseq1 3465	. . . . . 6 |- ( a = b -> ( a C_ B <-> b C_ B ) )
7	6	anbi2d 715	. . . . 5 |- ( a = b -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ b C_ B ) ) )
8		raleq 2999	. . . . . 6 |- ( a = b -> ( A. z e. a z .<_ y <-> A. z e. b z .<_ y ) )
9	8	rexbidv 2913	. . . . 5 |- ( a = b -> ( E. y e. B A. z e. a z .<_ y <-> E. y e. B A. z e. b z .<_ y ) )
10	7, 9	imbi12d 326	. . . 4 |- ( a = b -> ( ( ( K e. Dirset /\ a C_ B ) -> E. y e. B A. z e. a z .<_ y ) <-> ( ( K e. Dirset /\ b C_ B ) -> E. y e. B A. z e. b z .<_ y ) ) )
11		sseq1 3465	. . . . . 6 |- ( a = ( b u. { c } ) -> ( a C_ B <-> ( b u. { c } ) C_ B ) )
12	11	anbi2d 715	. . . . 5 |- ( a = ( b u. { c } ) -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ ( b u. { c } ) C_ B ) ) )
13		raleq 2999	. . . . . 6 |- ( a = ( b u. { c } ) -> ( A. z e. a z .<_ y <-> A. z e. ( b u. { c } ) z .<_ y ) )
14	13	rexbidv 2913	. . . . 5 |- ( a = ( b u. { c } ) -> ( E. y e. B A. z e. a z .<_ y <-> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) )
15	12, 14	imbi12d 326	. . . 4 |- ( a = ( b u. { c } ) -> ( ( ( K e. Dirset /\ a C_ B ) -> E. y e. B A. z e. a z .<_ y ) <-> ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) ) )
16		sseq1 3465	. . . . . 6 |- ( a = X -> ( a C_ B <-> X C_ B ) )
17	16	anbi2d 715	. . . . 5 |- ( a = X -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ X C_ B ) ) )
18		raleq 2999	. . . . . 6 |- ( a = X -> ( A. z e. a z .<_ y <-> A. z e. X z .<_ y ) )
19	18	rexbidv 2913	. . . . 5 |- ( a = X -> ( E. y e. B A. z e. a z .<_ y <-> E. y e. B A. z e. X z .<_ y ) )
20	17, 19	imbi12d 326	. . . 4 |- ( a = X -> ( ( ( K e. Dirset /\ a C_ B ) -> E. y e. B A. z e. a z .<_ y ) <-> ( ( K e. Dirset /\ X C_ B ) -> E. y e. B A. z e. X z .<_ y ) ) )
21		drsbn0.b	. . . . . . 7 |- B = ( Base ` K )
22	21	drsbn0 16231	. . . . . 6 |- ( K e. Dirset -> B =/= (/) )
23		ral0 3886	. . . . . . . . 9 |- A. z e. (/) z .<_ y
24	23	jctr 549	. . . . . . . 8 |- ( y e. B -> ( y e. B /\ A. z e. (/) z .<_ y ) )
25	24	eximi 1718	. . . . . . 7 |- ( E. y y e. B -> E. y ( y e. B /\ A. z e. (/) z .<_ y ) )
26		n0 3753	. . . . . . 7 |- ( B =/= (/) <-> E. y y e. B )
27		df-rex 2755	. . . . . . 7 |- ( E. y e. B A. z e. (/) z .<_ y <-> E. y ( y e. B /\ A. z e. (/) z .<_ y ) )
28	25, 26, 27	3imtr4i 274	. . . . . 6 |- ( B =/= (/) -> E. y e. B A. z e. (/) z .<_ y )
29	22, 28	syl 17	. . . . 5 |- ( K e. Dirset -> E. y e. B A. z e. (/) z .<_ y )
30	29	adantr 471	. . . 4 |- ( ( K e. Dirset /\ (/) C_ B ) -> E. y e. B A. z e. (/) z .<_ y )
31		ssun1 3609	. . . . . . . . 9 |- b C_ ( b u. { c } )
32		sstr 3452	. . . . . . . . 9 |- ( ( b C_ ( b u. { c } ) /\ ( b u. { c } ) C_ B ) -> b C_ B )
33	31, 32	mpan 681	. . . . . . . 8 |- ( ( b u. { c } ) C_ B -> b C_ B )
34	33	anim2i 577	. . . . . . 7 |- ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> ( K e. Dirset /\ b C_ B ) )
35		breq2 4420	. . . . . . . . . 10 |- ( y = a -> ( z .<_ y <-> z .<_ a ) )
36	35	ralbidv 2839	. . . . . . . . 9 |- ( y = a -> ( A. z e. b z .<_ y <-> A. z e. b z .<_ a ) )
37	36	cbvrexv 3032	. . . . . . . 8 |- ( E. y e. B A. z e. b z .<_ y <-> E. a e. B A. z e. b z .<_ a )
38		simplrr 776	. . . . . . . . . . . 12 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> A. z e. b z .<_ a )
39		drsprs 16230	. . . . . . . . . . . . . . . . 17 |- ( K e. Dirset -> K e. Preset )
40	39	ad5antr 745	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> K e. Preset )
41	33	ad2antlr 738	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) -> b C_ B )
42	41	adantr 471	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> b C_ B )
43	42	sselda 3444	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) -> z e. B )
44	43	adantr 471	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> z e. B )
45		simp-4r 782	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> a e. B )
46		simprl 769	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> y e. B )
47	46	ad2antrr 737	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> y e. B )
48		simpr 467	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> z .<_ a )
49		simprrl 779	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> a .<_ y )
50	49	ad2antrr 737	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> a .<_ y )
51		drsdirfi.l	. . . . . . . . . . . . . . . . 17 |- .<_ = ( le ` K )
52	21, 51	prstr 16227	. . . . . . . . . . . . . . . 16 |- ( ( K e. Preset /\ ( z e. B /\ a e. B /\ y e. B ) /\ ( z .<_ a /\ a .<_ y ) ) -> z .<_ y )
53	40, 44, 45, 47, 48, 50, 52	syl132anc 1294	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) /\ z .<_ a ) -> z .<_ y )
54	53	ex 440	. . . . . . . . . . . . . 14 |- ( ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) /\ z e. b ) -> ( z .<_ a -> z .<_ y ) )
55	54	ralimdva 2808	. . . . . . . . . . . . 13 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> ( A. z e. b z .<_ a -> A. z e. b z .<_ y ) )
56	55	adantlrr 732	. . . . . . . . . . . 12 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> ( A. z e. b z .<_ a -> A. z e. b z .<_ y ) )
57	38, 56	mpd 15	. . . . . . . . . . 11 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> A. z e. b z .<_ y )
58		simprrr 780	. . . . . . . . . . . 12 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> c .<_ y )
59		vex 3060	. . . . . . . . . . . . 13 |- c e. _V
60		breq1 4419	. . . . . . . . . . . . 13 |- ( z = c -> ( z .<_ y <-> c .<_ y ) )
61	59, 60	ralsn 4022	. . . . . . . . . . . 12 |- ( A. z e. { c } z .<_ y <-> c .<_ y )
62	58, 61	sylibr 217	. . . . . . . . . . 11 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> A. z e. { c } z .<_ y )
63		ralun 3628	. . . . . . . . . . 11 |- ( ( A. z e. b z .<_ y /\ A. z e. { c } z .<_ y ) -> A. z e. ( b u. { c } ) z .<_ y )
64	57, 62, 63	syl2anc 671	. . . . . . . . . 10 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> A. z e. ( b u. { c } ) z .<_ y )
65		simpll 765	. . . . . . . . . . 11 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> K e. Dirset )
66		simprl 769	. . . . . . . . . . 11 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> a e. B )
67		ssun2 3610	. . . . . . . . . . . . . 14 |- { c } C_ ( b u. { c } )
68		sstr 3452	. . . . . . . . . . . . . 14 |- ( ( { c } C_ ( b u. { c } ) /\ ( b u. { c } ) C_ B ) -> { c } C_ B )
69	67, 68	mpan 681	. . . . . . . . . . . . 13 |- ( ( b u. { c } ) C_ B -> { c } C_ B )
70	59	snss 4109	. . . . . . . . . . . . 13 |- ( c e. B <-> { c } C_ B )
71	69, 70	sylibr 217	. . . . . . . . . . . 12 |- ( ( b u. { c } ) C_ B -> c e. B )
72	71	ad2antlr 738	. . . . . . . . . . 11 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> c e. B )
73	21, 51	drsdir 16229	. . . . . . . . . . 11 |- ( ( K e. Dirset /\ a e. B /\ c e. B ) -> E. y e. B ( a .<_ y /\ c .<_ y ) )
74	65, 66, 72, 73	syl3anc 1276	. . . . . . . . . 10 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> E. y e. B ( a .<_ y /\ c .<_ y ) )
75	64, 74	reximddv 2875	. . . . . . . . 9 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> E. y e. B A. z e. ( b u. { c } ) z .<_ y )
76	75	rexlimdvaa 2892	. . . . . . . 8 |- ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> ( E. a e. B A. z e. b z .<_ a -> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) )
77	37, 76	syl5bi 225	. . . . . . 7 |- ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> ( E. y e. B A. z e. b z .<_ y -> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) )
78	34, 77	embantd 56	. . . . . 6 |- ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> ( ( ( K e. Dirset /\ b C_ B ) -> E. y e. B A. z e. b z .<_ y ) -> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) )
79	78	com12 32	. . . . 5 |- ( ( ( K e. Dirset /\ b C_ B ) -> E. y e. B A. z e. b z .<_ y ) -> ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) )
80	79	a1i 11	. . . 4 |- ( b e. Fin -> ( ( ( K e. Dirset /\ b C_ B ) -> E. y e. B A. z e. b z .<_ y ) -> ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> E. y e. B A. z e. ( b u. { c } ) z .<_ y ) ) )
81	5, 10, 15, 20, 30, 80	findcard2 7837	. . 3 |- ( X e. Fin -> ( ( K e. Dirset /\ X C_ B ) -> E. y e. B A. z e. X z .<_ y ) )
82	81	com12 32	. 2 |- ( ( K e. Dirset /\ X C_ B ) -> ( X e. Fin -> E. y e. B A. z e. X z .<_ y ) )
83	82	3impia 1212	1 |- ( ( K e. Dirset /\ X C_ B /\ X e. Fin ) -> E. y e. B A. z e. X z .<_ y )

Syntax hints:   -> wi 4   /\ wa 375   /\ w3a 991   = wceq 1455   E.wex 1674   e. wcel 1898   =/= wne 2633   A.wral 2749   E.wrex 2750   u. cun 3414   C_ wss 3416   (/)c0 3743   {csn 3980   class class class wbr 4416   ` cfv 5601   Fincfn 7595   Basecbs 15170   lecple 15246   Preset cpreset 16220  Dirsetcdrs 16221

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1680  ax-4 1693  ax-5 1769  ax-6 1816  ax-7 1862  ax-8 1900  ax-9 1907  ax-10 1926  ax-11 1931  ax-12 1944  ax-13 2102  ax-ext 2442  ax-sep 4539  ax-nul 4548  ax-pow 4595  ax-pr 4653  ax-un 6610

This theorem depends on definitions:  df-bi 190  df-or 376  df-an 377  df-3or 992  df-3an 993  df-tru 1458  df-ex 1675  df-nf 1679  df-sb 1809  df-eu 2314  df-mo 2315  df-clab 2449  df-cleq 2455  df-clel 2458  df-nfc 2592  df-ne 2635  df-ral 2754  df-rex 2755  df-rab 2758  df-v 3059  df-sbc 3280  df-dif 3419  df-un 3421  df-in 3423  df-ss 3430  df-pss 3432  df-nul 3744  df-if 3894  df-pw 3965  df-sn 3981  df-pr 3983  df-tp 3985  df-op 3987  df-uni 4213  df-br 4417  df-opab 4476  df-tr 4512  df-eprel 4764  df-id 4768  df-po 4774  df-so 4775  df-fr 4812  df-we 4814  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-om 6720  df-1o 7208  df-er 7389  df-en 7596  df-fin 7599  df-preset 16222  df-drs 16223

This theorem is referenced by:  isdrs2  16233  ipodrsfi  16458