Theorem supsrlem 9532

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 9518	. . . . . . 7 |- ( C e. R. -> ( C +R 0R ) = C )
3	1, 2	mp1i 13	. . . . . 6 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> ( C +R 0R ) = C )
4		simpl 459	. . . . . 6 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> C e. A )
5	3, 4	eqeltrd 2528	. . . . 5 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> ( C +R 0R ) e. A )
6		1pr 9437	. . . . . . 7 |- 1P e. P.
7	6	elexi 3054	. . . . . 6 |- 1P e. _V
8		opeq1 4165	. . . . . . . . . 10 |- ( w = 1P -> <. w , 1P >. = <. 1P , 1P >. )
9	8	eceq1d 7397	. . . . . . . . 9 |- ( w = 1P -> [ <. w , 1P >. ] ~R = [ <. 1P , 1P >. ] ~R )
10		df-0r 9482	. . . . . . . . 9 |- 0R = [ <. 1P , 1P >. ] ~R
11	9, 10	syl6eqr 2502	. . . . . . . 8 |- ( w = 1P -> [ <. w , 1P >. ] ~R = 0R )
12	11	oveq2d 6304	. . . . . . 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 3187	. . . . 5 |- ( 1P e. B <-> ( C +R 0R ) e. A )
16	5, 15	sylibr 216	. . . 4 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> 1P e. B )
17		ne0i 3736	. . . 4 |- ( 1P e. B -> B =/= (/) )
18	16, 17	syl 17	. . 3 |- ( ( C e. A /\ E. x e. R. A. y e. A y <R x ) -> B =/= (/) )
19		breq1 4404	. . . . . . . 8 |- ( y = C -> ( y <R x <-> C <R x ) )
20	19	rspccv 3146	. . . . . . 7 |- ( A. y e. A y <R x -> ( C e. A -> C <R x ) )
21		0lt1sr 9516	. . . . . . . . . . . . 13 |- 0R <R 1R
22		m1r 9503	. . . . . . . . . . . . . 14 |- -1R e. R.
23		ltasr 9521	. . . . . . . . . . . . . 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 212	. . . . . . . . . . . 12 |- ( -1R +R 0R ) <R ( -1R +R 1R )
26		0idsr 9518	. . . . . . . . . . . . 13 |- ( -1R e. R. -> ( -1R +R 0R ) = -1R )
27	22, 26	ax-mp 5	. . . . . . . . . . . 12 |- ( -1R +R 0R ) = -1R
28		m1p1sr 9513	. . . . . . . . . . . 12 |- ( -1R +R 1R ) = 0R
29	25, 27, 28	3brtr3i 4429	. . . . . . . . . . 11 |- -1R <R 0R
30		ltasr 9521	. . . . . . . . . . . 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 212	. . . . . . . . . 10 |- ( C +R -1R ) <R ( C +R 0R )
33	1, 2	ax-mp 5	. . . . . . . . . 10 |- ( C +R 0R ) = C
34	32, 33	breqtri 4425	. . . . . . . . 9 |- ( C +R -1R ) <R C
35		ltsosr 9515	. . . . . . . . . 10 |- <R Or R.
36		ltrelsr 9489	. . . . . . . . . 10 |- <R C_ ( R. X. R. )
37	35, 36	sotri 5226	. . . . . . . . 9 |- ( ( ( C +R -1R ) <R C /\ C <R x ) -> ( C +R -1R ) <R x )
38	34, 37	mpan 675	. . . . . . . 8 |- ( C <R x -> ( C +R -1R ) <R x )
39	1	map2psrpr 9531	. . . . . . . 8 |- ( ( C +R -1R ) <R x <-> E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x )
40	38, 39	sylib 200	. . . . . . 7 |- ( C <R x -> E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x )
41	20, 40	syl6 34	. . . . . 6 |- ( A. y e. A y <R x -> ( C e. A -> E. v e. P. ( C +R [ <. v , 1P >. ] ~R ) = x ) )
42		breq2 4405	. . . . . . . . . 10 |- ( ( C +R [ <. v , 1P >. ] ~R ) = x -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) <-> y <R x ) )
43	42	ralbidv 2826	. . . . . . . . 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 2562	. . . . . . . . . . 11 |- ( w e. B <-> ( C +R [ <. w , 1P >. ] ~R ) e. A )
45		breq1 4404	. . . . . . . . . . . . 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 3146	. . . . . . . . . . . 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 9530	. . . . . . . . . . . 12 |- ( ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. v , 1P >. ] ~R ) <-> w <P v )
48	46, 47	syl6ib 230	. . . . . . . . . . 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 221	. . . . . . . . . 10 |- ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) -> ( w e. B -> w <P v ) )
50	49	ralrimiv 2799	. . . . . . . . 9 |- ( A. y e. A y <R ( C +R [ <. v , 1P >. ] ~R ) -> A. w e. B w <P v )
51	43, 50	syl6bir 233	. . . . . . . 8 |- ( ( C +R [ <. v , 1P >. ] ~R ) = x -> ( A. y e. A y <R x -> A. w e. B w <P v ) )
52	51	com12 32	. . . . . . 7 |- ( A. y e. A y <R x -> ( ( C +R [ <. v , 1P >. ] ~R ) = x -> A. w e. B w <P v ) )
53	52	reximdv 2860	. . . . . 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 45	. . . . 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 2875	. . . 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 432	. . 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 9476	. . 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 666	. 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 9529	. . . . . . 7 |- ( ( C +R -1R ) <R ( C +R [ <. v , 1P >. ] ~R ) <-> v e. P. )
60	36	brel 4882	. . . . . . 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 217	. . . . . 6 |- ( v e. P. -> ( ( C +R -1R ) e. R. /\ ( C +R [ <. v , 1P >. ] ~R ) e. R. ) )
62	61	simprd 465	. . . . 5 |- ( v e. P. -> ( C +R [ <. v , 1P >. ] ~R ) e. R. )
63	62	adantl 468	. . . 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 5226	. . . . . . . . . . . . . . 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 476	. . . . . . . . . . . . . 14 |- ( ( v e. P. /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> ( C +R -1R ) <R y )
66	1	map2psrpr 9531	. . . . . . . . . . . . . 14 |- ( ( C +R -1R ) <R y <-> E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y )
67	65, 66	sylib 200	. . . . . . . . . . . . 13 |- ( ( v e. P. /\ ( C +R [ <. v , 1P >. ] ~R ) <R y ) -> E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y )
68		rexex 2843	. . . . . . . . . . . . 13 |- ( E. w e. P. ( C +R [ <. w , 1P >. ] ~R ) = y -> E. w ( C +R [ <. w , 1P >. ] ~R ) = y )
69		df-ral 2741	. . . . . . . . . . . . . . 15 |- ( A. w e. B -. v <P w <-> A. w ( w e. B -> -. v <P w ) )
70		19.29 1734	. . . . . . . . . . . . . . . 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 2516	. . . . . . . . . . . . . . . . . . . 20 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( C +R [ <. w , 1P >. ] ~R ) e. A <-> y e. A ) )
72	44, 71	syl5bb 261	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( w e. B <-> y e. A ) )
73	1	ltpsrpr 9530	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( C +R [ <. v , 1P >. ] ~R ) <R ( C +R [ <. w , 1P >. ] ~R ) <-> v <P w )
74		breq2 4405	. . . . . . . . . . . . . . . . . . . . 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 263	. . . . . . . . . . . . . . . . . . . 20 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( v <P w <-> ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
76	75	notbid 296	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( -. v <P w <-> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
77	72, 76	imbi12d 322	. . . . . . . . . . . . . . . . . 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 489	. . . . . . . . . . . . . . . . 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 1775	. . . . . . . . . . . . . . . 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 17	. . . . . . . . . . . . . . 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 475	. . . . . . . . . . . . . 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 437	. . . . . . . . . . . . 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 18	. . . . . . . . . . . 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 433	. . . . . . . . . . 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 442	. . . . . . . . . 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 173	. . . . . . . . 9 |- ( ( v e. P. /\ ( A. w e. B -. v <P w /\ y e. A ) ) -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y )
87	86	expr 619	. . . . . . . 8 |- ( ( v e. P. /\ A. w e. B -. v <P w ) -> ( y e. A -> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
88	87	ralrimiv 2799	. . . . . . 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 436	. . . . . 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 468	. . . . 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 2924	. . . . . . . . . . . . . 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 4404	. . . . . . . . . . . . . . . . . . 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 263	. . . . . . . . . . . . . . . . . 18 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( w <P v <-> y <R ( C +R [ <. v , 1P >. ] ~R ) ) )
94	93	biimprd 227	. . . . . . . . . . . . . . . . 17 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( y <R ( C +R [ <. v , 1P >. ] ~R ) -> w <P v ) )
95		vex 3047	. . . . . . . . . . . . . . . . . . . . 21 |- u e. _V
96		opeq1 4165	. . . . . . . . . . . . . . . . . . . . . . . 24 |- ( w = u -> <. w , 1P >. = <. u , 1P >. )
97	96	eceq1d 7397	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( w = u -> [ <. w , 1P >. ] ~R = [ <. u , 1P >. ] ~R )
98	97	oveq2d 6304	. . . . . . . . . . . . . . . . . . . . . 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 3187	. . . . . . . . . . . . . . . . . . . 20 |- ( u e. B <-> ( C +R [ <. u , 1P >. ] ~R ) e. A )
101		breq2 4405	. . . . . . . . . . . . . . . . . . . . . 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 9530	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( C +R [ <. w , 1P >. ] ~R ) <R ( C +R [ <. u , 1P >. ] ~R ) <-> w <P u )
103	101, 102	syl6bb 265	. . . . . . . . . . . . . . . . . . . . 21 |- ( z = ( C +R [ <. u , 1P >. ] ~R ) -> ( ( C +R [ <. w , 1P >. ] ~R ) <R z <-> w <P u ) )
104	103	rspcev 3149	. . . . . . . . . . . . . . . . . . . 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 475	. . . . . . . . . . . . . . . . . . 19 |- ( ( u e. B /\ w <P u ) -> E. z e. A ( C +R [ <. w , 1P >. ] ~R ) <R z )
106	105	rexlimiva 2874	. . . . . . . . . . . . . . . . . 18 |- ( E. u e. B w <P u -> E. z e. A ( C +R [ <. w , 1P >. ] ~R ) <R z )
107		breq1 4404	. . . . . . . . . . . . . . . . . . 19 |- ( ( C +R [ <. w , 1P >. ] ~R ) = y -> ( ( C +R [ <. w , 1P >. ] ~R ) <R z <-> y <R z ) )
108	107	rexbidv 2900	. . . . . . . . . . . . . . . . . 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 223	. . . . . . . . . . . . . . . . 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 77	. . . . . . . . . . . . . . . 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 432	. . . . . . . . . . . . . . 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 2875	. . . . . . . . . . . . . 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 17	. . . . . . . . . . . . 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 478	. . . . . . . . . . . 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 436	. . . . . . . . . . 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 468	. . . . . . . . . 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 47	. . . . . . . . 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 5228	. . . . . . . . . . . . 13 |- ( ( y e. R. /\ -. ( C +R -1R ) <R y /\ ( C +R -1R ) <R C ) -> y <R C )
119	34, 118	mp3an3 1352	. . . . . . . . . . . 12 |- ( ( y e. R. /\ -. ( C +R -1R ) <R y ) -> y <R C )
120		breq2 4405	. . . . . . . . . . . . . . 15 |- ( z = C -> ( y <R z <-> y <R C ) )
121	120	rspcev 3149	. . . . . . . . . . . . . 14 |- ( ( C e. A /\ y <R C ) -> E. z e. A y <R z )
122	121	ex 436	. . . . . . . . . . . . 13 |- ( C e. A -> ( y <R C -> E. z e. A y <R z ) )
123	122	a1dd 47	. . . . . . . . . . . 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 33	. . . . . . . . . . 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 440	. . . . . . . . . 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 731	. . . . . . . . 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 162	. . . . . . . 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 2799	. . . . . . 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 436	. . . . . 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 720	. . . . 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 566	. . . 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 4404	. . . . . . . 8 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( x <R y <-> ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
133	132	notbid 296	. . . . . . 7 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( -. x <R y <-> -. ( C +R [ <. v , 1P >. ] ~R ) <R y ) )
134	133	ralbidv 2826	. . . . . 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 4405	. . . . . . . 8 |- ( x = ( C +R [ <. v , 1P >. ] ~R ) -> ( y <R x <-> y <R ( C +R [ <. v , 1P >. ] ~R ) ) )
136	135	imbi1d 319	. . . . . . 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 2826	. . . . . 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 716	. . . . 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 3149	. . . 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 548	. . 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 2878	. 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 188   /\ wa 371   A.wal 1441   = wceq 1443   E.wex 1662   e. wcel 1886   {cab 2436   =/= wne 2621   A.wral 2736   E.wrex 2737   (/)c0 3730   <.cop 3973   class class class wbr 4401  (class class class)co 6288   [cec 7358   P.cnp 9281   1Pc1p 9282   <P cltp 9285   ~R cer 9286   R.cnr 9287   0Rc0r 9288   1Rc1r 9289   -1Rcm1r 9290   +R cplr 9291   <R cltr 9293

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1668  ax-4 1681  ax-5 1757  ax-6 1804  ax-7 1850  ax-8 1888  ax-9 1895  ax-10 1914  ax-11 1919  ax-12 1932  ax-13 2090  ax-ext 2430  ax-sep 4524  ax-nul 4533  ax-pow 4580  ax-pr 4638  ax-un 6580  ax-inf2 8143

This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 985  df-3an 986  df-tru 1446  df-ex 1663  df-nf 1667  df-sb 1797  df-eu 2302  df-mo 2303  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2580  df-ne 2623  df-ral 2741  df-rex 2742  df-reu 2743  df-rmo 2744  df-rab 2745  df-v 3046  df-sbc 3267  df-csb 3363  df-dif 3406  df-un 3408  df-in 3410  df-ss 3417  df-pss 3419  df-nul 3731  df-if 3881  df-pw 3952  df-sn 3968  df-pr 3970  df-tp 3972  df-op 3974  df-uni 4198  df-int 4234  df-iun 4279  df-br 4402  df-opab 4461  df-mpt 4462  df-tr 4497  df-eprel 4744  df-id 4748  df-po 4754  df-so 4755  df-fr 4792  df-we 4794  df-xp 4839  df-rel 4840  df-cnv 4841  df-co 4842  df-dm 4843  df-rn 4844  df-res 4845  df-ima 4846  df-pred 5379  df-ord 5425  df-on 5426  df-lim 5427  df-suc 5428  df-iota 5545  df-fun 5583  df-fn 5584  df-f 5585  df-f1 5586  df-fo 5587  df-f1o 5588  df-fv 5589  df-ov 6291  df-oprab 6292  df-mpt2 6293  df-om 6690  df-1st 6790  df-2nd 6791  df-wrecs 7025  df-recs 7087  df-rdg 7125  df-1o 7179  df-oadd 7183  df-omul 7184  df-er 7360  df-ec 7362  df-qs 7366  df-ni 9294  df-pli 9295  df-mi 9296  df-lti 9297  df-plpq 9330  df-mpq 9331  df-ltpq 9332  df-enq 9333  df-nq 9334  df-erq 9335  df-plq 9336  df-mq 9337  df-1nq 9338  df-rq 9339  df-ltnq 9340  df-np 9403  df-1p 9404  df-plp 9405  df-mp 9406  df-ltp 9407  df-enr 9477  df-nr 9478  df-plr 9479  df-mr 9480  df-ltr 9481  df-0r 9482  df-1r 9483  df-m1r 9484

This theorem is referenced by:  supsr  9533