Theorem map2psrprg 7817

Description: Equivalence for positive signed real. (Contributed by NM, 17-May-1996.) (Revised by Mario Carneiro, 15-Jun-2013.)

Assertion

Ref	Expression
map2psrprg	|- ( C e. R. -> ( ( C +R -1R ) <R A <-> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A ) )

Distinct variable groups:   x, A   x, C

Proof of Theorem map2psrprg

Dummy variables y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ltrelsr 7750	. . . . . . 7 |- <R C_ ( R. X. R. )
2	1	brel 4690	. . . . . 6 |- ( ( C +R -1R ) <R A -> ( ( C +R -1R ) e. R. /\ A e. R. ) )
3	2	simprd 114	. . . . 5 |- ( ( C +R -1R ) <R A -> A e. R. )
4	3	anim2i 342	. . . 4 |- ( ( C e. R. /\ ( C +R -1R ) <R A ) -> ( C e. R. /\ A e. R. ) )
5		simpr 110	. . . 4 |- ( ( C e. R. /\ ( C +R -1R ) <R A ) -> ( C +R -1R ) <R A )
6		m1r 7764	. . . . . . . 8 |- -1R e. R.
7	6	a1i 9	. . . . . . 7 |- ( ( C e. R. /\ A e. R. ) -> -1R e. R. )
8		simpl 109	. . . . . . . . 9 |- ( ( C e. R. /\ A e. R. ) -> C e. R. )
9		mulclsr 7766	. . . . . . . . 9 |- ( ( C e. R. /\ -1R e. R. ) -> ( C .R -1R ) e. R. )
10	8, 7, 9	syl2anc 411	. . . . . . . 8 |- ( ( C e. R. /\ A e. R. ) -> ( C .R -1R ) e. R. )
11		simpr 110	. . . . . . . 8 |- ( ( C e. R. /\ A e. R. ) -> A e. R. )
12		addclsr 7765	. . . . . . . 8 |- ( ( ( C .R -1R ) e. R. /\ A e. R. ) -> ( ( C .R -1R ) +R A ) e. R. )
13	10, 11, 12	syl2anc 411	. . . . . . 7 |- ( ( C e. R. /\ A e. R. ) -> ( ( C .R -1R ) +R A ) e. R. )
14		ltasrg 7782	. . . . . . 7 |- ( ( -1R e. R. /\ ( ( C .R -1R ) +R A ) e. R. /\ C e. R. ) -> ( -1R <R ( ( C .R -1R ) +R A ) <-> ( C +R -1R ) <R ( C +R ( ( C .R -1R ) +R A ) ) ) )
15	7, 13, 8, 14	syl3anc 1248	. . . . . 6 |- ( ( C e. R. /\ A e. R. ) -> ( -1R <R ( ( C .R -1R ) +R A ) <-> ( C +R -1R ) <R ( C +R ( ( C .R -1R ) +R A ) ) ) )
16		pn0sr 7783	. . . . . . . . . . 11 |- ( C e. R. -> ( C +R ( C .R -1R ) ) = 0R )
17	16	oveq1d 5903	. . . . . . . . . 10 |- ( C e. R. -> ( ( C +R ( C .R -1R ) ) +R A ) = ( 0R +R A ) )
18	17	adantr 276	. . . . . . . . 9 |- ( ( C e. R. /\ A e. R. ) -> ( ( C +R ( C .R -1R ) ) +R A ) = ( 0R +R A ) )
19		addasssrg 7768	. . . . . . . . . 10 |- ( ( C e. R. /\ ( C .R -1R ) e. R. /\ A e. R. ) -> ( ( C +R ( C .R -1R ) ) +R A ) = ( C +R ( ( C .R -1R ) +R A ) ) )
20	8, 10, 11, 19	syl3anc 1248	. . . . . . . . 9 |- ( ( C e. R. /\ A e. R. ) -> ( ( C +R ( C .R -1R ) ) +R A ) = ( C +R ( ( C .R -1R ) +R A ) ) )
21		0r 7762	. . . . . . . . . . 11 |- 0R e. R.
22	21	a1i 9	. . . . . . . . . 10 |- ( ( C e. R. /\ A e. R. ) -> 0R e. R. )
23		addcomsrg 7767	. . . . . . . . . 10 |- ( ( 0R e. R. /\ A e. R. ) -> ( 0R +R A ) = ( A +R 0R ) )
24	22, 11, 23	syl2anc 411	. . . . . . . . 9 |- ( ( C e. R. /\ A e. R. ) -> ( 0R +R A ) = ( A +R 0R ) )
25	18, 20, 24	3eqtr3d 2228	. . . . . . . 8 |- ( ( C e. R. /\ A e. R. ) -> ( C +R ( ( C .R -1R ) +R A ) ) = ( A +R 0R ) )
26		0idsr 7779	. . . . . . . . 9 |- ( A e. R. -> ( A +R 0R ) = A )
27	26	adantl 277	. . . . . . . 8 |- ( ( C e. R. /\ A e. R. ) -> ( A +R 0R ) = A )
28	25, 27	eqtrd 2220	. . . . . . 7 |- ( ( C e. R. /\ A e. R. ) -> ( C +R ( ( C .R -1R ) +R A ) ) = A )
29	28	breq2d 4027	. . . . . 6 |- ( ( C e. R. /\ A e. R. ) -> ( ( C +R -1R ) <R ( C +R ( ( C .R -1R ) +R A ) ) <-> ( C +R -1R ) <R A ) )
30	15, 29	bitrd 188	. . . . 5 |- ( ( C e. R. /\ A e. R. ) -> ( -1R <R ( ( C .R -1R ) +R A ) <-> ( C +R -1R ) <R A ) )
31	6, 9	mpan2 425	. . . . . . . 8 |- ( C e. R. -> ( C .R -1R ) e. R. )
32	31, 12	sylan 283	. . . . . . 7 |- ( ( C e. R. /\ A e. R. ) -> ( ( C .R -1R ) +R A ) e. R. )
33		df-nr 7739	. . . . . . . 8 |- R. = ( ( P. X. P. ) /. ~R )
34		breq2 4019	. . . . . . . . 9 |- ( [ <. y , z >. ] ~R = ( ( C .R -1R ) +R A ) -> ( -1R <R [ <. y , z >. ] ~R <-> -1R <R ( ( C .R -1R ) +R A ) ) )
35		eqeq2 2197	. . . . . . . . . 10 |- ( [ <. y , z >. ] ~R = ( ( C .R -1R ) +R A ) -> ( [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) ) )
36	35	rexbidv 2488	. . . . . . . . 9 |- ( [ <. y , z >. ] ~R = ( ( C .R -1R ) +R A ) -> ( E. x e. P. [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> E. x e. P. [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) ) )
37	34, 36	imbi12d 234	. . . . . . . 8 |- ( [ <. y , z >. ] ~R = ( ( C .R -1R ) +R A ) -> ( ( -1R <R [ <. y , z >. ] ~R -> E. x e. P. [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R ) <-> ( -1R <R ( ( C .R -1R ) +R A ) -> E. x e. P. [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) ) ) )
38		df-m1r 7745	. . . . . . . . . . . 12 |- -1R = [ <. 1P , ( 1P +P. 1P ) >. ] ~R
39	38	breq1i 4022	. . . . . . . . . . 11 |- ( -1R <R [ <. y , z >. ] ~R <-> [ <. 1P , ( 1P +P. 1P ) >. ] ~R <R [ <. y , z >. ] ~R )
40		1pr 7566	. . . . . . . . . . . . . . 15 |- 1P e. P.
41		addassprg 7591	. . . . . . . . . . . . . . 15 |- ( ( 1P e. P. /\ 1P e. P. /\ y e. P. ) -> ( ( 1P +P. 1P ) +P. y ) = ( 1P +P. ( 1P +P. y ) ) )
42	40, 40, 41	mp3an12 1337	. . . . . . . . . . . . . 14 |- ( y e. P. -> ( ( 1P +P. 1P ) +P. y ) = ( 1P +P. ( 1P +P. y ) ) )
43	42	breq2d 4027	. . . . . . . . . . . . 13 |- ( y e. P. -> ( ( 1P +P. z ) <P ( ( 1P +P. 1P ) +P. y ) <-> ( 1P +P. z ) <P ( 1P +P. ( 1P +P. y ) ) ) )
44	43	adantr 276	. . . . . . . . . . . 12 |- ( ( y e. P. /\ z e. P. ) -> ( ( 1P +P. z ) <P ( ( 1P +P. 1P ) +P. y ) <-> ( 1P +P. z ) <P ( 1P +P. ( 1P +P. y ) ) ) )
45		addclpr 7549	. . . . . . . . . . . . . 14 |- ( ( 1P e. P. /\ 1P e. P. ) -> ( 1P +P. 1P ) e. P. )
46	40, 40, 45	mp2an 426	. . . . . . . . . . . . 13 |- ( 1P +P. 1P ) e. P.
47		ltsrprg 7759	. . . . . . . . . . . . 13 |- ( ( ( 1P e. P. /\ ( 1P +P. 1P ) e. P. ) /\ ( y e. P. /\ z e. P. ) ) -> ( [ <. 1P , ( 1P +P. 1P ) >. ] ~R <R [ <. y , z >. ] ~R <-> ( 1P +P. z ) <P ( ( 1P +P. 1P ) +P. y ) ) )
48	40, 46, 47	mpanl12 436	. . . . . . . . . . . 12 |- ( ( y e. P. /\ z e. P. ) -> ( [ <. 1P , ( 1P +P. 1P ) >. ] ~R <R [ <. y , z >. ] ~R <-> ( 1P +P. z ) <P ( ( 1P +P. 1P ) +P. y ) ) )
49		simpr 110	. . . . . . . . . . . . 13 |- ( ( y e. P. /\ z e. P. ) -> z e. P. )
50	40	a1i 9	. . . . . . . . . . . . . 14 |- ( ( y e. P. /\ z e. P. ) -> 1P e. P. )
51		simpl 109	. . . . . . . . . . . . . 14 |- ( ( y e. P. /\ z e. P. ) -> y e. P. )
52		addclpr 7549	. . . . . . . . . . . . . 14 |- ( ( 1P e. P. /\ y e. P. ) -> ( 1P +P. y ) e. P. )
53	50, 51, 52	syl2anc 411	. . . . . . . . . . . . 13 |- ( ( y e. P. /\ z e. P. ) -> ( 1P +P. y ) e. P. )
54		ltaprg 7631	. . . . . . . . . . . . 13 |- ( ( z e. P. /\ ( 1P +P. y ) e. P. /\ 1P e. P. ) -> ( z <P ( 1P +P. y ) <-> ( 1P +P. z ) <P ( 1P +P. ( 1P +P. y ) ) ) )
55	49, 53, 50, 54	syl3anc 1248	. . . . . . . . . . . 12 |- ( ( y e. P. /\ z e. P. ) -> ( z <P ( 1P +P. y ) <-> ( 1P +P. z ) <P ( 1P +P. ( 1P +P. y ) ) ) )
56	44, 48, 55	3bitr4d 220	. . . . . . . . . . 11 |- ( ( y e. P. /\ z e. P. ) -> ( [ <. 1P , ( 1P +P. 1P ) >. ] ~R <R [ <. y , z >. ] ~R <-> z <P ( 1P +P. y ) ) )
57	39, 56	bitrid 192	. . . . . . . . . 10 |- ( ( y e. P. /\ z e. P. ) -> ( -1R <R [ <. y , z >. ] ~R <-> z <P ( 1P +P. y ) ) )
58		ltexpri 7625	. . . . . . . . . 10 |- ( z <P ( 1P +P. y ) -> E. x e. P. ( z +P. x ) = ( 1P +P. y ) )
59	57, 58	biimtrdi 163	. . . . . . . . 9 |- ( ( y e. P. /\ z e. P. ) -> ( -1R <R [ <. y , z >. ] ~R -> E. x e. P. ( z +P. x ) = ( 1P +P. y ) ) )
60		enreceq 7748	. . . . . . . . . . . . 13 |- ( ( ( x e. P. /\ 1P e. P. ) /\ ( y e. P. /\ z e. P. ) ) -> ( [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> ( x +P. z ) = ( 1P +P. y ) ) )
61	40, 60	mpanl2 435	. . . . . . . . . . . 12 |- ( ( x e. P. /\ ( y e. P. /\ z e. P. ) ) -> ( [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> ( x +P. z ) = ( 1P +P. y ) ) )
62	49	adantl 277	. . . . . . . . . . . . . 14 |- ( ( x e. P. /\ ( y e. P. /\ z e. P. ) ) -> z e. P. )
63		simpl 109	. . . . . . . . . . . . . 14 |- ( ( x e. P. /\ ( y e. P. /\ z e. P. ) ) -> x e. P. )
64		addcomprg 7590	. . . . . . . . . . . . . 14 |- ( ( z e. P. /\ x e. P. ) -> ( z +P. x ) = ( x +P. z ) )
65	62, 63, 64	syl2anc 411	. . . . . . . . . . . . 13 |- ( ( x e. P. /\ ( y e. P. /\ z e. P. ) ) -> ( z +P. x ) = ( x +P. z ) )
66	65	eqeq1d 2196	. . . . . . . . . . . 12 |- ( ( x e. P. /\ ( y e. P. /\ z e. P. ) ) -> ( ( z +P. x ) = ( 1P +P. y ) <-> ( x +P. z ) = ( 1P +P. y ) ) )
67	61, 66	bitr4d 191	. . . . . . . . . . 11 |- ( ( x e. P. /\ ( y e. P. /\ z e. P. ) ) -> ( [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> ( z +P. x ) = ( 1P +P. y ) ) )
68	67	ancoms 268	. . . . . . . . . 10 |- ( ( ( y e. P. /\ z e. P. ) /\ x e. P. ) -> ( [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> ( z +P. x ) = ( 1P +P. y ) ) )
69	68	rexbidva 2484	. . . . . . . . 9 |- ( ( y e. P. /\ z e. P. ) -> ( E. x e. P. [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R <-> E. x e. P. ( z +P. x ) = ( 1P +P. y ) ) )
70	59, 69	sylibrd 169	. . . . . . . 8 |- ( ( y e. P. /\ z e. P. ) -> ( -1R <R [ <. y , z >. ] ~R -> E. x e. P. [ <. x , 1P >. ] ~R = [ <. y , z >. ] ~R ) )
71	33, 37, 70	ecoptocl 6635	. . . . . . 7 |- ( ( ( C .R -1R ) +R A ) e. R. -> ( -1R <R ( ( C .R -1R ) +R A ) -> E. x e. P. [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) ) )
72	32, 71	syl 14	. . . . . 6 |- ( ( C e. R. /\ A e. R. ) -> ( -1R <R ( ( C .R -1R ) +R A ) -> E. x e. P. [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) ) )
73		oveq2 5896	. . . . . . . . 9 |- ( [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) -> ( C +R [ <. x , 1P >. ] ~R ) = ( C +R ( ( C .R -1R ) +R A ) ) )
74	73, 28	sylan9eqr 2242	. . . . . . . 8 |- ( ( ( C e. R. /\ A e. R. ) /\ [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) ) -> ( C +R [ <. x , 1P >. ] ~R ) = A )
75	74	ex 115	. . . . . . 7 |- ( ( C e. R. /\ A e. R. ) -> ( [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) -> ( C +R [ <. x , 1P >. ] ~R ) = A ) )
76	75	reximdv 2588	. . . . . 6 |- ( ( C e. R. /\ A e. R. ) -> ( E. x e. P. [ <. x , 1P >. ] ~R = ( ( C .R -1R ) +R A ) -> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A ) )
77	72, 76	syld 45	. . . . 5 |- ( ( C e. R. /\ A e. R. ) -> ( -1R <R ( ( C .R -1R ) +R A ) -> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A ) )
78	30, 77	sylbird 170	. . . 4 |- ( ( C e. R. /\ A e. R. ) -> ( ( C +R -1R ) <R A -> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A ) )
79	4, 5, 78	sylc 62	. . 3 |- ( ( C e. R. /\ ( C +R -1R ) <R A ) -> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A )
80	79	ex 115	. 2 |- ( C e. R. -> ( ( C +R -1R ) <R A -> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A ) )
81		mappsrprg 7816	. . . . 5 |- ( ( x e. P. /\ C e. R. ) -> ( C +R -1R ) <R ( C +R [ <. x , 1P >. ] ~R ) )
82		breq2 4019	. . . . 5 |- ( ( C +R [ <. x , 1P >. ] ~R ) = A -> ( ( C +R -1R ) <R ( C +R [ <. x , 1P >. ] ~R ) <-> ( C +R -1R ) <R A ) )
83	81, 82	syl5ibcom 155	. . . 4 |- ( ( x e. P. /\ C e. R. ) -> ( ( C +R [ <. x , 1P >. ] ~R ) = A -> ( C +R -1R ) <R A ) )
84	83	ancoms 268	. . 3 |- ( ( C e. R. /\ x e. P. ) -> ( ( C +R [ <. x , 1P >. ] ~R ) = A -> ( C +R -1R ) <R A ) )
85	84	rexlimdva 2604	. 2 |- ( C e. R. -> ( E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A -> ( C +R -1R ) <R A ) )
86	80, 85	impbid 129	1 |- ( C e. R. -> ( ( C +R -1R ) <R A <-> E. x e. P. ( C +R [ <. x , 1P >. ] ~R ) = A ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1363   e. wcel 2158   E.wrex 2466   <.cop 3607   class class class wbr 4015  (class class class)co 5888   [cec 6546   P.cnp 7303   1Pc1p 7304   +P. cpp 7305   <P cltp 7307   ~R cer 7308   R.cnr 7309   0Rc0r 7310   -1Rcm1r 7312   +R cplr 7313   .R cmr 7314   <R cltr 7315

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1457  ax-7 1458  ax-gen 1459  ax-ie1 1503  ax-ie2 1504  ax-8 1514  ax-10 1515  ax-11 1516  ax-i12 1517  ax-bndl 1519  ax-4 1520  ax-17 1536  ax-i9 1540  ax-ial 1544  ax-i5r 1545  ax-13 2160  ax-14 2161  ax-ext 2169  ax-coll 4130  ax-sep 4133  ax-nul 4141  ax-pow 4186  ax-pr 4221  ax-un 4445  ax-setind 4548  ax-iinf 4599

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 980  df-3an 981  df-tru 1366  df-fal 1369  df-nf 1471  df-sb 1773  df-eu 2039  df-mo 2040  df-clab 2174  df-cleq 2180  df-clel 2183  df-nfc 2318  df-ne 2358  df-ral 2470  df-rex 2471  df-reu 2472  df-rab 2474  df-v 2751  df-sbc 2975  df-csb 3070  df-dif 3143  df-un 3145  df-in 3147  df-ss 3154  df-nul 3435  df-pw 3589  df-sn 3610  df-pr 3611  df-op 3613  df-uni 3822  df-int 3857  df-iun 3900  df-br 4016  df-opab 4077  df-mpt 4078  df-tr 4114  df-eprel 4301  df-id 4305  df-po 4308  df-iso 4309  df-iord 4378  df-on 4380  df-suc 4383  df-iom 4602  df-xp 4644  df-rel 4645  df-cnv 4646  df-co 4647  df-dm 4648  df-rn 4649  df-res 4650  df-ima 4651  df-iota 5190  df-fun 5230  df-fn 5231  df-f 5232  df-f1 5233  df-fo 5234  df-f1o 5235  df-fv 5236  df-ov 5891  df-oprab 5892  df-mpo 5893  df-1st 6154  df-2nd 6155  df-recs 6319  df-irdg 6384  df-1o 6430  df-2o 6431  df-oadd 6434  df-omul 6435  df-er 6548  df-ec 6550  df-qs 6554  df-ni 7316  df-pli 7317  df-mi 7318  df-lti 7319  df-plpq 7356  df-mpq 7357  df-enq 7359  df-nqqs 7360  df-plqqs 7361  df-mqqs 7362  df-1nqqs 7363  df-rq 7364  df-ltnqqs 7365  df-enq0 7436  df-nq0 7437  df-0nq0 7438  df-plq0 7439  df-mq0 7440  df-inp 7478  df-i1p 7479  df-iplp 7480  df-imp 7481  df-iltp 7482  df-enr 7738  df-nr 7739  df-plr 7740  df-mr 7741  df-ltr 7742  df-0r 7743  df-1r 7744  df-m1r 7745

This theorem is referenced by:  suplocsrlemb  7818  suplocsrlempr  7819  suplocsrlem  7820