Step | Hyp | Ref
| Expression |
1 | | df-nr 7668 |
. . 3
⊢
R = ((P × P) /
~R ) |
2 | | oveq1 5849 |
. . . . 5
⊢
([〈𝑣, 𝑢〉]
~R = 𝐶 → ([〈𝑣, 𝑢〉] ~R
+R [〈𝑥, 𝑦〉] ~R ) =
(𝐶
+R [〈𝑥, 𝑦〉] ~R
)) |
3 | | oveq1 5849 |
. . . . 5
⊢
([〈𝑣, 𝑢〉]
~R = 𝐶 → ([〈𝑣, 𝑢〉] ~R
+R [〈𝑧, 𝑤〉] ~R ) =
(𝐶
+R [〈𝑧, 𝑤〉] ~R
)) |
4 | 2, 3 | breq12d 3995 |
. . . 4
⊢
([〈𝑣, 𝑢〉]
~R = 𝐶 → (([〈𝑣, 𝑢〉] ~R
+R [〈𝑥, 𝑦〉] ~R )
<R ([〈𝑣, 𝑢〉] ~R
+R [〈𝑧, 𝑤〉] ~R ) ↔
(𝐶
+R [〈𝑥, 𝑦〉] ~R )
<R (𝐶 +R [〈𝑧, 𝑤〉] ~R
))) |
5 | 4 | bibi2d 231 |
. . 3
⊢
([〈𝑣, 𝑢〉]
~R = 𝐶 → (([〈𝑥, 𝑦〉] ~R
<R [〈𝑧, 𝑤〉] ~R ↔
([〈𝑣, 𝑢〉]
~R +R [〈𝑥, 𝑦〉] ~R )
<R ([〈𝑣, 𝑢〉] ~R
+R [〈𝑧, 𝑤〉] ~R )) ↔
([〈𝑥, 𝑦〉]
~R <R [〈𝑧, 𝑤〉] ~R ↔
(𝐶
+R [〈𝑥, 𝑦〉] ~R )
<R (𝐶 +R [〈𝑧, 𝑤〉] ~R
)))) |
6 | | breq1 3985 |
. . . 4
⊢
([〈𝑥, 𝑦〉]
~R = 𝐴 → ([〈𝑥, 𝑦〉] ~R
<R [〈𝑧, 𝑤〉] ~R ↔
𝐴
<R [〈𝑧, 𝑤〉] ~R
)) |
7 | | oveq2 5850 |
. . . . 5
⊢
([〈𝑥, 𝑦〉]
~R = 𝐴 → (𝐶 +R [〈𝑥, 𝑦〉] ~R ) =
(𝐶
+R 𝐴)) |
8 | 7 | breq1d 3992 |
. . . 4
⊢
([〈𝑥, 𝑦〉]
~R = 𝐴 → ((𝐶 +R [〈𝑥, 𝑦〉] ~R )
<R (𝐶 +R [〈𝑧, 𝑤〉] ~R ) ↔
(𝐶
+R 𝐴) <R (𝐶 +R
[〈𝑧, 𝑤〉]
~R ))) |
9 | 6, 8 | bibi12d 234 |
. . 3
⊢
([〈𝑥, 𝑦〉]
~R = 𝐴 → (([〈𝑥, 𝑦〉] ~R
<R [〈𝑧, 𝑤〉] ~R ↔
(𝐶
+R [〈𝑥, 𝑦〉] ~R )
<R (𝐶 +R [〈𝑧, 𝑤〉] ~R )) ↔
(𝐴
<R [〈𝑧, 𝑤〉] ~R ↔
(𝐶
+R 𝐴) <R (𝐶 +R
[〈𝑧, 𝑤〉]
~R )))) |
10 | | breq2 3986 |
. . . 4
⊢
([〈𝑧, 𝑤〉]
~R = 𝐵 → (𝐴 <R [〈𝑧, 𝑤〉] ~R ↔
𝐴
<R 𝐵)) |
11 | | oveq2 5850 |
. . . . 5
⊢
([〈𝑧, 𝑤〉]
~R = 𝐵 → (𝐶 +R [〈𝑧, 𝑤〉] ~R ) =
(𝐶
+R 𝐵)) |
12 | 11 | breq2d 3994 |
. . . 4
⊢
([〈𝑧, 𝑤〉]
~R = 𝐵 → ((𝐶 +R 𝐴) <R
(𝐶
+R [〈𝑧, 𝑤〉] ~R ) ↔
(𝐶
+R 𝐴) <R (𝐶 +R
𝐵))) |
13 | 10, 12 | bibi12d 234 |
. . 3
⊢
([〈𝑧, 𝑤〉]
~R = 𝐵 → ((𝐴 <R [〈𝑧, 𝑤〉] ~R ↔
(𝐶
+R 𝐴) <R (𝐶 +R
[〈𝑧, 𝑤〉]
~R )) ↔ (𝐴 <R 𝐵 ↔ (𝐶 +R 𝐴) <R
(𝐶
+R 𝐵)))) |
14 | | simp2l 1013 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
𝑥 ∈
P) |
15 | | simp3r 1016 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
𝑤 ∈
P) |
16 | | addclpr 7478 |
. . . . . . 7
⊢ ((𝑥 ∈ P ∧
𝑤 ∈ P)
→ (𝑥
+P 𝑤) ∈ P) |
17 | 14, 15, 16 | syl2anc 409 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑥
+P 𝑤) ∈ P) |
18 | | simp2r 1014 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
𝑦 ∈
P) |
19 | | simp3l 1015 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
𝑧 ∈
P) |
20 | | addclpr 7478 |
. . . . . . 7
⊢ ((𝑦 ∈ P ∧
𝑧 ∈ P)
→ (𝑦
+P 𝑧) ∈ P) |
21 | 18, 19, 20 | syl2anc 409 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑦
+P 𝑧) ∈ P) |
22 | | addclpr 7478 |
. . . . . . 7
⊢ ((𝑣 ∈ P ∧
𝑢 ∈ P)
→ (𝑣
+P 𝑢) ∈ P) |
23 | 22 | 3ad2ant1 1008 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑣
+P 𝑢) ∈ P) |
24 | | ltaprg 7560 |
. . . . . 6
⊢ (((𝑥 +P
𝑤) ∈ P
∧ (𝑦
+P 𝑧) ∈ P ∧ (𝑣 +P
𝑢) ∈ P)
→ ((𝑥
+P 𝑤)<P (𝑦 +P
𝑧) ↔ ((𝑣 +P
𝑢)
+P (𝑥 +P 𝑤))<P
((𝑣
+P 𝑢) +P (𝑦 +P
𝑧)))) |
25 | 17, 21, 23, 24 | syl3anc 1228 |
. . . . 5
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
((𝑥
+P 𝑤)<P (𝑦 +P
𝑧) ↔ ((𝑣 +P
𝑢)
+P (𝑥 +P 𝑤))<P
((𝑣
+P 𝑢) +P (𝑦 +P
𝑧)))) |
26 | | ltsrprg 7688 |
. . . . . 6
⊢ (((𝑥 ∈ P ∧
𝑦 ∈ P)
∧ (𝑧 ∈
P ∧ 𝑤
∈ P)) → ([〈𝑥, 𝑦〉] ~R
<R [〈𝑧, 𝑤〉] ~R ↔
(𝑥
+P 𝑤)<P (𝑦 +P
𝑧))) |
27 | 26 | 3adant1 1005 |
. . . . 5
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈𝑥, 𝑦〉]
~R <R [〈𝑧, 𝑤〉] ~R ↔
(𝑥
+P 𝑤)<P (𝑦 +P
𝑧))) |
28 | | simp1l 1011 |
. . . . . . . 8
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
𝑣 ∈
P) |
29 | | addclpr 7478 |
. . . . . . . 8
⊢ ((𝑣 ∈ P ∧
𝑥 ∈ P)
→ (𝑣
+P 𝑥) ∈ P) |
30 | 28, 14, 29 | syl2anc 409 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑣
+P 𝑥) ∈ P) |
31 | | simp1r 1012 |
. . . . . . . 8
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
𝑢 ∈
P) |
32 | | addclpr 7478 |
. . . . . . . 8
⊢ ((𝑢 ∈ P ∧
𝑦 ∈ P)
→ (𝑢
+P 𝑦) ∈ P) |
33 | 31, 18, 32 | syl2anc 409 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑢
+P 𝑦) ∈ P) |
34 | | addclpr 7478 |
. . . . . . . 8
⊢ ((𝑣 ∈ P ∧
𝑧 ∈ P)
→ (𝑣
+P 𝑧) ∈ P) |
35 | 28, 19, 34 | syl2anc 409 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑣
+P 𝑧) ∈ P) |
36 | | addclpr 7478 |
. . . . . . . 8
⊢ ((𝑢 ∈ P ∧
𝑤 ∈ P)
→ (𝑢
+P 𝑤) ∈ P) |
37 | 31, 15, 36 | syl2anc 409 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(𝑢
+P 𝑤) ∈ P) |
38 | | ltsrprg 7688 |
. . . . . . 7
⊢ ((((𝑣 +P
𝑥) ∈ P
∧ (𝑢
+P 𝑦) ∈ P) ∧ ((𝑣 +P
𝑧) ∈ P
∧ (𝑢
+P 𝑤) ∈ P)) →
([〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R <R [〈(𝑣 +P
𝑧), (𝑢 +P 𝑤)〉]
~R ↔ ((𝑣 +P 𝑥) +P
(𝑢
+P 𝑤))<P ((𝑢 +P
𝑦)
+P (𝑣 +P 𝑧)))) |
39 | 30, 33, 35, 37, 38 | syl22anc 1229 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R <R [〈(𝑣 +P
𝑧), (𝑢 +P 𝑤)〉]
~R ↔ ((𝑣 +P 𝑥) +P
(𝑢
+P 𝑤))<P ((𝑢 +P
𝑦)
+P (𝑣 +P 𝑧)))) |
40 | | addcomprg 7519 |
. . . . . . . . 9
⊢ ((𝑟 ∈ P ∧
𝑠 ∈ P)
→ (𝑟
+P 𝑠) = (𝑠 +P 𝑟)) |
41 | 40 | adantl 275 |
. . . . . . . 8
⊢ ((((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) ∧
(𝑟 ∈ P
∧ 𝑠 ∈
P)) → (𝑟
+P 𝑠) = (𝑠 +P 𝑟)) |
42 | | addassprg 7520 |
. . . . . . . . 9
⊢ ((𝑟 ∈ P ∧
𝑠 ∈ P
∧ 𝑡 ∈
P) → ((𝑟
+P 𝑠) +P 𝑡) = (𝑟 +P (𝑠 +P
𝑡))) |
43 | 42 | adantl 275 |
. . . . . . . 8
⊢ ((((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) ∧
(𝑟 ∈ P
∧ 𝑠 ∈
P ∧ 𝑡
∈ P)) → ((𝑟 +P 𝑠) +P
𝑡) = (𝑟 +P (𝑠 +P
𝑡))) |
44 | | addclpr 7478 |
. . . . . . . . 9
⊢ ((𝑟 ∈ P ∧
𝑠 ∈ P)
→ (𝑟
+P 𝑠) ∈ P) |
45 | 44 | adantl 275 |
. . . . . . . 8
⊢ ((((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) ∧
(𝑟 ∈ P
∧ 𝑠 ∈
P)) → (𝑟
+P 𝑠) ∈ P) |
46 | 28, 14, 31, 41, 43, 15, 45 | caov4d 6026 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
((𝑣
+P 𝑥) +P (𝑢 +P
𝑤)) = ((𝑣 +P 𝑢) +P
(𝑥
+P 𝑤))) |
47 | 41, 33, 35 | caovcomd 5998 |
. . . . . . . 8
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
((𝑢
+P 𝑦) +P (𝑣 +P
𝑧)) = ((𝑣 +P 𝑧) +P
(𝑢
+P 𝑦))) |
48 | 28, 19, 31, 41, 43, 18, 45 | caov42d 6028 |
. . . . . . . 8
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
((𝑣
+P 𝑧) +P (𝑢 +P
𝑦)) = ((𝑣 +P 𝑢) +P
(𝑦
+P 𝑧))) |
49 | 47, 48 | eqtrd 2198 |
. . . . . . 7
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
((𝑢
+P 𝑦) +P (𝑣 +P
𝑧)) = ((𝑣 +P 𝑢) +P
(𝑦
+P 𝑧))) |
50 | 46, 49 | breq12d 3995 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(((𝑣
+P 𝑥) +P (𝑢 +P
𝑤))<P ((𝑢 +P
𝑦)
+P (𝑣 +P 𝑧)) ↔ ((𝑣 +P 𝑢) +P
(𝑥
+P 𝑤))<P ((𝑣 +P
𝑢)
+P (𝑦 +P 𝑧)))) |
51 | 39, 50 | bitrd 187 |
. . . . 5
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R <R [〈(𝑣 +P
𝑧), (𝑢 +P 𝑤)〉]
~R ↔ ((𝑣 +P 𝑢) +P
(𝑥
+P 𝑤))<P ((𝑣 +P
𝑢)
+P (𝑦 +P 𝑧)))) |
52 | 25, 27, 51 | 3bitr4d 219 |
. . . 4
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈𝑥, 𝑦〉]
~R <R [〈𝑧, 𝑤〉] ~R ↔
[〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R <R [〈(𝑣 +P
𝑧), (𝑢 +P 𝑤)〉]
~R )) |
53 | | addsrpr 7686 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P)) → ([〈𝑣, 𝑢〉] ~R
+R [〈𝑥, 𝑦〉] ~R ) =
[〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R ) |
54 | 53 | 3adant3 1007 |
. . . . 5
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈𝑣, 𝑢〉]
~R +R [〈𝑥, 𝑦〉] ~R ) =
[〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R ) |
55 | | addsrpr 7686 |
. . . . . 6
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑧 ∈
P ∧ 𝑤
∈ P)) → ([〈𝑣, 𝑢〉] ~R
+R [〈𝑧, 𝑤〉] ~R ) =
[〈(𝑣
+P 𝑧), (𝑢 +P 𝑤)〉]
~R ) |
56 | 55 | 3adant2 1006 |
. . . . 5
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈𝑣, 𝑢〉]
~R +R [〈𝑧, 𝑤〉] ~R ) =
[〈(𝑣
+P 𝑧), (𝑢 +P 𝑤)〉]
~R ) |
57 | 54, 56 | breq12d 3995 |
. . . 4
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
(([〈𝑣, 𝑢〉]
~R +R [〈𝑥, 𝑦〉] ~R )
<R ([〈𝑣, 𝑢〉] ~R
+R [〈𝑧, 𝑤〉] ~R ) ↔
[〈(𝑣
+P 𝑥), (𝑢 +P 𝑦)〉]
~R <R [〈(𝑣 +P
𝑧), (𝑢 +P 𝑤)〉]
~R )) |
58 | 52, 57 | bitr4d 190 |
. . 3
⊢ (((𝑣 ∈ P ∧
𝑢 ∈ P)
∧ (𝑥 ∈
P ∧ 𝑦
∈ P) ∧ (𝑧 ∈ P ∧ 𝑤 ∈ P)) →
([〈𝑥, 𝑦〉]
~R <R [〈𝑧, 𝑤〉] ~R ↔
([〈𝑣, 𝑢〉]
~R +R [〈𝑥, 𝑦〉] ~R )
<R ([〈𝑣, 𝑢〉] ~R
+R [〈𝑧, 𝑤〉] ~R
))) |
59 | 1, 5, 9, 13, 58 | 3ecoptocl 6590 |
. 2
⊢ ((𝐶 ∈ R ∧
𝐴 ∈ R
∧ 𝐵 ∈
R) → (𝐴
<R 𝐵 ↔ (𝐶 +R 𝐴) <R
(𝐶
+R 𝐵))) |
60 | 59 | 3coml 1200 |
1
⊢ ((𝐴 ∈ R ∧
𝐵 ∈ R
∧ 𝐶 ∈
R) → (𝐴
<R 𝐵 ↔ (𝐶 +R 𝐴) <R
(𝐶
+R 𝐵))) |