| Step | Hyp | Ref
| Expression |
| 1 | | ltrelsr 7805 |
. . . . . . 7
⊢
<R ⊆ (R ×
R) |
| 2 | 1 | brel 4715 |
. . . . . 6
⊢ ((𝐶 +R
-1R) <R 𝐴 → ((𝐶 +R
-1R) ∈ R ∧ 𝐴 ∈ R)) |
| 3 | 2 | simprd 114 |
. . . . 5
⊢ ((𝐶 +R
-1R) <R 𝐴 → 𝐴 ∈ R) |
| 4 | 3 | anim2i 342 |
. . . 4
⊢ ((𝐶 ∈ R ∧
(𝐶
+R -1R)
<R 𝐴) → (𝐶 ∈ R ∧ 𝐴 ∈
R)) |
| 5 | | simpr 110 |
. . . 4
⊢ ((𝐶 ∈ R ∧
(𝐶
+R -1R)
<R 𝐴) → (𝐶 +R
-1R) <R 𝐴) |
| 6 | | m1r 7819 |
. . . . . . . 8
⊢
-1R ∈ R |
| 7 | 6 | a1i 9 |
. . . . . . 7
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ -1R ∈ R) |
| 8 | | simpl 109 |
. . . . . . . . 9
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ 𝐶 ∈
R) |
| 9 | | mulclsr 7821 |
. . . . . . . . 9
⊢ ((𝐶 ∈ R ∧
-1R ∈ R) → (𝐶 ·R
-1R) ∈ R) |
| 10 | 8, 7, 9 | syl2anc 411 |
. . . . . . . 8
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (𝐶
·R -1R) ∈
R) |
| 11 | | simpr 110 |
. . . . . . . 8
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ 𝐴 ∈
R) |
| 12 | | addclsr 7820 |
. . . . . . . 8
⊢ (((𝐶
·R -1R) ∈
R ∧ 𝐴
∈ R) → ((𝐶 ·R
-1R) +R 𝐴) ∈ R) |
| 13 | 10, 11, 12 | syl2anc 411 |
. . . . . . 7
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ((𝐶
·R -1R)
+R 𝐴) ∈ R) |
| 14 | | ltasrg 7837 |
. . . . . . 7
⊢
((-1R ∈ R ∧ ((𝐶
·R -1R)
+R 𝐴) ∈ R ∧ 𝐶 ∈ R) →
(-1R <R ((𝐶
·R -1R)
+R 𝐴) ↔ (𝐶 +R
-1R) <R (𝐶 +R ((𝐶
·R -1R)
+R 𝐴)))) |
| 15 | 7, 13, 8, 14 | syl3anc 1249 |
. . . . . 6
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (-1R <R ((𝐶
·R -1R)
+R 𝐴) ↔ (𝐶 +R
-1R) <R (𝐶 +R ((𝐶
·R -1R)
+R 𝐴)))) |
| 16 | | pn0sr 7838 |
. . . . . . . . . . 11
⊢ (𝐶 ∈ R →
(𝐶
+R (𝐶 ·R
-1R)) = 0R) |
| 17 | 16 | oveq1d 5937 |
. . . . . . . . . 10
⊢ (𝐶 ∈ R →
((𝐶
+R (𝐶 ·R
-1R)) +R 𝐴) = (0R
+R 𝐴)) |
| 18 | 17 | adantr 276 |
. . . . . . . . 9
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ((𝐶
+R (𝐶 ·R
-1R)) +R 𝐴) = (0R
+R 𝐴)) |
| 19 | | addasssrg 7823 |
. . . . . . . . . 10
⊢ ((𝐶 ∈ R ∧
(𝐶
·R -1R) ∈
R ∧ 𝐴
∈ R) → ((𝐶 +R (𝐶
·R -1R))
+R 𝐴) = (𝐶 +R ((𝐶
·R -1R)
+R 𝐴))) |
| 20 | 8, 10, 11, 19 | syl3anc 1249 |
. . . . . . . . 9
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ((𝐶
+R (𝐶 ·R
-1R)) +R 𝐴) = (𝐶 +R ((𝐶
·R -1R)
+R 𝐴))) |
| 21 | | 0r 7817 |
. . . . . . . . . . 11
⊢
0R ∈ R |
| 22 | 21 | a1i 9 |
. . . . . . . . . 10
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ 0R ∈ R) |
| 23 | | addcomsrg 7822 |
. . . . . . . . . 10
⊢
((0R ∈ R ∧ 𝐴 ∈ R) →
(0R +R 𝐴) = (𝐴 +R
0R)) |
| 24 | 22, 11, 23 | syl2anc 411 |
. . . . . . . . 9
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (0R +R 𝐴) = (𝐴 +R
0R)) |
| 25 | 18, 20, 24 | 3eqtr3d 2237 |
. . . . . . . 8
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (𝐶
+R ((𝐶 ·R
-1R) +R 𝐴)) = (𝐴 +R
0R)) |
| 26 | | 0idsr 7834 |
. . . . . . . . 9
⊢ (𝐴 ∈ R →
(𝐴
+R 0R) = 𝐴) |
| 27 | 26 | adantl 277 |
. . . . . . . 8
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (𝐴
+R 0R) = 𝐴) |
| 28 | 25, 27 | eqtrd 2229 |
. . . . . . 7
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (𝐶
+R ((𝐶 ·R
-1R) +R 𝐴)) = 𝐴) |
| 29 | 28 | breq2d 4045 |
. . . . . 6
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ((𝐶
+R -1R)
<R (𝐶 +R ((𝐶
·R -1R)
+R 𝐴)) ↔ (𝐶 +R
-1R) <R 𝐴)) |
| 30 | 15, 29 | bitrd 188 |
. . . . 5
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (-1R <R ((𝐶
·R -1R)
+R 𝐴) ↔ (𝐶 +R
-1R) <R 𝐴)) |
| 31 | 6, 9 | mpan2 425 |
. . . . . . . 8
⊢ (𝐶 ∈ R →
(𝐶
·R -1R) ∈
R) |
| 32 | 31, 12 | sylan 283 |
. . . . . . 7
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ((𝐶
·R -1R)
+R 𝐴) ∈ R) |
| 33 | | df-nr 7794 |
. . . . . . . 8
⊢
R = ((P × P) /
~R ) |
| 34 | | breq2 4037 |
. . . . . . . . 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 𝐴))) |
| 36 | 35 | rexbidv 2498 |
. . . . . . . . 9
⊢
([〈𝑦, 𝑧〉]
~R = ((𝐶 ·R
-1R) +R 𝐴) → (∃𝑥 ∈ P [〈𝑥,
1P〉] ~R = [〈𝑦, 𝑧〉] ~R ↔
∃𝑥 ∈
P [〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴))) |
| 37 | 34, 36 | imbi12d 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 7800 |
. . . . . . . . . . . 12
⊢
-1R = [〈1P,
(1P +P
1P)〉]
~R |
| 39 | 38 | breq1i 4040 |
. . . . . . . . . . 11
⊢
(-1R <R
[〈𝑦, 𝑧〉]
~R ↔ [〈1P,
(1P +P
1P)〉] ~R
<R [〈𝑦, 𝑧〉] ~R
) |
| 40 | | 1pr 7621 |
. . . . . . . . . . . . . . 15
⊢
1P ∈ P |
| 41 | | addassprg 7646 |
. . . . . . . . . . . . . . 15
⊢
((1P ∈ P ∧
1P ∈ P ∧ 𝑦 ∈ P) →
((1P +P
1P) +P 𝑦) = (1P
+P (1P
+P 𝑦))) |
| 42 | 40, 40, 41 | mp3an12 1338 |
. . . . . . . . . . . . . 14
⊢ (𝑦 ∈ P →
((1P +P
1P) +P 𝑦) = (1P
+P (1P
+P 𝑦))) |
| 43 | 42 | breq2d 4045 |
. . . . . . . . . . . . 13
⊢ (𝑦 ∈ P →
((1P +P 𝑧)<P
((1P +P
1P) +P 𝑦) ↔ (1P
+P 𝑧)<P
(1P +P
(1P +P 𝑦)))) |
| 44 | 43 | adantr 276 |
. . . . . . . . . . . 12
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ ((1P +P 𝑧)<P
((1P +P
1P) +P 𝑦) ↔ (1P
+P 𝑧)<P
(1P +P
(1P +P 𝑦)))) |
| 45 | | addclpr 7604 |
. . . . . . . . . . . . . 14
⊢
((1P ∈ P ∧
1P ∈ P) →
(1P +P
1P) ∈ P) |
| 46 | 40, 40, 45 | mp2an 426 |
. . . . . . . . . . . . 13
⊢
(1P +P
1P) ∈ P |
| 47 | | ltsrprg 7814 |
. . . . . . . . . . . . 13
⊢
(((1P ∈ P ∧
(1P +P
1P) ∈ P) ∧ (𝑦 ∈ P ∧ 𝑧 ∈ P)) →
([〈1P, (1P
+P 1P)〉]
~R <R [〈𝑦, 𝑧〉] ~R ↔
(1P +P 𝑧)<P
((1P +P
1P) +P 𝑦))) |
| 48 | 40, 46, 47 | mpanl12 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) |
| 50 | 40 | a1i 9 |
. . . . . . . . . . . . . 14
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ 1P ∈ P) |
| 51 | | simpl 109 |
. . . . . . . . . . . . . 14
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ 𝑦 ∈
P) |
| 52 | | addclpr 7604 |
. . . . . . . . . . . . . 14
⊢
((1P ∈ P ∧ 𝑦 ∈ P) →
(1P +P 𝑦) ∈ P) |
| 53 | 50, 51, 52 | syl2anc 411 |
. . . . . . . . . . . . 13
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (1P +P 𝑦) ∈
P) |
| 54 | | ltaprg 7686 |
. . . . . . . . . . . . 13
⊢ ((𝑧 ∈ P ∧
(1P +P 𝑦) ∈ P ∧
1P ∈ P) → (𝑧<P
(1P +P 𝑦) ↔ (1P
+P 𝑧)<P
(1P +P
(1P +P 𝑦)))) |
| 55 | 49, 53, 50, 54 | syl3anc 1249 |
. . . . . . . . . . . 12
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (𝑧<P
(1P +P 𝑦) ↔ (1P
+P 𝑧)<P
(1P +P
(1P +P 𝑦)))) |
| 56 | 44, 48, 55 | 3bitr4d 220 |
. . . . . . . . . . 11
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ ([〈1P, (1P
+P 1P)〉]
~R <R [〈𝑦, 𝑧〉] ~R ↔
𝑧<P
(1P +P 𝑦))) |
| 57 | 39, 56 | bitrid 192 |
. . . . . . . . . 10
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (-1R <R
[〈𝑦, 𝑧〉]
~R ↔ 𝑧<P
(1P +P 𝑦))) |
| 58 | | ltexpri 7680 |
. . . . . . . . . 10
⊢ (𝑧<P
(1P +P 𝑦) → ∃𝑥 ∈ P (𝑧 +P 𝑥) = (1P
+P 𝑦)) |
| 59 | 57, 58 | biimtrdi 163 |
. . . . . . . . 9
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (-1R <R
[〈𝑦, 𝑧〉]
~R → ∃𝑥 ∈ P (𝑧 +P 𝑥) = (1P
+P 𝑦))) |
| 60 | | enreceq 7803 |
. . . . . . . . . . . . 13
⊢ (((𝑥 ∈ P ∧
1P ∈ P) ∧ (𝑦 ∈ P ∧ 𝑧 ∈ P)) →
([〈𝑥,
1P〉] ~R = [〈𝑦, 𝑧〉] ~R ↔
(𝑥
+P 𝑧) = (1P
+P 𝑦))) |
| 61 | 40, 60 | mpanl2 435 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ P ∧
(𝑦 ∈ P
∧ 𝑧 ∈
P)) → ([〈𝑥, 1P〉]
~R = [〈𝑦, 𝑧〉] ~R ↔
(𝑥
+P 𝑧) = (1P
+P 𝑦))) |
| 62 | 49 | adantl 277 |
. . . . . . . . . . . . . 14
⊢ ((𝑥 ∈ P ∧
(𝑦 ∈ P
∧ 𝑧 ∈
P)) → 𝑧
∈ P) |
| 63 | | simpl 109 |
. . . . . . . . . . . . . 14
⊢ ((𝑥 ∈ P ∧
(𝑦 ∈ P
∧ 𝑧 ∈
P)) → 𝑥
∈ P) |
| 64 | | addcomprg 7645 |
. . . . . . . . . . . . . 14
⊢ ((𝑧 ∈ P ∧
𝑥 ∈ P)
→ (𝑧
+P 𝑥) = (𝑥 +P 𝑧)) |
| 65 | 62, 63, 64 | syl2anc 411 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ P ∧
(𝑦 ∈ P
∧ 𝑧 ∈
P)) → (𝑧
+P 𝑥) = (𝑥 +P 𝑧)) |
| 66 | 65 | eqeq1d 2205 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ P ∧
(𝑦 ∈ P
∧ 𝑧 ∈
P)) → ((𝑧 +P 𝑥) = (1P
+P 𝑦) ↔ (𝑥 +P 𝑧) = (1P
+P 𝑦))) |
| 67 | 61, 66 | bitr4d 191 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ P ∧
(𝑦 ∈ P
∧ 𝑧 ∈
P)) → ([〈𝑥, 1P〉]
~R = [〈𝑦, 𝑧〉] ~R ↔
(𝑧
+P 𝑥) = (1P
+P 𝑦))) |
| 68 | 67 | ancoms 268 |
. . . . . . . . . 10
⊢ (((𝑦 ∈ P ∧
𝑧 ∈ P)
∧ 𝑥 ∈
P) → ([〈𝑥, 1P〉]
~R = [〈𝑦, 𝑧〉] ~R ↔
(𝑧
+P 𝑥) = (1P
+P 𝑦))) |
| 69 | 68 | rexbidva 2494 |
. . . . . . . . 9
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (∃𝑥 ∈
P [〈𝑥,
1P〉] ~R = [〈𝑦, 𝑧〉] ~R ↔
∃𝑥 ∈
P (𝑧
+P 𝑥) = (1P
+P 𝑦))) |
| 70 | 59, 69 | sylibrd 169 |
. . . . . . . 8
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (-1R <R
[〈𝑦, 𝑧〉]
~R → ∃𝑥 ∈ P [〈𝑥,
1P〉] ~R = [〈𝑦, 𝑧〉] ~R
)) |
| 71 | 33, 37, 70 | ecoptocl 6681 |
. . . . . . 7
⊢ (((𝐶
·R -1R)
+R 𝐴) ∈ R →
(-1R <R ((𝐶
·R -1R)
+R 𝐴) → ∃𝑥 ∈ P [〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴))) |
| 72 | 32, 71 | syl 14 |
. . . . . 6
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (-1R <R ((𝐶
·R -1R)
+R 𝐴) → ∃𝑥 ∈ P [〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴))) |
| 73 | | oveq2 5930 |
. . . . . . . . 9
⊢
([〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴) → (𝐶 +R [〈𝑥,
1P〉] ~R ) = (𝐶 +R
((𝐶
·R -1R)
+R 𝐴))) |
| 74 | 73, 28 | sylan9eqr 2251 |
. . . . . . . 8
⊢ (((𝐶 ∈ R ∧
𝐴 ∈ R)
∧ [〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴)) → (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴) |
| 75 | 74 | ex 115 |
. . . . . . 7
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ([〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴) → (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴)) |
| 76 | 75 | reximdv 2598 |
. . . . . 6
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (∃𝑥 ∈
P [〈𝑥,
1P〉] ~R = ((𝐶
·R -1R)
+R 𝐴) → ∃𝑥 ∈ P (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴)) |
| 77 | 72, 76 | syld 45 |
. . . . 5
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ (-1R <R ((𝐶
·R -1R)
+R 𝐴) → ∃𝑥 ∈ P (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴)) |
| 78 | 30, 77 | sylbird 170 |
. . . 4
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R)
→ ((𝐶
+R -1R)
<R 𝐴 → ∃𝑥 ∈ P (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴)) |
| 79 | 4, 5, 78 | sylc 62 |
. . 3
⊢ ((𝐶 ∈ R ∧
(𝐶
+R -1R)
<R 𝐴) → ∃𝑥 ∈ P (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴) |
| 80 | 79 | ex 115 |
. 2
⊢ (𝐶 ∈ R →
((𝐶
+R -1R)
<R 𝐴 → ∃𝑥 ∈ P (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴)) |
| 81 | | mappsrprg 7871 |
. . . . 5
⊢ ((𝑥 ∈ P ∧
𝐶 ∈ R)
→ (𝐶
+R -1R)
<R (𝐶 +R [〈𝑥,
1P〉] ~R
)) |
| 82 | | breq2 4037 |
. . . . 5
⊢ ((𝐶 +R
[〈𝑥,
1P〉] ~R ) = 𝐴 → ((𝐶 +R
-1R) <R (𝐶 +R [〈𝑥,
1P〉] ~R ) ↔ (𝐶 +R
-1R) <R 𝐴)) |
| 83 | 81, 82 | syl5ibcom 155 |
. . . 4
⊢ ((𝑥 ∈ P ∧
𝐶 ∈ R)
→ ((𝐶
+R [〈𝑥, 1P〉]
~R ) = 𝐴 → (𝐶 +R
-1R) <R 𝐴)) |
| 84 | 83 | ancoms 268 |
. . 3
⊢ ((𝐶 ∈ R ∧
𝑥 ∈ P)
→ ((𝐶
+R [〈𝑥, 1P〉]
~R ) = 𝐴 → (𝐶 +R
-1R) <R 𝐴)) |
| 85 | 84 | rexlimdva 2614 |
. 2
⊢ (𝐶 ∈ R →
(∃𝑥 ∈
P (𝐶
+R [〈𝑥, 1P〉]
~R ) = 𝐴 → (𝐶 +R
-1R) <R 𝐴)) |
| 86 | 80, 85 | impbid 129 |
1
⊢ (𝐶 ∈ R →
((𝐶
+R -1R)
<R 𝐴 ↔ ∃𝑥 ∈ P (𝐶 +R [〈𝑥,
1P〉] ~R ) = 𝐴)) |