Theorem suplocexprlemloc 8088

Description: Lemma for suplocexpr 8092. The putative supremum is located. (Contributed by Jim Kingdon, 9-Jan-2024.)

Hypotheses

Ref	Expression
suplocexpr.m	|- ( ph -> E. x x e. A )
suplocexpr.ub	|- ( ph -> E. x e. P. A. y e. A y <P x )
suplocexpr.loc	|- ( ph -> A. x e. P. A. y e. P. ( x <P y -> ( E. z e. A x <P z \/ A. z e. A z <P y ) ) )
suplocexpr.b	|- B = <. U. ( 1st " A ) , { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } >.

Assertion

Ref	Expression
suplocexprlemloc	|- ( ph -> A. q e. Q. A. r e. Q. ( q <Q r -> ( q e. U. ( 1st " A ) \/ r e. ( 2nd ` B ) ) ) )

Distinct variable groups:   u, A, z, w   x, A, y, u, z   u, q, z, w   x, q, y, ph   ph, r, w, q   ph, z, x, y   u, r

Allowed substitution hints:   ph( u)   A( r, q)   B( x, y, z, w, u, r, q)

Proof of Theorem suplocexprlemloc

Dummy variables s t v l are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 110	. . . . 5 |- ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) -> q <Q r )
2		ltbtwnnqq 7782	. . . . 5 |- ( q <Q r <-> E. v e. Q. ( q <Q v /\ v <Q r ) )
3	1, 2	sylib 122	. . . 4 |- ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) -> E. v e. Q. ( q <Q v /\ v <Q r ) )
4		simplll 539	. . . . . . 7 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> ph )
5		simprl 535	. . . . . . . 8 |- ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) -> q e. Q. )
6	5	ad2antrr 492	. . . . . . 7 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> q e. Q. )
7		simprl 535	. . . . . . 7 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> v e. Q. )
8	4, 6, 7	jca32 310	. . . . . 6 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> ( ph /\ ( q e. Q. /\ v e. Q. ) ) )
9		simprrl 545	. . . . . 6 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> q <Q v )
10		ltnqpri 7961	. . . . . . . . 9 |- ( q <Q v -> <. { l | l <Q q } , { u | q <Q u } >. <P <. { l | l <Q v } , { u | v <Q u } >. )
11	10	adantl 277	. . . . . . . 8 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> <. { l | l <Q q } , { u | q <Q u } >. <P <. { l | l <Q v } , { u | v <Q u } >. )
12		breq2 4134	. . . . . . . . . 10 |- ( y = <. { l | l <Q v } , { u | v <Q u } >. -> ( <. { l | l <Q q } , { u | q <Q u } >. <P y <-> <. { l | l <Q q } , { u | q <Q u } >. <P <. { l | l <Q v } , { u | v <Q u } >. ) )
13		breq2 4134	. . . . . . . . . . . 12 |- ( y = <. { l | l <Q v } , { u | v <Q u } >. -> ( z <P y <-> z <P <. { l | l <Q v } , { u | v <Q u } >. ) )
14	13	ralbidv 2550	. . . . . . . . . . 11 |- ( y = <. { l | l <Q v } , { u | v <Q u } >. -> ( A. z e. A z <P y <-> A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) )
15	14	orbi2d 802	. . . . . . . . . 10 |- ( y = <. { l | l <Q v } , { u | v <Q u } >. -> ( ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P y ) <-> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) ) )
16	12, 15	imbi12d 234	. . . . . . . . 9 |- ( y = <. { l | l <Q v } , { u | v <Q u } >. -> ( ( <. { l | l <Q q } , { u | q <Q u } >. <P y -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P y ) ) <-> ( <. { l | l <Q q } , { u | q <Q u } >. <P <. { l | l <Q v } , { u | v <Q u } >. -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) ) ) )
17		breq1 4133	. . . . . . . . . . . 12 |- ( x = <. { l | l <Q q } , { u | q <Q u } >. -> ( x <P y <-> <. { l | l <Q q } , { u | q <Q u } >. <P y ) )
18		breq1 4133	. . . . . . . . . . . . . 14 |- ( x = <. { l | l <Q q } , { u | q <Q u } >. -> ( x <P z <-> <. { l | l <Q q } , { u | q <Q u } >. <P z ) )
19	18	rexbidv 2551	. . . . . . . . . . . . 13 |- ( x = <. { l | l <Q q } , { u | q <Q u } >. -> ( E. z e. A x <P z <-> E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z ) )
20	19	orbi1d 803	. . . . . . . . . . . 12 |- ( x = <. { l | l <Q q } , { u | q <Q u } >. -> ( ( E. z e. A x <P z \/ A. z e. A z <P y ) <-> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P y ) ) )
21	17, 20	imbi12d 234	. . . . . . . . . . 11 |- ( x = <. { l | l <Q q } , { u | q <Q u } >. -> ( ( x <P y -> ( E. z e. A x <P z \/ A. z e. A z <P y ) ) <-> ( <. { l | l <Q q } , { u | q <Q u } >. <P y -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P y ) ) ) )
22	21	ralbidv 2550	. . . . . . . . . 10 |- ( x = <. { l | l <Q q } , { u | q <Q u } >. -> ( A. y e. P. ( x <P y -> ( E. z e. A x <P z \/ A. z e. A z <P y ) ) <-> A. y e. P. ( <. { l | l <Q q } , { u | q <Q u } >. <P y -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P y ) ) ) )
23		suplocexpr.loc	. . . . . . . . . . 11 |- ( ph -> A. x e. P. A. y e. P. ( x <P y -> ( E. z e. A x <P z \/ A. z e. A z <P y ) ) )
24	23	ad2antrr 492	. . . . . . . . . 10 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> A. x e. P. A. y e. P. ( x <P y -> ( E. z e. A x <P z \/ A. z e. A z <P y ) ) )
25		simplrl 541	. . . . . . . . . . 11 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> q e. Q. )
26		nqprlu 7914	. . . . . . . . . . 11 |- ( q e. Q. -> <. { l | l <Q q } , { u | q <Q u } >. e. P. )
27	25, 26	syl 14	. . . . . . . . . 10 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> <. { l | l <Q q } , { u | q <Q u } >. e. P. )
28	22, 24, 27	rspcdva 2934	. . . . . . . . 9 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> A. y e. P. ( <. { l | l <Q q } , { u | q <Q u } >. <P y -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P y ) ) )
29		simplrr 542	. . . . . . . . . 10 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> v e. Q. )
30		nqprlu 7914	. . . . . . . . . 10 |- ( v e. Q. -> <. { l | l <Q v } , { u | v <Q u } >. e. P. )
31	29, 30	syl 14	. . . . . . . . 9 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> <. { l | l <Q v } , { u | v <Q u } >. e. P. )
32	16, 28, 31	rspcdva 2934	. . . . . . . 8 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> ( <. { l | l <Q q } , { u | q <Q u } >. <P <. { l | l <Q v } , { u | v <Q u } >. -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) ) )
33	11, 32	mpd 13	. . . . . . 7 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) )
34		simpr 110	. . . . . . . . . . . 12 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> <. { l | l <Q q } , { u | q <Q u } >. <P z )
35	27	ad2antrr 492	. . . . . . . . . . . . 13 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> <. { l | l <Q q } , { u | q <Q u } >. e. P. )
36		suplocexpr.m	. . . . . . . . . . . . . . . 16 |- ( ph -> E. x x e. A )
37		suplocexpr.ub	. . . . . . . . . . . . . . . 16 |- ( ph -> E. x e. P. A. y e. A y <P x )
38	36, 37, 23	suplocexprlemss 8082	. . . . . . . . . . . . . . 15 |- ( ph -> A C_ P. )
39	38	ad4antr 498	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> A C_ P. )
40		simplr 533	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> z e. A )
41	39, 40	sseldd 3249	. . . . . . . . . . . . 13 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> z e. P. )
42		ltdfpr 7873	. . . . . . . . . . . . 13 |- ( ( <. { l | l <Q q } , { u | q <Q u } >. e. P. /\ z e. P. ) -> ( <. { l | l <Q q } , { u | q <Q u } >. <P z <-> E. w e. Q. ( w e. ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) /\ w e. ( 1st ` z ) ) ) )
43	35, 41, 42	syl2anc 415	. . . . . . . . . . . 12 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> ( <. { l | l <Q q } , { u | q <Q u } >. <P z <-> E. w e. Q. ( w e. ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) /\ w e. ( 1st ` z ) ) ) )
44	34, 43	mpbid 147	. . . . . . . . . . 11 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> E. w e. Q. ( w e. ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) /\ w e. ( 1st ` z ) ) )
45		vex 2824	. . . . . . . . . . . . . 14 |- w e. _V
46		breq2 4134	. . . . . . . . . . . . . 14 |- ( u = w -> ( q <Q u <-> q <Q w ) )
47		ltnqex 7916	. . . . . . . . . . . . . . 15 |- { l | l <Q q } e. _V
48		gtnqex 7917	. . . . . . . . . . . . . . 15 |- { u | q <Q u } e. _V
49	47, 48	op2nd 6381	. . . . . . . . . . . . . 14 |- ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) = { u | q <Q u }
50	45, 46, 49	elab2 2974	. . . . . . . . . . . . 13 |- ( w e. ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) <-> q <Q w )
51	50	anbi1i 462	. . . . . . . . . . . 12 |- ( ( w e. ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) /\ w e. ( 1st ` z ) ) <-> ( q <Q w /\ w e. ( 1st ` z ) ) )
52	51	rexbii 2557	. . . . . . . . . . 11 |- ( E. w e. Q. ( w e. ( 2nd ` <. { l | l <Q q } , { u | q <Q u } >. ) /\ w e. ( 1st ` z ) ) <-> E. w e. Q. ( q <Q w /\ w e. ( 1st ` z ) ) )
53	44, 52	sylib 122	. . . . . . . . . 10 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> E. w e. Q. ( q <Q w /\ w e. ( 1st ` z ) ) )
54		simpllr 540	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> z e. A )
55		simprrl 545	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> q <Q w )
56	41	adantr 276	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> z e. P. )
57		prop 7842	. . . . . . . . . . . . . . . . 17 |- ( z e. P. -> <. ( 1st ` z ) , ( 2nd ` z ) >. e. P. )
58	56, 57	syl 14	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> <. ( 1st ` z ) , ( 2nd ` z ) >. e. P. )
59		simprrr 546	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> w e. ( 1st ` z ) )
60		prcdnql 7851	. . . . . . . . . . . . . . . 16 |- ( ( <. ( 1st ` z ) , ( 2nd ` z ) >. e. P. /\ w e. ( 1st ` z ) ) -> ( q <Q w -> q e. ( 1st ` z ) ) )
61	58, 59, 60	syl2anc 415	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> ( q <Q w -> q e. ( 1st ` z ) ) )
62	55, 61	mpd 13	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> q e. ( 1st ` z ) )
63	54, 62	jca 306	. . . . . . . . . . . . 13 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> ( z e. A /\ q e. ( 1st ` z ) ) )
64	63	19.8ad 1644	. . . . . . . . . . . 12 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> E. z ( z e. A /\ q e. ( 1st ` z ) ) )
65		df-rex 2534	. . . . . . . . . . . 12 |- ( E. z e. A q e. ( 1st ` z ) <-> E. z ( z e. A /\ q e. ( 1st ` z ) ) )
66	64, 65	sylibr 134	. . . . . . . . . . 11 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> E. z e. A q e. ( 1st ` z ) )
67		suplocexprlemell 8080	. . . . . . . . . . 11 |- ( q e. U. ( 1st " A ) <-> E. z e. A q e. ( 1st ` z ) )
68	66, 67	sylibr 134	. . . . . . . . . 10 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) /\ ( w e. Q. /\ ( q <Q w /\ w e. ( 1st ` z ) ) ) ) -> q e. U. ( 1st " A ) )
69	53, 68	rexlimddv 2673	. . . . . . . . 9 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ z e. A ) /\ <. { l | l <Q q } , { u | q <Q u } >. <P z ) -> q e. U. ( 1st " A ) )
70	69	rexlimdva2 2671	. . . . . . . 8 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z -> q e. U. ( 1st " A ) ) )
71		fo2nd 6392	. . . . . . . . . . . . . . 15 |- 2nd : _V -onto-> _V
72		fofun 5616	. . . . . . . . . . . . . . 15 |- ( 2nd : _V -onto-> _V -> Fun 2nd )
73	71, 72	ax-mp 5	. . . . . . . . . . . . . 14 |- Fun 2nd
74		fvelima 5754	. . . . . . . . . . . . . 14 |- ( ( Fun 2nd /\ s e. ( 2nd " A ) ) -> E. t e. A ( 2nd ` t ) = s )
75	73, 74	mpan 428	. . . . . . . . . . . . 13 |- ( s e. ( 2nd " A ) -> E. t e. A ( 2nd ` t ) = s )
76	75	adantl 277	. . . . . . . . . . . 12 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) -> E. t e. A ( 2nd ` t ) = s )
77		breq1 4133	. . . . . . . . . . . . . . 15 |- ( z = t -> ( z <P <. { l | l <Q v } , { u | v <Q u } >. <-> t <P <. { l | l <Q v } , { u | v <Q u } >. ) )
78		simpllr 540	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. )
79		simprl 535	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> t e. A )
80	77, 78, 79	rspcdva 2934	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> t <P <. { l | l <Q v } , { u | v <Q u } >. )
81	29	ad3antrrr 496	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> v e. Q. )
82	38	ad5antr 500	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> A C_ P. )
83	82, 79	sseldd 3249	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> t e. P. )
84		nqpru 7919	. . . . . . . . . . . . . . 15 |- ( ( v e. Q. /\ t e. P. ) -> ( v e. ( 2nd ` t ) <-> t <P <. { l | l <Q v } , { u | v <Q u } >. ) )
85	81, 83, 84	syl2anc 415	. . . . . . . . . . . . . 14 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> ( v e. ( 2nd ` t ) <-> t <P <. { l | l <Q v } , { u | v <Q u } >. ) )
86	80, 85	mpbird 167	. . . . . . . . . . . . 13 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> v e. ( 2nd ` t ) )
87		simprr 537	. . . . . . . . . . . . 13 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> ( 2nd ` t ) = s )
88	86, 87	eleqtrd 2317	. . . . . . . . . . . 12 |- ( ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) /\ ( t e. A /\ ( 2nd ` t ) = s ) ) -> v e. s )
89	76, 88	rexlimddv 2673	. . . . . . . . . . 11 |- ( ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) /\ s e. ( 2nd " A ) ) -> v e. s )
90	89	ralrimiva 2623	. . . . . . . . . 10 |- ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) -> A. s e. ( 2nd " A ) v e. s )
91		vex 2824	. . . . . . . . . . 11 |- v e. _V
92	91	elint2 3977	. . . . . . . . . 10 |- ( v e. |^| ( 2nd " A ) <-> A. s e. ( 2nd " A ) v e. s )
93	90, 92	sylibr 134	. . . . . . . . 9 |- ( ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) /\ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) -> v e. |^| ( 2nd " A ) )
94	93	ex 115	. . . . . . . 8 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> ( A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. -> v e. |^| ( 2nd " A ) ) )
95	70, 94	orim12d 798	. . . . . . 7 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> ( ( E. z e. A <. { l | l <Q q } , { u | q <Q u } >. <P z \/ A. z e. A z <P <. { l | l <Q v } , { u | v <Q u } >. ) -> ( q e. U. ( 1st " A ) \/ v e. |^| ( 2nd " A ) ) ) )
96	33, 95	mpd 13	. . . . . 6 |- ( ( ( ph /\ ( q e. Q. /\ v e. Q. ) ) /\ q <Q v ) -> ( q e. U. ( 1st " A ) \/ v e. |^| ( 2nd " A ) ) )
97	8, 9, 96	syl2anc 415	. . . . 5 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> ( q e. U. ( 1st " A ) \/ v e. |^| ( 2nd " A ) ) )
98		breq2 4134	. . . . . . . . . 10 |- ( u = r -> ( w <Q u <-> w <Q r ) )
99	98	rexbidv 2551	. . . . . . . . 9 |- ( u = r -> ( E. w e. |^| ( 2nd " A ) w <Q u <-> E. w e. |^| ( 2nd " A ) w <Q r ) )
100		simprr 537	. . . . . . . . . 10 |- ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) -> r e. Q. )
101	100	ad3antrrr 496	. . . . . . . . 9 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> r e. Q. )
102		simpr 110	. . . . . . . . . 10 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> v e. |^| ( 2nd " A ) )
103		simprrr 546	. . . . . . . . . . 11 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> v <Q r )
104	103	adantr 276	. . . . . . . . . 10 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> v <Q r )
105		breq1 4133	. . . . . . . . . . 11 |- ( w = v -> ( w <Q r <-> v <Q r ) )
106	105	rspcev 2929	. . . . . . . . . 10 |- ( ( v e. |^| ( 2nd " A ) /\ v <Q r ) -> E. w e. |^| ( 2nd " A ) w <Q r )
107	102, 104, 106	syl2anc 415	. . . . . . . . 9 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> E. w e. |^| ( 2nd " A ) w <Q r )
108	99, 101, 107	elrabd 2984	. . . . . . . 8 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> r e. { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } )
109		suplocexpr.b	. . . . . . . . . . . 12 |- B = <. U. ( 1st " A ) , { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } >.
110	109	suplocexprlem2b 8081	. . . . . . . . . . 11 |- ( A C_ P. -> ( 2nd ` B ) = { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } )
111	38, 110	syl 14	. . . . . . . . . 10 |- ( ph -> ( 2nd ` B ) = { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } )
112	111	eleq2d 2308	. . . . . . . . 9 |- ( ph -> ( r e. ( 2nd ` B ) <-> r e. { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } ) )
113	112	ad4antr 498	. . . . . . . 8 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> ( r e. ( 2nd ` B ) <-> r e. { u e. Q. | E. w e. |^| ( 2nd " A ) w <Q u } ) )
114	108, 113	mpbird 167	. . . . . . 7 |- ( ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) /\ v e. |^| ( 2nd " A ) ) -> r e. ( 2nd ` B ) )
115	114	ex 115	. . . . . 6 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> ( v e. |^| ( 2nd " A ) -> r e. ( 2nd ` B ) ) )
116	115	orim2d 800	. . . . 5 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> ( ( q e. U. ( 1st " A ) \/ v e. |^| ( 2nd " A ) ) -> ( q e. U. ( 1st " A ) \/ r e. ( 2nd ` B ) ) ) )
117	97, 116	mpd 13	. . . 4 |- ( ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) /\ ( v e. Q. /\ ( q <Q v /\ v <Q r ) ) ) -> ( q e. U. ( 1st " A ) \/ r e. ( 2nd ` B ) ) )
118	3, 117	rexlimddv 2673	. . 3 |- ( ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) /\ q <Q r ) -> ( q e. U. ( 1st " A ) \/ r e. ( 2nd ` B ) ) )
119	118	ex 115	. 2 |- ( ( ph /\ ( q e. Q. /\ r e. Q. ) ) -> ( q <Q r -> ( q e. U. ( 1st " A ) \/ r e. ( 2nd ` B ) ) ) )
120	119	ralrimivva 2632	1 |- ( ph -> A. q e. Q. A. r e. Q. ( q <Q r -> ( q e. U. ( 1st " A ) \/ r e. ( 2nd ` B ) ) ) )

This proof depends on syntax axioms:   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 720   = wceq 1402   E.wex 1545   e. wcel 2209   {cab 2224   A.wral 2528   E.wrex 2529   {crab 2532   _Vcvv 2821   C_ wss 3220   <.cop 3712   U.cuni 3935   |^|cint 3970   class class class wbr 4130   "cima 4777   Fun wfun 5371   -onto->wfo 5375   ` cfv 5377   1stc1st 6372   2ndc2nd 6373   Q.cnq 7647   <Q cltq 7652   P.cnp 7658   <P cltp 7662

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4246  ax-sep 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735

This proof depends on definitions:  df-bi 117  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-ral 2533  df-rex 2534  df-reu 2535  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-br 4131  df-opab 4193  df-mpt 4194  df-tr 4230  df-eprel 4434  df-id 4438  df-po 4441  df-iso 4442  df-iord 4511  df-on 4513  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-ov 6088  df-oprab 6089  df-mpo 6090  df-1st 6374  df-2nd 6375  df-recs 6576  df-irdg 6641  df-1o 6687  df-oadd 6691  df-omul 6692  df-er 6807  df-ec 6809  df-qs 6813  df-ni 7671  df-pli 7672  df-mi 7673  df-lti 7674  df-plpq 7711  df-mpq 7712  df-enq 7714  df-nqqs 7715  df-plqqs 7716  df-mqqs 7717  df-1nqqs 7718  df-rq 7719  df-ltnqqs 7720  df-inp 7833  df-iltp 7837

This theorem is used by:  suplocexprlemex  8089