Theorem drsdirfi 15694

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 15685 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 3520	. . . . . 6 |- ( a = (/) -> ( a C_ B <-> (/) C_ B ) )
2	1	anbi2d 703	. . . . 5 |- ( a = (/) -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ (/) C_ B ) ) )
3		raleq 3054	. . . . . 6 |- ( a = (/) -> ( A. z e. a z .<_ y <-> A. z e. (/) z .<_ y ) )
4	3	rexbidv 2968	. . . . 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 320	. . . 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 3520	. . . . . 6 |- ( a = b -> ( a C_ B <-> b C_ B ) )
7	6	anbi2d 703	. . . . 5 |- ( a = b -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ b C_ B ) ) )
8		raleq 3054	. . . . . 6 |- ( a = b -> ( A. z e. a z .<_ y <-> A. z e. b z .<_ y ) )
9	8	rexbidv 2968	. . . . 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 320	. . . 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 3520	. . . . . 6 |- ( a = ( b u. { c } ) -> ( a C_ B <-> ( b u. { c } ) C_ B ) )
12	11	anbi2d 703	. . . . 5 |- ( a = ( b u. { c } ) -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ ( b u. { c } ) C_ B ) ) )
13		raleq 3054	. . . . . 6 |- ( a = ( b u. { c } ) -> ( A. z e. a z .<_ y <-> A. z e. ( b u. { c } ) z .<_ y ) )
14	13	rexbidv 2968	. . . . 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 320	. . . 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 3520	. . . . . 6 |- ( a = X -> ( a C_ B <-> X C_ B ) )
17	16	anbi2d 703	. . . . 5 |- ( a = X -> ( ( K e. Dirset /\ a C_ B ) <-> ( K e. Dirset /\ X C_ B ) ) )
18		raleq 3054	. . . . . 6 |- ( a = X -> ( A. z e. a z .<_ y <-> A. z e. X z .<_ y ) )
19	18	rexbidv 2968	. . . . 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 320	. . . 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 15693	. . . . . 6 |- ( K e. Dirset -> B =/= (/) )
23		ral0 3937	. . . . . . . . 9 |- A. z e. (/) z .<_ y
24	23	jctr 542	. . . . . . . 8 |- ( y e. B -> ( y e. B /\ A. z e. (/) z .<_ y ) )
25	24	eximi 1657	. . . . . . 7 |- ( E. y y e. B -> E. y ( y e. B /\ A. z e. (/) z .<_ y ) )
26		n0 3803	. . . . . . 7 |- ( B =/= (/) <-> E. y y e. B )
27		df-rex 2813	. . . . . . 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 266	. . . . . 6 |- ( B =/= (/) -> E. y e. B A. z e. (/) z .<_ y )
29	22, 28	syl 16	. . . . 5 |- ( K e. Dirset -> E. y e. B A. z e. (/) z .<_ y )
30	29	adantr 465	. . . 4 |- ( ( K e. Dirset /\ (/) C_ B ) -> E. y e. B A. z e. (/) z .<_ y )
31		ssun1 3663	. . . . . . . . 9 |- b C_ ( b u. { c } )
32		sstr 3507	. . . . . . . . 9 |- ( ( b C_ ( b u. { c } ) /\ ( b u. { c } ) C_ B ) -> b C_ B )
33	31, 32	mpan 670	. . . . . . . 8 |- ( ( b u. { c } ) C_ B -> b C_ B )
34	33	anim2i 569	. . . . . . 7 |- ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) -> ( K e. Dirset /\ b C_ B ) )
35		breq2 4460	. . . . . . . . . 10 |- ( y = a -> ( z .<_ y <-> z .<_ a ) )
36	35	ralbidv 2896	. . . . . . . . 9 |- ( y = a -> ( A. z e. b z .<_ y <-> A. z e. b z .<_ a ) )
37	36	cbvrexv 3085	. . . . . . . 8 |- ( E. y e. B A. z e. b z .<_ y <-> E. a e. B A. z e. b z .<_ a )
38		simplrr 762	. . . . . . . . . . . 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 15692	. . . . . . . . . . . . . . . . 17 |- ( K e. Dirset -> K e. Preset )
40	39	ad5antr 733	. . . . . . . . . . . . . . . 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 726	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) -> b C_ B )
42	41	adantr 465	. . . . . . . . . . . . . . . . . 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 3499	. . . . . . . . . . . . . . . . 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 465	. . . . . . . . . . . . . . . 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 768	. . . . . . . . . . . . . . . 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 756	. . . . . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . 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 461	. . . . . . . . . . . . . . . 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 765	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ a e. B ) /\ ( y e. B /\ ( a .<_ y /\ c .<_ y ) ) ) -> a .<_ y )
50	49	ad2antrr 725	. . . . . . . . . . . . . . . 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 15689	. . . . . . . . . . . . . . . 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 1246	. . . . . . . . . . . . . . 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 434	. . . . . . . . . . . . . 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 2865	. . . . . . . . . . . . 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 720	. . . . . . . . . . . 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 766	. . . . . . . . . . . 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 3112	. . . . . . . . . . . . 13 |- c e. _V
60		breq1 4459	. . . . . . . . . . . . 13 |- ( z = c -> ( z .<_ y <-> c .<_ y ) )
61	59, 60	ralsn 4071	. . . . . . . . . . . 12 |- ( A. z e. { c } z .<_ y <-> c .<_ y )
62	58, 61	sylibr 212	. . . . . . . . . . 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 3682	. . . . . . . . . . 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 661	. . . . . . . . . 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 753	. . . . . . . . . . 11 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> K e. Dirset )
66		simprl 756	. . . . . . . . . . 11 |- ( ( ( K e. Dirset /\ ( b u. { c } ) C_ B ) /\ ( a e. B /\ A. z e. b z .<_ a ) ) -> a e. B )
67		ssun2 3664	. . . . . . . . . . . . . 14 |- { c } C_ ( b u. { c } )
68		sstr 3507	. . . . . . . . . . . . . 14 |- ( ( { c } C_ ( b u. { c } ) /\ ( b u. { c } ) C_ B ) -> { c } C_ B )
69	67, 68	mpan 670	. . . . . . . . . . . . 13 |- ( ( b u. { c } ) C_ B -> { c } C_ B )
70	59	snss 4156	. . . . . . . . . . . . 13 |- ( c e. B <-> { c } C_ B )
71	69, 70	sylibr 212	. . . . . . . . . . . 12 |- ( ( b u. { c } ) C_ B -> c e. B )
72	71	ad2antlr 726	. . . . . . . . . . 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 15691	. . . . . . . . . . 11 |- ( ( K e. Dirset /\ a e. B /\ c e. B ) -> E. y e. B ( a .<_ y /\ c .<_ y ) )
74	65, 66, 72, 73	syl3anc 1228	. . . . . . . . . 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 2933	. . . . . . . . 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 2950	. . . . . . . 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 217	. . . . . . 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 54	. . . . . 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 31	. . . . 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 7778	. . 3 |- ( X e. Fin -> ( ( K e. Dirset /\ X C_ B ) -> E. y e. B A. z e. X z .<_ y ) )
82	81	com12 31	. 2 |- ( ( K e. Dirset /\ X C_ B ) -> ( X e. Fin -> E. y e. B A. z e. X z .<_ y ) )
83	82	3impia 1193	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 369   /\ w3a 973   = wceq 1395   E.wex 1613   e. wcel 1819   =/= wne 2652   A.wral 2807   E.wrex 2808   u. cun 3469   C_ wss 3471   (/)c0 3793   {csn 4032   class class class wbr 4456   ` cfv 5594   Fincfn 7535   Basecbs 14644   lecple 14719   Preset cpreset 15682  Dirsetcdrs 15683

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1619  ax-4 1632  ax-5 1705  ax-6 1748  ax-7 1791  ax-8 1821  ax-9 1823  ax-10 1838  ax-11 1843  ax-12 1855  ax-13 2000  ax-ext 2435  ax-sep 4578  ax-nul 4586  ax-pow 4634  ax-pr 4695  ax-un 6591

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 974  df-3an 975  df-tru 1398  df-ex 1614  df-nf 1618  df-sb 1741  df-eu 2287  df-mo 2288  df-clab 2443  df-cleq 2449  df-clel 2452  df-nfc 2607  df-ne 2654  df-ral 2812  df-rex 2813  df-rab 2816  df-v 3111  df-sbc 3328  df-dif 3474  df-un 3476  df-in 3478  df-ss 3485  df-pss 3487  df-nul 3794  df-if 3945  df-pw 4017  df-sn 4033  df-pr 4035  df-tp 4037  df-op 4039  df-uni 4252  df-br 4457  df-opab 4516  df-tr 4551  df-eprel 4800  df-id 4804  df-po 4809  df-so 4810  df-fr 4847  df-we 4849  df-ord 4890  df-on 4891  df-lim 4892  df-suc 4893  df-xp 5014  df-rel 5015  df-cnv 5016  df-co 5017  df-dm 5018  df-rn 5019  df-res 5020  df-ima 5021  df-iota 5557  df-fun 5596  df-fn 5597  df-f 5598  df-f1 5599  df-fo 5600  df-f1o 5601  df-fv 5602  df-om 6700  df-1o 7148  df-er 7329  df-en 7536  df-fin 7539  df-preset 15684  df-drs 15685

This theorem is referenced by:  isdrs2  15695  ipodrsfi  15920