Theorem supsrlem 9491

Description: Lemma for supremum theorem. (Contributed by NM, 21-May-1996.) (Revised by Mario Carneiro, 15-Jun-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
supsrlem.1	|- B = { w | ( C +R [ <. w , 1P >. ] ~R ) e. A }
supsrlem.2	|- C e. R.

Assertion

Ref	Expression
supsrlem	|- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> E. x e. R. ( A. y e. A -. x <R y /\ A. y e. R. ( y <R x -> E. z e. A y <R z ) ) )

Distinct variable groups:   x, y, z, w, A   x, B, y, z, w   x, C, y, z, w

Proof of Theorem supsrlem

Dummy variables v u are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		supsrlem.2	. . . . . . 7 |- C e. R.
2		0idsr 9477	. . . . . . 7 |- ( C e. R. -> ( C +R 0R ) = C )
3	1, 2	mp1i 12	. . . . . 6 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> ( C +R 0R ) = C )
4		simpl 457	. . . . . 6 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> C e. A )
5	3, 4	eqeltrd 2531	. . . . 5 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> ( C +R 0R ) e. A )
6		1pr 9396	. . . . . . 7 |- 1P e. P.
7	6	elexi 3105	. . . . . 6 |- 1P e. _V
8		opeq1 4202	. . . . . . . . . 10 |- ( w = 1P -> <. w , 1P >. = <. 1P , 1P >. )
9	8	eceq1d 7350	. . . . . . . . 9 |- ( w = 1P -> [ <. w , 1P >. ] ~R = [ <. 1P , 1P >. ] ~R )
10		df-0r 9441	. . . . . . . . 9 |- 0R = [ <. 1P , 1P >. ] ~R
11	9, 10	syl6eqr 2502	. . . . . . . 8 |- ( w = 1P -> [ <. w , 1P >. ] ~R = 0R )
12	11	oveq2d 6297	. . . . . . 7 |- ( w = 1P -> ( C +R [ <. w , 1P >. ] ~R ) = ( C +R 0R ) )
13	12	eleq1d 2512	. . . . . 6 |- ( w = 1P -> ( ( C +R [ <. w , 1P >. ] ~R ) e. A <-> ( C +R 0R ) e. A ) )
14		supsrlem.1	. . . . . 6 |- B = { w | ( C +R [ <. w , 1P >. ] ~R ) e. A }
15	7, 13, 14	elab2 3235	. . . . 5 |- ( 1P e. B <-> ( C +R 0R ) e. A )
16	5, 15	sylibr 212	. . . 4 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> 1P e. B )
17		ne0i 3776	. . . 4 |- ( 1P e. B -> B =/= (/) )
18	16, 17	syl 16	. . 3 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> B =/= (/) )
19		breq1 4440	. . . . . . . 8 |- ( y = C -> ( y <R x <-> C <R x ) )
20	19	rspccv 3193	. . . . . . 7 |- ( A. y e. A y <R x -> ( C e. A -> C <R x ) )
21		0lt1sr 9475	. . . . . . . . . . . . 13 |- 0R <R 1R
22		m1r 9462	. . . . . . . . . . . . . 14 |- -1R e. R.
23		ltasr 9480	. . . . . . . . . . . . . 14 |- ( -1R e. R. -> ( 0R <R 1R <-> ( -1R +R 0R ) <R ( -1R +R 1R ) ) )
24	22, 23	ax-mp 5	. . . . . . . . . . . . 13 |- ( 0R <R 1R <-> ( -1R +R 0R ) <R ( -1R +R 1R ) )
25	21, 24	mpbi 208	. . . . . . . . . . . 12 |- ( -1R +R 0R ) <R ( -1R +R 1R )
26		0idsr 9477	. . . . . . . . . . . . 13 |- ( -1R e. R. -> ( -1R +R 0R ) = -1R )
27	22, 26	ax-mp 5	. . . . . . . . . . . 12 |- ( -1R +R 0R ) = -1R
28		m1p1sr 9472	. . . . . . . . . . . 12 |- ( -1R +R 1R ) = 0R
29	25, 27, 28	3brtr3i 4464	. . . . . . . . . . 11 |- -1R <R 0R
30		ltasr 9480	. . . . . . . . . . . 12 |- ( C e. R. -> ( -1R <R 0R <-> ( C +R -1R ) <R ( C +R 0R ) ) )
31	1, 30	ax-mp 5	. . . . . . . . . . 11 |- ( -1R <R 0R <-> ( C +R -1R ) <R ( C +R 0R ) )
32	29, 31	mpbi 208	. . . . . . . . . 10 |- ( C +R -1R ) <R ( C +R 0R )
33	1, 2	ax-mp 5	. . . . . . . . . 10 |- ( C +R 0R ) = C
34	32, 33	breqtri 4460	. . . . . . . . 9 |- ( C +R -1R ) <R C
35		ltsosr 9474	. . . . . . . . . 10 |- <R Or R.
36		ltrelsr 9448	. . . . . . . . . 10 |- <R C_ ( R. X. R. )
37	35, 36	sotri 5384	. . . . . . . . 9 |- ( ( ( C +R -1R ) <R C /\ C <R x ) -> ( C +R -1R ) <R x )
38	34, 37	mpan 670	. . . . . . . 8 |- ( C <R x -> ( C +R -1R ) <R x )
39	1	map2psrpr 9490	. . . . . . . 8 |- ( ( C +R -1R ) <R x <-> E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x )
40	38, 39	sylib 196	. . . . . . 7 |- ( C <R x -> E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x )
41	20, 40	syl6 33	. . . . . 6 |- ( A. y e. A y <R x -> ( C e. A -> E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x ) )
42		breq2 4441	. . . . . . . . . 10 |- ( ( C +R [ <. v , 1P >. ] ~R ) = x -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) <-> y <R x ) )
43	42	ralbidv 2882	. . . . . . . . 9 |- ( ( C +R [ <. v , 1P >. ] ~R ) = x -> ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) <-> A. y e. A y <R x ) )
44	14	abeq2i 2570	. . . . . . . . . . 11 |- ( w e. B <-> ( C +R [ <. w , 1P >. ] ~R ) e. A )
45		breq1 4440	. . . . . . . . . . . . 13 |- ( y = ( C +R [ <. w , 1P >. ] ~R ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) <-> ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. v , 1P >. ] ~R ) ) )
46	45	rspccv 3193	. . . . . . . . . . . 12 |- ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) -> ( ( C +R [ <. w , 1P >. ] ~R ) e. A -> ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. v , 1P >. ] ~R ) ) )
47	1	ltpsrpr 9489	. . . . . . . . . . . 12 |- ( ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. v , 1P >. ] ~R ) <-> w <P v )
48	46, 47	syl6ib 226	. . . . . . . . . . 11 |- ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) -> ( ( C +R [ <. w , 1P >. ] ~R ) e. A -> w <P v ) )
49	44, 48	syl5bi 217	. . . . . . . . . 10 |- ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) -> ( w e. B -> w <P v ) )
50	49	ralrimiv 2855	. . . . . . . . 9 |- ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) -> A. w e. B w <P v )
51	43, 50	syl6bir 229	. . . . . . . 8 |- ( ( C +R [ <. v , 1P >. ] ~R ) = x -> ( A. y e. A y <R x -> A. w e. B w <P v ) )
52	51	com12 31	. . . . . . 7 |- ( A. y e. A y <R x -> ( ( C +R [ <. v , 1P >. ] ~R ) = x -> A. w e. B w <P v ) )
53	52	reximdv 2917	. . . . . 6 |- ( A. y e. A y <R x -> ( E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x -> E. v e. P. A. w e. B w <P v ) )
54	41, 53	syld 44	. . . . 5 |- ( A. y e. A y <R x -> ( C e. A -> E. v e. P. A. w e. B w <P v ) )
55	54	rexlimivw 2932	. . . 4 |- ( E. x e. R. A. y e. A y <R x -> ( C e. A -> E. v e. P. A. w e. B w <P v ) )
56	55	impcom 430	. . 3 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> E. v e. P. A. w e. B w <P v )
57		supexpr 9435	. . 3 |- ( ( B =/= (/) /\ E. v e. P. A. w e. B w <P v ) -> E. v e. P. ( A. w e. B -. v <P w /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) )
58	18, 56, 57	syl2anc 661	. 2 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> E. v e. P. ( A. w e. B -. v <P w /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) )
59	1	mappsrpr 9488	. . . . . . 7 |- ( ( C +R -1R ) <R ( C +R [ <. v , 1P >. ] ~R ) <-> v e. P. )
60	36	brel 5038	. . . . . . 7 |- ( ( C +R -1R ) <R ( C +R [ <. v , 1P >. ] ~R ) -> ( ( C +R -1R ) e. R. /\ ( C +R [ <. v , 1P >. ] ~R ) e. R. ) )
61	59, 60	sylbir 213	. . . . . 6 |- ( v e. P. -> ( ( C +R -1R ) e. R. /\ ( C +R [ <. v , 1P >. ] ~R ) e. R. ) )
62	61	simprd 463	. . . . 5 |- ( v e. P. -> ( C +R [ <. v , 1P >. ] ~R ) e. R. )
63	62	adantl 466	. . . 4 |- ( ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) /\ v e. P. ) -> ( C +R [ <. v , 1P >. ] ~R ) e. R. )
64	35, 36	sotri 5384	. . . . . . . . . . . . . . 15 |- ( ( ( C +R -1R ) <R ( C +R [ <. v , 1P >. ] ~R ) /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> ( C +R -1R ) <R y )
65	59, 64	sylanbr 473	. . . . . . . . . . . . . 14 |- ( ( v e. P. /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> ( C +R -1R ) <R y )
66	1	map2psrpr 9490	. . . . . . . . . . . . . 14 |- ( ( C +R -1R ) <R y <-> E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y )
67	65, 66	sylib 196	. . . . . . . . . . . . 13 |- ( ( v e. P. /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y )
68		rexex 2900	. . . . . . . . . . . . 13 |- ( E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y -> E. w ( C +R [ <. w , 1P >. ] ~R ) = y )
69		df-ral 2798	. . . . . . . . . . . . . . 15 |- ( A. w e. B -. v <P w <-> A. w ( w e. B -> -. v <P w ) )
70		19.29 1670	. . . . . . . . . . . . . . . 16 |- ( ( A. w ( w e. B -> -. v <P w ) /\ E. w ( C +R [ <. w , 1P >. ] ~R ) = y ) -> E. w ( ( w e. B -> -. v <P w ) /\ ( C +R [ <. w , 1P >. ] ~R ) = y ) )
71		eleq1 2515	. . . . . . . . . . . . . . . . . . . 20 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( C +R [ <. w , 1P >. ] ~R ) e. A <-> y e. A ) )
72	44, 71	syl5bb 257	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( w e. B <-> y e. A ) )
73	1	ltpsrpr 9489	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( C +R [ <. v , 1P >. ] ~R ) <R ( C +R [ <. w , 1P >. ] ~R ) <-> v <P w )
74		breq2 4441	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( C +R [ <. v , 1P >. ] ~R ) <R ( C +R [ <. w , 1P >. ] ~R ) <-> ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
75	73, 74	syl5bbr 259	. . . . . . . . . . . . . . . . . . . 20 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( v <P w <-> ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
76	75	notbid 294	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( -. v <P w <-> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
77	72, 76	imbi12d 320	. . . . . . . . . . . . . . . . . 18 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( w e. B -> -. v <P w ) <-> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) ) )
78	77	biimpac 486	. . . . . . . . . . . . . . . . 17 |- ( ( ( w e. B -> -. v <P w ) /\ ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
79	78	exlimiv 1709	. . . . . . . . . . . . . . . 16 |- ( E. w ( ( w e. B -> -. v <P w ) /\ ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
80	70, 79	syl 16	. . . . . . . . . . . . . . 15 |- ( ( A. w ( w e. B -> -. v <P w ) /\ E. w ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
81	69, 80	sylanb 472	. . . . . . . . . . . . . 14 |- ( ( A. w e. B -. v <P w /\ E. w ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
82	81	expcom 435	. . . . . . . . . . . . 13 |- ( E. w ( C +R [ <. w , 1P >. ] ~R ) = y -> ( A. w e. B -. v <P w -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) ) )
83	67, 68, 82	3syl 20	. . . . . . . . . . . 12 |- ( ( v e. P. /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> ( A. w e. B -. v <P w -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) ) )
84	83	impd 431	. . . . . . . . . . 11 |- ( ( v e. P. /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> ( ( A. w e. B -. v <P w /\ y e. A ) -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
85	84	impancom 440	. . . . . . . . . 10 |- ( ( v e. P. /\ ( A. w e. B -. v <P w /\ y e. A ) ) -> ( ( C +R [ <. v , 1P >. ] ~R ) <R y -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
86	85	pm2.01d 169	. . . . . . . . 9 |- ( ( v e. P. /\ ( A. w e. B -. v <P w /\ y e. A ) ) -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y )
87	86	expr 615	. . . . . . . 8 |- ( ( v e. P. /\ A. w e. B -. v <P w ) -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
88	87	ralrimiv 2855	. . . . . . 7 |- ( ( v e. P. /\ A. w e. B -. v <P w ) -> A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y )
89	88	ex 434	. . . . . 6 |- ( v e. P. -> ( A. w e. B -. v <P w -> A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
90	89	adantl 466	. . . . 5 |- ( ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) /\ v e. P. ) -> ( A. w e. B -. v <P w -> A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
91		r19.29 2978	. . . . . . . . . . . . . 14 |- ( ( A. w e. P. ( w <P v -> E. u e. B w <P u ) /\ E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y ) -> E. w e. P. ( ( w <P v -> E. u e. B w <P u ) /\ ( C +R [ <. w , 1P >. ] ~R ) = y ) )
92		breq1 4440	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. v , 1P >. ] ~R ) <-> y <R ( C +R [ <. v , 1P >. ] ~R ) ) )
93	47, 92	syl5bbr 259	. . . . . . . . . . . . . . . . . 18 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( w <P v <-> y <R ( C +R [ <. v , 1P >. ] ~R ) ) )
94	93	biimprd 223	. . . . . . . . . . . . . . . . 17 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> w <P v ) )
95		vex 3098	. . . . . . . . . . . . . . . . . . . . 21 |- u e. _V
96		opeq1 4202	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( w = u -> <. w , 1P >. = <. u , 1P >. )
97	96	eceq1d 7350	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( w = u -> [ <. w , 1P >. ] ~R = [ <. u , 1P >. ] ~R )
98	97	oveq2d 6297	. . . . . . . . . . . . . . . . . . . . . 22 |- ( w = u -> ( C +R [ <. w , 1P >. ] ~R ) = ( C +R [ <. u , 1P >. ] ~R ) )
99	98	eleq1d 2512	. . . . . . . . . . . . . . . . . . . . 21 |- ( w = u -> ( ( C +R [ <. w , 1P >. ] ~R ) e. A <-> ( C +R [ <. u , 1P >. ] ~R ) e. A ) )
100	95, 99, 14	elab2 3235	. . . . . . . . . . . . . . . . . . . 20 |- ( u e. B <-> ( C +R [ <. u , 1P >. ] ~R ) e. A )
101		breq2 4441	. . . . . . . . . . . . . . . . . . . . . 22 |- ( z = ( C +R [ <. u , 1P >. ] ~R ) -> ( ( C +R [ <. w , 1P >. ] ~R ) <R z <-> ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. u , 1P >. ] ~R ) ) )
102	1	ltpsrpr 9489	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. u , 1P >. ] ~R ) <-> w <P u )
103	101, 102	syl6bb 261	. . . . . . . . . . . . . . . . . . . . 21 |- ( z = ( C +R [ <. u , 1P >. ] ~R ) -> ( ( C +R [ <. w , 1P >. ] ~R ) <R z <-> w <P u ) )
104	103	rspcev 3196	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( C +R [ <. u , 1P >. ] ~R ) e. A /\ w <P u ) -> E. z e. A ( C +R [ <. w , 1P >. ] ~R ) <R z )
105	100, 104	sylanb 472	. . . . . . . . . . . . . . . . . . 19 |- ( ( u e. B /\ w <P u ) -> E. z e. A ( C +R [ <. w , 1P >. ] ~R ) <R z )
106	105	rexlimiva 2931	. . . . . . . . . . . . . . . . . 18 |- ( E. u e. B w <P u -> E. z e. A ( C +R [ <. w , 1P >. ] ~R ) <R z )
107		breq1 4440	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( C +R [ <. w , 1P >. ] ~R ) <R z <-> y <R z ) )
108	107	rexbidv 2954	. . . . . . . . . . . . . . . . . 18 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( E. z e. A ( C +R [ <. w , 1P >. ] ~R ) <R z <-> E. z e. A y <R z ) )
109	106, 108	syl5ib 219	. . . . . . . . . . . . . . . . 17 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( E. u e. B w <P u -> E. z e. A y <R z ) )
110	94, 109	imim12d 74	. . . . . . . . . . . . . . . 16 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( w <P v -> E. u e. B w <P u ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
111	110	impcom 430	. . . . . . . . . . . . . . 15 |- ( ( ( w <P v -> E. u e. B w <P u ) /\ ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) )
112	111	rexlimivw 2932	. . . . . . . . . . . . . 14 |- ( E. w e. P. ( ( w <P v -> E. u e. B w <P u ) /\ ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) )
113	91, 112	syl 16	. . . . . . . . . . . . 13 |- ( ( A. w e. P. ( w <P v -> E. u e. B w <P u ) /\ E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) )
114	66, 113	sylan2b 475	. . . . . . . . . . . 12 |- ( ( A. w e. P. ( w <P v -> E. u e. B w <P u ) /\ ( C +R -1R ) <R y ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) )
115	114	ex 434	. . . . . . . . . . 11 |- ( A. w e. P. ( w <P v -> E. u e. B w <P u ) -> ( ( C +R -1R ) <R y -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
116	115	adantl 466	. . . . . . . . . 10 |- ( ( ( C e. A /\ v e. P. ) /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> ( ( C +R -1R ) <R y -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
117	116	a1dd 46	. . . . . . . . 9 |- ( ( ( C e. A /\ v e. P. ) /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> ( ( C +R -1R ) <R y -> ( y e. R. -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) ) )
118	35, 36	sotri2 5386	. . . . . . . . . . . . 13 |- ( ( y e. R. /\ -. ( C +R -1R ) <R y /\ ( C +R -1R ) <R C ) -> y <R C )
119	34, 118	mp3an3 1314	. . . . . . . . . . . 12 |- ( ( y e. R. /\ -. ( C +R -1R ) <R y ) -> y <R C )
120		breq2 4441	. . . . . . . . . . . . . . 15 |- ( z = C -> ( y <R z <-> y <R C ) )
121	120	rspcev 3196	. . . . . . . . . . . . . 14 |- ( ( C e. A /\ y <R C ) -> E. z e. A y <R z )
122	121	ex 434	. . . . . . . . . . . . 13 |- ( C e. A -> ( y <R C -> E. z e. A y <R z ) )
123	122	a1dd 46	. . . . . . . . . . . 12 |- ( C e. A -> ( y <R C -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
124	119, 123	syl5 32	. . . . . . . . . . 11 |- ( C e. A -> ( ( y e. R. /\ -. ( C +R -1R ) <R y ) -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
125	124	expcomd 438	. . . . . . . . . 10 |- ( C e. A -> ( -. ( C +R -1R ) <R y -> ( y e. R. -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) ) )
126	125	ad2antrr 725	. . . . . . . . 9 |- ( ( ( C e. A /\ v e. P. ) /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> ( -. ( C +R -1R ) <R y -> ( y e. R. -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) ) )
127	117, 126	pm2.61d 158	. . . . . . . 8 |- ( ( ( C e. A /\ v e. P. ) /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> ( y e. R. -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
128	127	ralrimiv 2855	. . . . . . 7 |- ( ( ( C e. A /\ v e. P. ) /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) )
129	128	ex 434	. . . . . 6 |- ( ( C e. A /\ v e. P. ) -> ( A. w e. P. ( w <P v -> E. u e. B w <P u ) -> A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
130	129	adantlr 714	. . . . 5 |- ( ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) /\ v e. P. ) -> ( A. w e. P. ( w <P v -> E. u e. B w <P u ) -> A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
131	90, 130	anim12d 563	. . . 4 |- ( ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) /\ v e. P. ) -> ( ( A. w e. B -. v <P w /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> ( A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y /\ A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) ) )
132		breq1 4440	. . . . . . . 8 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( x <R y <-> ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
133	132	notbid 294	. . . . . . 7 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( -. x <R y <-> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
134	133	ralbidv 2882	. . . . . 6 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( A. y e. A -. x <R y <-> A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
135		breq2 4441	. . . . . . . 8 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( y <R x <-> y <R ( C +R [ <. v , 1P >. ] ~R ) ) )
136	135	imbi1d 317	. . . . . . 7 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( ( y <R x -> E. z e. A y <R z ) <-> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
137	136	ralbidv 2882	. . . . . 6 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( A. y e. R. ( y <R x -> E. z e. A y <R z ) <-> A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) )
138	134, 137	anbi12d 710	. . . . 5 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( ( A. y e. A -. x <R y /\ A. y e. R. ( y <R x -> E. z e. A y <R z ) ) <-> ( A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y /\ A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) ) )
139	138	rspcev 3196	. . . 4 |- ( ( ( C +R [ <. v , 1P >. ] ~R ) e. R. /\ ( A. y e. A -. ( C +R [ <. v , 1P >. ] ~R ) <R y /\ A. y e. R. ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> E. z e. A y <R z ) ) ) -> E. x e. R. ( A. y e. A -. x <R y /\ A. y e. R. ( y <R x -> E. z e. A y <R z ) ) )
140	63, 131, 139	syl6an 545	. . 3 |- ( ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) /\ v e. P. ) -> ( ( A. w e. B -. v <P w /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> E. x e. R. ( A. y e. A -. x <R y /\ A. y e. R. ( y <R x -> E. z e. A y <R z ) ) ) )
141	140	rexlimdva 2935	. 2 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> ( E. v e. P. ( A. w e. B -. v <P w /\ A. w e. P. ( w <P v -> E. u e. B w <P u ) ) -> E. x e. R. ( A. y e. A -. x <R y /\ A. y e. R. ( y <R x -> E. z e. A y <R z ) ) ) )
142	58, 141	mpd 15	1 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> E. x e. R. ( A. y e. A -. x <R y /\ A. y e. R. ( y <R x -> E. z e. A y <R z ) ) )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   /\ wa 369   A.wal 1381   = wceq 1383   E.wex 1599   e. wcel 1804   {cab 2428   =/= wne 2638   A.wral 2793   E.wrex 2794   (/)c0 3770   <.cop 4020   class class class wbr 4437  (class class class)co 6281   [cec 7311   P.cnp 9240   1Pc1p 9241   <P cltp 9244   ~R cer 9245   R.cnr 9246   0Rc0r 9247   1Rc1r 9248   -1Rcm1r 9249   +R cplr 9250   <R cltr 9252

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1605  ax-4 1618  ax-5 1691  ax-6 1734  ax-7 1776  ax-8 1806  ax-9 1808  ax-10 1823  ax-11 1828  ax-12 1840  ax-13 1985  ax-ext 2421  ax-sep 4558  ax-nul 4566  ax-pow 4615  ax-pr 4676  ax-un 6577  ax-inf2 8061

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 975  df-3an 976  df-tru 1386  df-ex 1600  df-nf 1604  df-sb 1727  df-eu 2272  df-mo 2273  df-clab 2429  df-cleq 2435  df-clel 2438  df-nfc 2593  df-ne 2640  df-ral 2798  df-rex 2799  df-reu 2800  df-rmo 2801  df-rab 2802  df-v 3097  df-sbc 3314  df-csb 3421  df-dif 3464  df-un 3466  df-in 3468  df-ss 3475  df-pss 3477  df-nul 3771  df-if 3927  df-pw 3999  df-sn 4015  df-pr 4017  df-tp 4019  df-op 4021  df-uni 4235  df-int 4272  df-iun 4317  df-br 4438  df-opab 4496  df-mpt 4497  df-tr 4531  df-eprel 4781  df-id 4785  df-po 4790  df-so 4791  df-fr 4828  df-we 4830  df-ord 4871  df-on 4872  df-lim 4873  df-suc 4874  df-xp 4995  df-rel 4996  df-cnv 4997  df-co 4998  df-dm 4999  df-rn 5000  df-res 5001  df-ima 5002  df-iota 5541  df-fun 5580  df-fn 5581  df-f 5582  df-f1 5583  df-fo 5584  df-f1o 5585  df-fv 5586  df-ov 6284  df-oprab 6285  df-mpt2 6286  df-om 6686  df-1st 6785  df-2nd 6786  df-recs 7044  df-rdg 7078  df-1o 7132  df-oadd 7136  df-omul 7137  df-er 7313  df-ec 7315  df-qs 7319  df-ni 9253  df-pli 9254  df-mi 9255  df-lti 9256  df-plpq 9289  df-mpq 9290  df-ltpq 9291  df-enq 9292  df-nq 9293  df-erq 9294  df-plq 9295  df-mq 9296  df-1nq 9297  df-rq 9298  df-ltnq 9299  df-np 9362  df-1p 9363  df-plp 9364  df-mp 9365  df-ltp 9366  df-enr 9436  df-nr 9437  df-plr 9438  df-mr 9439  df-ltr 9440  df-0r 9441  df-1r 9442  df-m1r 9443

This theorem is referenced by:  supsr  9492