ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  map2psrprg GIF version

Theorem map2psrprg 7889
Description: Equivalence for positive signed real. (Contributed by NM, 17-May-1996.) (Revised by Mario Carneiro, 15-Jun-2013.)
Assertion
Ref Expression
map2psrprg (𝐶R → ((𝐶 +R -1R) <R 𝐴 ↔ ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐶

Proof of Theorem map2psrprg
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ltrelsr 7822 . . . . . . 7 <R ⊆ (R × R)
21brel 4716 . . . . . 6 ((𝐶 +R -1R) <R 𝐴 → ((𝐶 +R -1R) ∈ R𝐴R))
32simprd 114 . . . . 5 ((𝐶 +R -1R) <R 𝐴𝐴R)
43anim2i 342 . . . 4 ((𝐶R ∧ (𝐶 +R -1R) <R 𝐴) → (𝐶R𝐴R))
5 simpr 110 . . . 4 ((𝐶R ∧ (𝐶 +R -1R) <R 𝐴) → (𝐶 +R -1R) <R 𝐴)
6 m1r 7836 . . . . . . . 8 -1RR
76a1i 9 . . . . . . 7 ((𝐶R𝐴R) → -1RR)
8 simpl 109 . . . . . . . . 9 ((𝐶R𝐴R) → 𝐶R)
9 mulclsr 7838 . . . . . . . . 9 ((𝐶R ∧ -1RR) → (𝐶 ·R -1R) ∈ R)
108, 7, 9syl2anc 411 . . . . . . . 8 ((𝐶R𝐴R) → (𝐶 ·R -1R) ∈ R)
11 simpr 110 . . . . . . . 8 ((𝐶R𝐴R) → 𝐴R)
12 addclsr 7837 . . . . . . . 8 (((𝐶 ·R -1R) ∈ R𝐴R) → ((𝐶 ·R -1R) +R 𝐴) ∈ R)
1310, 11, 12syl2anc 411 . . . . . . 7 ((𝐶R𝐴R) → ((𝐶 ·R -1R) +R 𝐴) ∈ R)
14 ltasrg 7854 . . . . . . 7 ((-1RR ∧ ((𝐶 ·R -1R) +R 𝐴) ∈ R𝐶R) → (-1R <R ((𝐶 ·R -1R) +R 𝐴) ↔ (𝐶 +R -1R) <R (𝐶 +R ((𝐶 ·R -1R) +R 𝐴))))
157, 13, 8, 14syl3anc 1249 . . . . . 6 ((𝐶R𝐴R) → (-1R <R ((𝐶 ·R -1R) +R 𝐴) ↔ (𝐶 +R -1R) <R (𝐶 +R ((𝐶 ·R -1R) +R 𝐴))))
16 pn0sr 7855 . . . . . . . . . . 11 (𝐶R → (𝐶 +R (𝐶 ·R -1R)) = 0R)
1716oveq1d 5940 . . . . . . . . . 10 (𝐶R → ((𝐶 +R (𝐶 ·R -1R)) +R 𝐴) = (0R +R 𝐴))
1817adantr 276 . . . . . . . . 9 ((𝐶R𝐴R) → ((𝐶 +R (𝐶 ·R -1R)) +R 𝐴) = (0R +R 𝐴))
19 addasssrg 7840 . . . . . . . . . 10 ((𝐶R ∧ (𝐶 ·R -1R) ∈ R𝐴R) → ((𝐶 +R (𝐶 ·R -1R)) +R 𝐴) = (𝐶 +R ((𝐶 ·R -1R) +R 𝐴)))
208, 10, 11, 19syl3anc 1249 . . . . . . . . 9 ((𝐶R𝐴R) → ((𝐶 +R (𝐶 ·R -1R)) +R 𝐴) = (𝐶 +R ((𝐶 ·R -1R) +R 𝐴)))
21 0r 7834 . . . . . . . . . . 11 0RR
2221a1i 9 . . . . . . . . . 10 ((𝐶R𝐴R) → 0RR)
23 addcomsrg 7839 . . . . . . . . . 10 ((0RR𝐴R) → (0R +R 𝐴) = (𝐴 +R 0R))
2422, 11, 23syl2anc 411 . . . . . . . . 9 ((𝐶R𝐴R) → (0R +R 𝐴) = (𝐴 +R 0R))
2518, 20, 243eqtr3d 2237 . . . . . . . 8 ((𝐶R𝐴R) → (𝐶 +R ((𝐶 ·R -1R) +R 𝐴)) = (𝐴 +R 0R))
26 0idsr 7851 . . . . . . . . 9 (𝐴R → (𝐴 +R 0R) = 𝐴)
2726adantl 277 . . . . . . . 8 ((𝐶R𝐴R) → (𝐴 +R 0R) = 𝐴)
2825, 27eqtrd 2229 . . . . . . 7 ((𝐶R𝐴R) → (𝐶 +R ((𝐶 ·R -1R) +R 𝐴)) = 𝐴)
2928breq2d 4046 . . . . . 6 ((𝐶R𝐴R) → ((𝐶 +R -1R) <R (𝐶 +R ((𝐶 ·R -1R) +R 𝐴)) ↔ (𝐶 +R -1R) <R 𝐴))
3015, 29bitrd 188 . . . . 5 ((𝐶R𝐴R) → (-1R <R ((𝐶 ·R -1R) +R 𝐴) ↔ (𝐶 +R -1R) <R 𝐴))
316, 9mpan2 425 . . . . . . . 8 (𝐶R → (𝐶 ·R -1R) ∈ R)
3231, 12sylan 283 . . . . . . 7 ((𝐶R𝐴R) → ((𝐶 ·R -1R) +R 𝐴) ∈ R)
33 df-nr 7811 . . . . . . . 8 R = ((P × P) / ~R )
34 breq2 4038 . . . . . . . . 9 ([⟨𝑦, 𝑧⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → (-1R <R [⟨𝑦, 𝑧⟩] ~R ↔ -1R <R ((𝐶 ·R -1R) +R 𝐴)))
35 eqeq2 2206 . . . . . . . . . 10 ([⟨𝑦, 𝑧⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → ([⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴)))
3635rexbidv 2498 . . . . . . . . 9 ([⟨𝑦, 𝑧⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → (∃𝑥P [⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ ∃𝑥P [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴)))
3734, 36imbi12d 234 . . . . . . . 8 ([⟨𝑦, 𝑧⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → ((-1R <R [⟨𝑦, 𝑧⟩] ~R → ∃𝑥P [⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ) ↔ (-1R <R ((𝐶 ·R -1R) +R 𝐴) → ∃𝑥P [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴))))
38 df-m1r 7817 . . . . . . . . . . . 12 -1R = [⟨1P, (1P +P 1P)⟩] ~R
3938breq1i 4041 . . . . . . . . . . 11 (-1R <R [⟨𝑦, 𝑧⟩] ~R ↔ [⟨1P, (1P +P 1P)⟩] ~R <R [⟨𝑦, 𝑧⟩] ~R )
40 1pr 7638 . . . . . . . . . . . . . . 15 1PP
41 addassprg 7663 . . . . . . . . . . . . . . 15 ((1PP ∧ 1PP𝑦P) → ((1P +P 1P) +P 𝑦) = (1P +P (1P +P 𝑦)))
4240, 40, 41mp3an12 1338 . . . . . . . . . . . . . 14 (𝑦P → ((1P +P 1P) +P 𝑦) = (1P +P (1P +P 𝑦)))
4342breq2d 4046 . . . . . . . . . . . . 13 (𝑦P → ((1P +P 𝑧)<P ((1P +P 1P) +P 𝑦) ↔ (1P +P 𝑧)<P (1P +P (1P +P 𝑦))))
4443adantr 276 . . . . . . . . . . . 12 ((𝑦P𝑧P) → ((1P +P 𝑧)<P ((1P +P 1P) +P 𝑦) ↔ (1P +P 𝑧)<P (1P +P (1P +P 𝑦))))
45 addclpr 7621 . . . . . . . . . . . . . 14 ((1PP ∧ 1PP) → (1P +P 1P) ∈ P)
4640, 40, 45mp2an 426 . . . . . . . . . . . . 13 (1P +P 1P) ∈ P
47 ltsrprg 7831 . . . . . . . . . . . . 13 (((1PP ∧ (1P +P 1P) ∈ P) ∧ (𝑦P𝑧P)) → ([⟨1P, (1P +P 1P)⟩] ~R <R [⟨𝑦, 𝑧⟩] ~R ↔ (1P +P 𝑧)<P ((1P +P 1P) +P 𝑦)))
4840, 46, 47mpanl12 436 . . . . . . . . . . . 12 ((𝑦P𝑧P) → ([⟨1P, (1P +P 1P)⟩] ~R <R [⟨𝑦, 𝑧⟩] ~R ↔ (1P +P 𝑧)<P ((1P +P 1P) +P 𝑦)))
49 simpr 110 . . . . . . . . . . . . 13 ((𝑦P𝑧P) → 𝑧P)
5040a1i 9 . . . . . . . . . . . . . 14 ((𝑦P𝑧P) → 1PP)
51 simpl 109 . . . . . . . . . . . . . 14 ((𝑦P𝑧P) → 𝑦P)
52 addclpr 7621 . . . . . . . . . . . . . 14 ((1PP𝑦P) → (1P +P 𝑦) ∈ P)
5350, 51, 52syl2anc 411 . . . . . . . . . . . . 13 ((𝑦P𝑧P) → (1P +P 𝑦) ∈ P)
54 ltaprg 7703 . . . . . . . . . . . . 13 ((𝑧P ∧ (1P +P 𝑦) ∈ P ∧ 1PP) → (𝑧<P (1P +P 𝑦) ↔ (1P +P 𝑧)<P (1P +P (1P +P 𝑦))))
5549, 53, 50, 54syl3anc 1249 . . . . . . . . . . . 12 ((𝑦P𝑧P) → (𝑧<P (1P +P 𝑦) ↔ (1P +P 𝑧)<P (1P +P (1P +P 𝑦))))
5644, 48, 553bitr4d 220 . . . . . . . . . . 11 ((𝑦P𝑧P) → ([⟨1P, (1P +P 1P)⟩] ~R <R [⟨𝑦, 𝑧⟩] ~R𝑧<P (1P +P 𝑦)))
5739, 56bitrid 192 . . . . . . . . . 10 ((𝑦P𝑧P) → (-1R <R [⟨𝑦, 𝑧⟩] ~R𝑧<P (1P +P 𝑦)))
58 ltexpri 7697 . . . . . . . . . 10 (𝑧<P (1P +P 𝑦) → ∃𝑥P (𝑧 +P 𝑥) = (1P +P 𝑦))
5957, 58biimtrdi 163 . . . . . . . . 9 ((𝑦P𝑧P) → (-1R <R [⟨𝑦, 𝑧⟩] ~R → ∃𝑥P (𝑧 +P 𝑥) = (1P +P 𝑦)))
60 enreceq 7820 . . . . . . . . . . . . 13 (((𝑥P ∧ 1PP) ∧ (𝑦P𝑧P)) → ([⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ (𝑥 +P 𝑧) = (1P +P 𝑦)))
6140, 60mpanl2 435 . . . . . . . . . . . 12 ((𝑥P ∧ (𝑦P𝑧P)) → ([⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ (𝑥 +P 𝑧) = (1P +P 𝑦)))
6249adantl 277 . . . . . . . . . . . . . 14 ((𝑥P ∧ (𝑦P𝑧P)) → 𝑧P)
63 simpl 109 . . . . . . . . . . . . . 14 ((𝑥P ∧ (𝑦P𝑧P)) → 𝑥P)
64 addcomprg 7662 . . . . . . . . . . . . . 14 ((𝑧P𝑥P) → (𝑧 +P 𝑥) = (𝑥 +P 𝑧))
6562, 63, 64syl2anc 411 . . . . . . . . . . . . 13 ((𝑥P ∧ (𝑦P𝑧P)) → (𝑧 +P 𝑥) = (𝑥 +P 𝑧))
6665eqeq1d 2205 . . . . . . . . . . . 12 ((𝑥P ∧ (𝑦P𝑧P)) → ((𝑧 +P 𝑥) = (1P +P 𝑦) ↔ (𝑥 +P 𝑧) = (1P +P 𝑦)))
6761, 66bitr4d 191 . . . . . . . . . . 11 ((𝑥P ∧ (𝑦P𝑧P)) → ([⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ (𝑧 +P 𝑥) = (1P +P 𝑦)))
6867ancoms 268 . . . . . . . . . 10 (((𝑦P𝑧P) ∧ 𝑥P) → ([⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ (𝑧 +P 𝑥) = (1P +P 𝑦)))
6968rexbidva 2494 . . . . . . . . 9 ((𝑦P𝑧P) → (∃𝑥P [⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ↔ ∃𝑥P (𝑧 +P 𝑥) = (1P +P 𝑦)))
7059, 69sylibrd 169 . . . . . . . 8 ((𝑦P𝑧P) → (-1R <R [⟨𝑦, 𝑧⟩] ~R → ∃𝑥P [⟨𝑥, 1P⟩] ~R = [⟨𝑦, 𝑧⟩] ~R ))
7133, 37, 70ecoptocl 6690 . . . . . . 7 (((𝐶 ·R -1R) +R 𝐴) ∈ R → (-1R <R ((𝐶 ·R -1R) +R 𝐴) → ∃𝑥P [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴)))
7232, 71syl 14 . . . . . 6 ((𝐶R𝐴R) → (-1R <R ((𝐶 ·R -1R) +R 𝐴) → ∃𝑥P [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴)))
73 oveq2 5933 . . . . . . . . 9 ([⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = (𝐶 +R ((𝐶 ·R -1R) +R 𝐴)))
7473, 28sylan9eqr 2251 . . . . . . . 8 (((𝐶R𝐴R) ∧ [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴)) → (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴)
7574ex 115 . . . . . . 7 ((𝐶R𝐴R) → ([⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
7675reximdv 2598 . . . . . 6 ((𝐶R𝐴R) → (∃𝑥P [⟨𝑥, 1P⟩] ~R = ((𝐶 ·R -1R) +R 𝐴) → ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
7772, 76syld 45 . . . . 5 ((𝐶R𝐴R) → (-1R <R ((𝐶 ·R -1R) +R 𝐴) → ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
7830, 77sylbird 170 . . . 4 ((𝐶R𝐴R) → ((𝐶 +R -1R) <R 𝐴 → ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
794, 5, 78sylc 62 . . 3 ((𝐶R ∧ (𝐶 +R -1R) <R 𝐴) → ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴)
8079ex 115 . 2 (𝐶R → ((𝐶 +R -1R) <R 𝐴 → ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
81 mappsrprg 7888 . . . . 5 ((𝑥P𝐶R) → (𝐶 +R -1R) <R (𝐶 +R [⟨𝑥, 1P⟩] ~R ))
82 breq2 4038 . . . . 5 ((𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴 → ((𝐶 +R -1R) <R (𝐶 +R [⟨𝑥, 1P⟩] ~R ) ↔ (𝐶 +R -1R) <R 𝐴))
8381, 82syl5ibcom 155 . . . 4 ((𝑥P𝐶R) → ((𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴 → (𝐶 +R -1R) <R 𝐴))
8483ancoms 268 . . 3 ((𝐶R𝑥P) → ((𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴 → (𝐶 +R -1R) <R 𝐴))
8584rexlimdva 2614 . 2 (𝐶R → (∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴 → (𝐶 +R -1R) <R 𝐴))
8680, 85impbid 129 1 (𝐶R → ((𝐶 +R -1R) <R 𝐴 ↔ ∃𝑥P (𝐶 +R [⟨𝑥, 1P⟩] ~R ) = 𝐴))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wb 105   = wceq 1364  wcel 2167  wrex 2476  cop 3626   class class class wbr 4034  (class class class)co 5925  [cec 6599  Pcnp 7375  1Pc1p 7376   +P cpp 7377  <P cltp 7379   ~R cer 7380  Rcnr 7381  0Rc0r 7382  -1Rcm1r 7384   +R cplr 7385   ·R cmr 7386   <R cltr 7387
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 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4149  ax-sep 4152  ax-nul 4160  ax-pow 4208  ax-pr 4243  ax-un 4469  ax-setind 4574  ax-iinf 4625
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-ral 2480  df-rex 2481  df-reu 2482  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3452  df-pw 3608  df-sn 3629  df-pr 3630  df-op 3632  df-uni 3841  df-int 3876  df-iun 3919  df-br 4035  df-opab 4096  df-mpt 4097  df-tr 4133  df-eprel 4325  df-id 4329  df-po 4332  df-iso 4333  df-iord 4402  df-on 4404  df-suc 4407  df-iom 4628  df-xp 4670  df-rel 4671  df-cnv 4672  df-co 4673  df-dm 4674  df-rn 4675  df-res 4676  df-ima 4677  df-iota 5220  df-fun 5261  df-fn 5262  df-f 5263  df-f1 5264  df-fo 5265  df-f1o 5266  df-fv 5267  df-ov 5928  df-oprab 5929  df-mpo 5930  df-1st 6207  df-2nd 6208  df-recs 6372  df-irdg 6437  df-1o 6483  df-2o 6484  df-oadd 6487  df-omul 6488  df-er 6601  df-ec 6603  df-qs 6607  df-ni 7388  df-pli 7389  df-mi 7390  df-lti 7391  df-plpq 7428  df-mpq 7429  df-enq 7431  df-nqqs 7432  df-plqqs 7433  df-mqqs 7434  df-1nqqs 7435  df-rq 7436  df-ltnqqs 7437  df-enq0 7508  df-nq0 7509  df-0nq0 7510  df-plq0 7511  df-mq0 7512  df-inp 7550  df-i1p 7551  df-iplp 7552  df-imp 7553  df-iltp 7554  df-enr 7810  df-nr 7811  df-plr 7812  df-mr 7813  df-ltr 7814  df-0r 7815  df-1r 7816  df-m1r 7817
This theorem is referenced by:  suplocsrlemb  7890  suplocsrlempr  7891  suplocsrlem  7892
  Copyright terms: Public domain W3C validator