Proof of Theorem m1p1sr
| Step | Hyp | Ref
| Expression |
| 1 | | 1pr 3911 |
. . . . 5
⊢ 1P ∈
P |
| 2 | | addclpr 3914 |
. . . . . 6
⊢ ((1P ∈
P ∧ 1P ∈ P)
→ (1P +P
1P) ∈ P) |
| 3 | 1, 1, 2 | mp2an 520 |
. . . . 5
⊢ (1P
+P 1P) ∈
P |
| 4 | 1, 3 | pm3.2i 234 |
. . . 4
⊢ (1P ∈
P ∧ (1P +P
1P) ∈ P) |
| 5 | 3, 1 | pm3.2i 234 |
. . . 4
⊢ ((1P
+P 1P) ∈ P
∧ 1P ∈ P) |
| 6 | | addsrpr 3978 |
. . . 4
⊢ (((1P ∈
P ∧ (1P +P
1P) ∈ P) ∧
((1P +P
1P) ∈ P ∧
1P ∈ P)) →
([〈1P, (1P
+P 1P)〉]
~R +R
[〈(1P +P
1P), 1P〉]
~R ) = [〈(1P
+P (1P
+P 1P)),
((1P +P
1P) +P
1P)〉] ~R ) |
| 7 | 4, 5, 6 | mp2an 520 |
. . 3
⊢ ([〈1P,
(1P +P
1P)〉] ~R
+R [〈(1P
+P 1P),
1P〉] ~R ) =
[〈(1P +P
(1P +P
1P)), ((1P
+P 1P)
+P 1P)〉]
~R |
| 8 | 1 | elisseti 1355 |
. . . . . 6
⊢ 1P ∈
V |
| 9 | 8, 8 | addasspr 3918 |
. . . . 5
⊢ ((1P
+P 1P)
+P 1P) =
(1P +P
(1P +P
1P)) |
| 10 | 9 | opreq2i 3010 |
. . . 4
⊢ (1P
+P ((1P
+P 1P)
+P 1P)) =
(1P +P
(1P +P
(1P +P
1P))) |
| 11 | 1, 1 | pm3.2i 234 |
. . . . 5
⊢ (1P ∈
P ∧ 1P ∈
P) |
| 12 | | addclpr 3914 |
. . . . . . 7
⊢ ((1P ∈
P ∧ (1P +P
1P) ∈ P) →
(1P +P
(1P +P
1P)) ∈ P) |
| 13 | 1, 3, 12 | mp2an 520 |
. . . . . 6
⊢ (1P
+P (1P
+P 1P)) ∈
P |
| 14 | | addclpr 3914 |
. . . . . . 7
⊢ (((1P
+P 1P) ∈ P
∧ 1P ∈ P) →
((1P +P
1P) +P
1P) ∈ P) |
| 15 | 3, 1, 14 | mp2an 520 |
. . . . . 6
⊢ ((1P
+P 1P)
+P 1P) ∈
P |
| 16 | 13, 15 | pm3.2i 234 |
. . . . 5
⊢ ((1P
+P (1P
+P 1P)) ∈
P ∧ ((1P +P
1P) +P
1P) ∈ P) |
| 17 | | enreceq 3971 |
. . . . 5
⊢ (((1P ∈
P ∧ 1P ∈ P) ∧
((1P +P
(1P +P
1P)) ∈ P ∧
((1P +P
1P) +P
1P) ∈ P)) →
([〈1P, 1P〉]
~R = [〈(1P
+P (1P
+P 1P)),
((1P +P
1P) +P
1P)〉] ~R ↔
(1P +P
((1P +P
1P) +P
1P)) = (1P
+P (1P
+P (1P
+P 1P))))) |
| 18 | 11, 16, 17 | mp2an 520 |
. . . 4
⊢ ([〈1P,
1P〉] ~R =
[〈(1P +P
(1P +P
1P)), ((1P
+P 1P)
+P 1P)〉]
~R ↔ (1P
+P ((1P
+P 1P)
+P 1P)) =
(1P +P
(1P +P
(1P +P
1P)))) |
| 19 | 10, 18 | mpbir 165 |
. . 3
⊢ [〈1P,
1P〉] ~R =
[〈(1P +P
(1P +P
1P)), ((1P
+P 1P)
+P 1P)〉]
~R |
| 20 | 7, 19 | eqtr4 1122 |
. 2
⊢ ([〈1P,
(1P +P
1P)〉] ~R
+R [〈(1P
+P 1P),
1P〉] ~R ) =
[〈1P, 1P〉]
~R |
| 21 | | df-m1r 3967 |
. . 3
⊢ -1R =
[〈1P, (1P
+P 1P)〉]
~R |
| 22 | | df-1r 3966 |
. . 3
⊢ 1R =
[〈(1P +P
1P), 1P〉]
~R |
| 23 | 21, 22 | opreq12i 3011 |
. 2
⊢ (-1R
+R 1R) =
([〈1P, (1P
+P 1P)〉]
~R +R
[〈(1P +P
1P), 1P〉]
~R ) |
| 24 | | df-0r 3965 |
. 2
⊢ 0R =
[〈1P, 1P〉]
~R |
| 25 | 20, 23, 24 | 3eqtr4 1126 |
1
⊢ (-1R
+R 1R) =
0R |