Proof of Theorem recexsrlem
| Step | Hyp | Ref
| Expression |
| 1 | | recexsrlem.1 |
. . . . 5
⊢ A
∈ V |
| 2 | | ltrelsr 3974 |
. . . . 5
⊢ <R ⊆
(R × R) |
| 3 | 1, 2 | brel 2459 |
. . . 4
⊢ (0R
<R A →
(0R ∈ R ∧ A ∈ R)) |
| 4 | 3 | pm3.27d 262 |
. . 3
⊢ (0R
<R A →
A ∈ R) |
| 5 | | df-nr 3961 |
. . . 4
⊢ R = ((P
× P) / ~R ) |
| 6 | | breq2 2066 |
. . . . 5
⊢ ([〈y, z〉]
~R = A →
(0R <R [〈y, z〉]
~R ↔ 0R
<R A)) |
| 7 | | opreq1 3006 |
. . . . . . 7
⊢ ([〈y, z〉]
~R = A →
([〈y, z〉] ~R
·R x) =
(A ·R
x)) |
| 8 | 7 | cleq1d 1109 |
. . . . . 6
⊢ ([〈y, z〉]
~R = A →
(([〈y, z〉] ~R
·R x) =
1R ↔ (A
·R x) =
1R)) |
| 9 | 8 | biexdv 936 |
. . . . 5
⊢ ([〈y, z〉]
~R = A →
(∃x([〈y, z〉]
~R ·R x) = 1R ↔
∃x(A ·R x) = 1R)) |
| 10 | 6, 9 | imbi12d 474 |
. . . 4
⊢ ([〈y, z〉]
~R = A →
((0R <R [〈y, z〉]
~R → ∃x([〈y,
z〉] ~R
·R x) =
1R) ↔ (0R
<R A →
∃x(A ·R x) = 1R))) |
| 11 | | 1pr 3911 |
. . . . . . . . . . . . . . . . . . 19
⊢ 1P ∈
P |
| 12 | | addclpr 3914 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((v
∈ P ∧ 1P ∈
P) → (v
+P 1P) ∈
P) |
| 13 | 11, 12 | mpan2 519 |
. . . . . . . . . . . . . . . . . 18
⊢ (v
∈ P → (v
+P 1P) ∈
P) |
| 14 | 13, 11 | jctir 241 |
. . . . . . . . . . . . . . . . 17
⊢ (v
∈ P → ((v
+P 1P) ∈ P
∧ 1P ∈ P)) |
| 15 | 14 | anim2i 270 |
. . . . . . . . . . . . . . . 16
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → ((y ∈
P ∧ z ∈
P) ∧ ((v
+P 1P) ∈ P
∧ 1P ∈ P))) |
| 16 | 15 | adantr 306 |
. . . . . . . . . . . . . . 15
⊢ ((((y
∈ P ∧ z ∈
P) ∧ v ∈
P) ∧ ((w
·P v) =
1P ∧ (z
+P w) = y)) → ((y
∈ P ∧ z ∈
P) ∧ ((v
+P 1P) ∈ P
∧ 1P ∈ P))) |
| 17 | | mulsrpr 3979 |
. . . . . . . . . . . . . . 15
⊢ (((y
∈ P ∧ z ∈
P) ∧ ((v
+P 1P) ∈ P
∧ 1P ∈ P)) →
([〈y, z〉] ~R
·R [〈(v +P
1P), 1P〉]
~R ) = [〈((y
·P (v
+P 1P))
+P (z
·P 1P)), ((y ·P
1P) +P (z ·P (v +P
1P)))〉] ~R ) |
| 18 | 16, 17 | syl 12 |
. . . . . . . . . . . . . 14
⊢ ((((y
∈ P ∧ z ∈
P) ∧ v ∈
P) ∧ ((w
·P v) =
1P ∧ (z
+P w) = y)) → ([〈y, z〉]
~R ·R [〈(v +P
1P), 1P〉]
~R ) = [〈((y
·P (v
+P 1P))
+P (z
·P 1P)), ((y ·P
1P) +P (z ·P (v +P
1P)))〉] ~R ) |
| 19 | | addclpr 3914 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (((y
·P (v
+P 1P)) ∈
P ∧ (z
·P 1P) ∈
P) → ((y
·P (v
+P 1P))
+P (z
·P 1P)) ∈
P) |
| 20 | | mulclpr 3916 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((y
∈ P ∧ (v
+P 1P) ∈
P) → (y
·P (v
+P 1P)) ∈
P) |
| 21 | 20, 13 | sylan2 346 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((y
∈ P ∧ v ∈
P) → (y
·P (v
+P 1P)) ∈
P) |
| 22 | | mulclpr 3916 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((z
∈ P ∧ 1P ∈
P) → (z
·P 1P) ∈
P) |
| 23 | 11, 22 | mpan2 519 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (z
∈ P → (z
·P 1P) ∈
P) |
| 24 | 19, 21, 23 | syl2an 349 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((y
∈ P ∧ v ∈
P) ∧ z ∈
P) → ((y
·P (v
+P 1P))
+P (z
·P 1P)) ∈
P) |
| 25 | 24 | an1rs 373 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → ((y
·P (v
+P 1P))
+P (z
·P 1P)) ∈
P) |
| 26 | | addclpr 3914 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (((y
·P 1P) ∈
P ∧ (z
·P (v
+P 1P)) ∈
P) → ((y
·P 1P)
+P (z
·P (v
+P 1P))) ∈
P) |
| 27 | | mulclpr 3916 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((y
∈ P ∧ 1P ∈
P) → (y
·P 1P) ∈
P) |
| 28 | 11, 27 | mpan2 519 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (y
∈ P → (y
·P 1P) ∈
P) |
| 29 | | mulclpr 3916 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((z
∈ P ∧ (v
+P 1P) ∈
P) → (z
·P (v
+P 1P)) ∈
P) |
| 30 | 29, 13 | sylan2 346 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((z
∈ P ∧ v ∈
P) → (z
·P (v
+P 1P)) ∈
P) |
| 31 | 26, 28, 30 | syl2an 349 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ((y
∈ P ∧ (z ∈
P ∧ v ∈
P)) → ((y
·P 1P)
+P (z
·P (v
+P 1P))) ∈
P) |
| 32 | 31 | anassrs 338 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → ((y
·P 1P)
+P (z
·P (v
+P 1P))) ∈
P) |
| 33 | 25, 32 | jca 236 |
. . . . . . . . . . . . . . . . . 18
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → (((y
·P (v
+P 1P))
+P (z
·P 1P)) ∈
P ∧ ((y
·P 1P)
+P (z
·P (v
+P 1P))) ∈
P)) |
| 34 | | addclpr 3914 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ((1P ∈
P ∧ 1P ∈ P)
→ (1P +P
1P) ∈ P) |
| 35 | 11, 11, 34 | mp2an 520 |
. . . . . . . . . . . . . . . . . . 19
⊢ (1P
+P 1P) ∈
P |
| 36 | 35, 11 | pm3.2i 234 |
. . . . . . . . . . . . . . . . . 18
⊢ ((1P
+P 1P) ∈ P
∧ 1P ∈ P) |
| 37 | 33, 36 | jctir 241 |
. . . . . . . . . . . . . . . . 17
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → ((((y
·P (v
+P 1P))
+P (z
·P 1P)) ∈
P ∧ ((y
·P 1P)
+P (z
·P (v
+P 1P))) ∈
P) ∧ ((1P
+P 1P) ∈ P
∧ 1P ∈ P))) |
| 38 | | enreceq 3971 |
. . . . . . . . . . . . . . . . 17
⊢ (((((y
·P (v
+P 1P))
+P (z
·P 1P)) ∈
P ∧ ((y
·P 1P)
+P (z
·P (v
+P 1P))) ∈
P) ∧ ((1P
+P 1P) ∈ P
∧ 1P ∈ P)) →
([〈((y
·P (v
+P 1P))
+P (z
·P 1P)), ((y ·P
1P) +P (z ·P (v +P
1P)))〉] ~R =
[〈(1P +P
1P), 1P〉]
~R ↔ (((y
·P (v
+P 1P))
+P (z
·P 1P))
+P 1P) = (((y ·P
1P) +P (z ·P (v +P
1P))) +P
(1P +P
1P)))) |
| 39 | 37, 38 | syl 12 |
. . . . . . . . . . . . . . . 16
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → ([〈((y
·P (v
+P 1P))
+P (z
·P 1P)), ((y ·P
1P) +P (z ·P (v +P
1P)))〉] ~R =
[〈(1P +P
1P), 1P〉]
~R ↔ (((y
·P (v
+P 1P))
+P (z
·P 1P))
+P 1P) = (((y ·P
1P) +P (z ·P (v +P
1P))) +P
(1P +P
1P)))) |
| 40 | | opreq1 3006 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((z
+P w) = y → ((z
+P w)
·P v) =
(y ·P
v)) |
| 41 | 40 | cleqcomd 1106 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((z
+P w) = y → (y
·P v) =
((z +P w) ·P v)) |
| 42 | | opreq2 3007 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((w
·P v) =
1P → ((z
·P v)
+P (w
·P v)) =
((z ·P
v) +P
1P)) |
| 43 | | visset 1350 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ z
∈ V |
| 44 | | visset 1350 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ w
∈ V |
| 45 | | visset 1350 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ v
∈ V |
| 46 | | visset 1350 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
⊢ u
∈ V |
| 47 | | visset 1350 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
⊢ f
∈ V |
| 48 | 46, 47 | mulcompr 3919 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ (u
·P f) =
(f ·P
u) |
| 49 | | visset 1350 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
⊢ x
∈ V |
| 50 | 47, 49 | distrpr 3926 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ (u
·P (f
+P x)) =
((u ·P
f) +P (u ·P x)) |
| 51 | 43, 44, 45, 48, 50 | caoprdistrr 3081 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((z
+P w)
·P v) =
((z ·P
v) +P (w ·P v)) |
| 52 | 42, 51 | syl5eq 1136 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((w
·P v) =
1P → ((z
+P w)
·P v) =
((z ·P
v) +P
1P)) |
| 53 | 41, 52 | sylan9eqr 1145 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (((w
·P v) =
1P ∧ (z
+P w) = y) → (y
·P v) =
((z ·P
v) +P
1P)) |
| 54 | 53 | opreq1d 3012 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((w
·P v) =
1P ∧ (z
+P w) = y) → ((y
·P v)
+P ((y
·P 1P)
+P (z
·P 1P))) = (((z ·P v) +P
1P) +P ((y ·P
1P) +P (z ·P
1P)))) |
| 55 | | oprex 3018 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (z
·P v)
∈ V |
| 56 | 11 | elisseti 1355 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ 1P ∈
V |
| 57 | | oprex 3018 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((y
·P 1P)
+P (z
·P 1P)) ∈
V |
| 58 | 46, 47 | addcompr 3917 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (u
+P f) = (f +P u) |
| 59 | 47, 49 | addasspr 3918 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((u
+P f)
+P x) = (u +P (f +P x)) |
| 60 | 55, 56, 57, 58, 59 | caopr32 3074 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((z
·P v)
+P 1P)
+P ((y
·P 1P)
+P (z
·P 1P))) = (((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
1P) |
| 61 | 54, 60 | syl6eq 1140 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((w
·P v) =
1P ∧ (z
+P w) = y) → ((y
·P v)
+P ((y
·P 1P)
+P (z
·P 1P))) = (((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
1P)) |
| 62 | 61 | opreq1d 3012 |
. . . . . . . . . . . . . . . . . 18
⊢ (((w
·P v) =
1P ∧ (z
+P w) = y) → (((y
·P v)
+P ((y
·P 1P)
+P (z
·P 1P)))
+P 1P) = ((((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
1P) +P
1P)) |
| 63 | 56, 56 | addasspr 3918 |
. . . . . . . . . . . . . . . . . 18
⊢ ((((z
·P v)
+P ((y
·P 1P)
+P (z
·P 1P)))
+P 1P)
+P 1P) = (((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
(1P +P
1P)) |
| 64 | 62, 63 | syl6eq 1140 |
. . . . . . . . . . . . . . . . 17
⊢ (((w
·P v) =
1P ∧ (z
+P w) = y) → (((y
·P v)
+P ((y
·P 1P)
+P (z
·P 1P)))
+P 1P) = (((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
(1P +P
1P))) |
| 65 | 45, 56 | distrpr 3926 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (y
·P (v
+P 1P)) = ((y ·P v) +P (y ·P
1P)) |
| 66 | 65 | opreq1i 3009 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((y
·P (v
+P 1P))
+P (z
·P 1P)) = (((y ·P v) +P (y ·P
1P)) +P (z ·P
1P)) |
| 67 | | oprex 3018 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (y
·P 1P) ∈
V |
| 68 | | oprex 3018 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (z
·P 1P) ∈
V |
| 69 | 67, 68 | addasspr 3918 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((y
·P v)
+P (y
·P 1P))
+P (z
·P 1P)) = ((y ·P v) +P ((y ·P
1P) +P (z ·P
1P))) |
| 70 | 66, 69 | eqtr 1119 |
. . . . . . . . . . . . . . . . . 18
⊢ ((y
·P (v
+P 1P))
+P (z
·P 1P)) = ((y ·P v) +P ((y ·P
1P) +P (z ·P
1P))) |
| 71 | 70 | opreq1i 3009 |
. . . . . . . . . . . . . . . . 17
⊢ (((y
·P (v
+P 1P))
+P (z
·P 1P))
+P 1P) = (((y ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
1P) |
| 72 | 45, 56 | distrpr 3926 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (z
·P (v
+P 1P)) = ((z ·P v) +P (z ·P
1P)) |
| 73 | 72 | opreq2i 3010 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((y
·P 1P)
+P (z
·P (v
+P 1P))) = ((y ·P
1P) +P ((z ·P v) +P (z ·P
1P))) |
| 74 | 67, 55, 68, 58, 59 | caopr12 3075 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((y
·P 1P)
+P ((z
·P v)
+P (z
·P 1P))) = ((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) |
| 75 | 73, 74 | eqtr 1119 |
. . . . . . . . . . . . . . . . . 18
⊢ ((y
·P 1P)
+P (z
·P (v
+P 1P))) = ((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) |
| 76 | 75 | opreq1i 3009 |
. . . . . . . . . . . . . . . . 17
⊢ (((y
·P 1P)
+P (z
·P (v
+P 1P)))
+P (1P
+P 1P)) = (((z ·P v) +P ((y ·P
1P) +P (z ·P
1P))) +P
(1P +P
1P)) |
| 77 | 64, 71, 76 | 3eqtr4g 1147 |
. . . . . . . . . . . . . . . 16
⊢ (((w
·P v) =
1P ∧ (z
+P w) = y) → (((y
·P (v
+P 1P))
+P (z
·P 1P))
+P 1P) = (((y ·P
1P) +P (z ·P (v +P
1P))) +P
(1P +P
1P))) |
| 78 | 39, 77 | syl5bir 184 |
. . . . . . . . . . . . . . 15
⊢ (((y
∈ P ∧ z ∈
P) ∧ v ∈
P) → (((w
·P v) =
1P ∧ (z
+P w) = y) → [〈((y ·P (v +P
1P)) +P (z ·P
1P)), ((y
·P 1P)
+P (z
·P (v
+P 1P)))〉]
~R = [〈(1P
+P 1P),
1P〉] ~R )) |
| 79 | 78 | imp 277 |
. . . . . . . . . . . . . 14
⊢ ((((y
∈ P ∧ z ∈
P) ∧ v ∈
P) ∧ ((w
·P v) =
1P ∧ (z
+P w) = y)) → [〈((y ·P (v +P
1P)) +P (z ·P
1P)), ((y
·P 1P)
+P (z
·P (v
+P 1P)))〉]
~R = [〈(1P
+P 1P),
1P〉] ~R ) |
| 80 | 18, 79 | eqtrd 1128 |
. . . . . . . . . . . . 13
⊢ ((((y
∈ P ∧ z ∈
P) ∧ v ∈
P) ∧ ((w
·P v) =
1P ∧ (z
+P w) = y)) → ([〈y, z〉]
~R ·R [〈(v +P
1P), 1P〉]
~R ) = [〈(1P
+P 1P),
1P〉] ~R ) |
| 81 | | df-1r 3966 |
. . . . . . . . . . . . 13
⊢ 1R =
[〈(1P +P
1P), 1P〉]
~R |
| 82 | 80, 81 | syl6eqr 1142 |
. . . . . . . . . . . 12
⊢ ((((y
∈ P ∧ z ∈
P) ∧ v ∈
P) ∧ ((w
·P v) =
1P ∧ (z
+P w) = y)) → ([〈y, z〉]
~R ·R [〈(v +P
1P), 1P〉]
~R ) = 1R) |
| 83 | | enrex 3972 |
. . . . . . . . . . . . . 14
⊢ ~R ∈
V |
| 84 | | ecexg 3204 |
. . . . . . . . . . . . . 14
⊢ ( ~R ∈
V → [〈(v
+P 1P),
1P〉] ~R ∈
V) |
| 85 | 83, 84 | ax-mp 6 |
. . . . . . . . . . . . 13
⊢ [〈(v +P
1P), 1P〉]
~R ∈ V |
| 86 | | opreq2 3007 |
. . . . . . . . . . . . . 14
⊢ (x =
[〈(v +P
1P), 1P〉]
~R → ([〈y, z〉]
~R ·R x) = ([〈y,
z〉] ~R
·R [〈(v +P
1P), 1P〉]
~R )) |
| 87 | 86 | cleq1d 1109 |
. . . . . . . . . . . . 13
⊢ (x =
[〈(v +P
1P), 1P〉]
~R → (([〈y, z〉]
~R ·R x) = 1R ↔
([〈y, z〉] ~R
·R [〈(v +P
1P), 1P〉]
~R ) = 1R)) |
| 88 | 85, 87 | cla4ev 1401 |
. . . . . . . . . . . 12
⊢ (([〈y, z〉]
~R ·R [〈(v +P
1P), 1P〉]
~R ) = 1R →
∃x([〈y, z〉]
~R ·R x) = 1R) |
| 89 | 82, 88 | syl 12 |
. . . . . . . . . . 11
⊢ ((((y
∈ P ∧ z ∈
P) ∧ v ∈
P) ∧ ((w
·P v) =
1P ∧ (z
+P w) = y)) → ∃x([〈y,
z〉] ~R
·R x) =
1R) |
| 90 | 89 | exp43 301 |
. . . . . . . . . 10
⊢ ((y
∈ P ∧ z ∈
P) → (v ∈
P → ((w
·P v) =
1P → ((z
+P w) = y → ∃x([〈y,
z〉] ~R
·R x) =
1R)))) |
| 91 | 90 | imp3a 279 |
. . . . . . . . 9
⊢ ((y
∈ P ∧ z ∈
P) → ((v ∈
P ∧ (w
·P v) =
1P) → ((z
+P w) = y → ∃x([〈y,
z〉] ~R
·R x) =
1R))) |
| 92 | 91 | 19.23adv 954 |
. . . . . . . 8
⊢ ((y
∈ P ∧ z ∈
P) → (∃v(v ∈ P ∧ (w ·P v) = 1P) → ((z +P w) = y →
∃x([〈y, z〉]
~R ·R x) = 1R))) |
| 93 | | recexpr 3954 |
. . . . . . . 8
⊢ (w
∈ P → ∃v(v ∈
P ∧ (w
·P v) =
1P)) |
| 94 | 92, 93 | syl5 22 |
. . . . . . 7
⊢ ((y
∈ P ∧ z ∈
P) → (w ∈
P → ((z
+P w) = y → ∃x([〈y,
z〉] ~R
·R x) =
1R))) |
| 95 | 94 | imp3a 279 |
. . . . . 6
⊢ ((y
∈ P ∧ z ∈
P) → ((w ∈
P ∧ (z
+P w) = y) → ∃x([〈y,
z〉] ~R
·R x) =
1R)) |
| 96 | 95 | 19.23adv 954 |
. . . . 5
⊢ ((y
∈ P ∧ z ∈
P) → (∃w(w ∈ P ∧ (z +P w) = y) →
∃x([〈y, z〉]
~R ·R x) = 1R)) |
| 97 | | visset 1350 |
. . . . . . 7
⊢ y
∈ V |
| 98 | 97, 43 | gt0srpr 3981 |
. . . . . 6
⊢ (0R
<R [〈y,
z〉] ~R ↔
z<P y) |
| 99 | 97 | ltexpri 3943 |
. . . . . 6
⊢ (z<P y → ∃w(w ∈
P ∧ (z
+P w) = y)) |
| 100 | 98, 99 | sylbi 174 |
. . . . 5
⊢ (0R
<R [〈y,
z〉] ~R →
∃w(w ∈ P ∧ (z +P w) = y)) |
| 101 | 96, 100 | syl5 22 |
. . . 4
⊢ ((y
∈ P ∧ z ∈
P) → (0R
<R [〈y,
z〉] ~R →
∃x([〈y, z〉]
~R ·R x) = 1R)) |
| 102 | 5, 10, 101 | ecoptocl 3239 |
. . 3
⊢ (A
∈ R → (0R
<R A →
∃x(A ·R x) = 1R)) |
| 103 | 4, 102 | mpcom 49 |
. 2
⊢ (0R
<R A →
∃x(A ·R x) = 1R) |
| 104 | | 1r 3984 |
. . . . . . 7
⊢ 1R ∈
R |
| 105 | | eleq1 1149 |
. . . . . . 7
⊢ ((A
·R x) =
1R → ((A
·R x)
∈ R ↔ 1R ∈
R)) |
| 106 | 104, 105 | mpbiri 169 |
. . . . . 6
⊢ ((A
·R x) =
1R → (A
·R x)
∈ R) |
| 107 | | dmmulsr 3989 |
. . . . . . 7
⊢ dom ·R =
(R × R) |
| 108 | | 0nsr 3982 |
. . . . . . 7
⊢ ¬ ∅ ∈
R |
| 109 | 49, 107, 108 | ndmoprrcl 3060 |
. . . . . 6
⊢ ((A
·R x)
∈ R → (A ∈
R ∧ x ∈
R)) |
| 110 | 106, 109 | syl 12 |
. . . . 5
⊢ ((A
·R x) =
1R → (A
∈ R ∧ x ∈
R)) |
| 111 | 110 | pm3.27d 262 |
. . . 4
⊢ ((A
·R x) =
1R → x ∈
R) |
| 112 | 111 | ancri 245 |
. . 3
⊢ ((A
·R x) =
1R → (x
∈ R ∧ (A
·R x) =
1R)) |
| 113 | 112 | 19.22i 723 |
. 2
⊢ (∃x(A
·R x) =
1R → ∃x(x ∈
R ∧ (A
·R x) =
1R)) |
| 114 | 103, 113 | syl 12 |
1
⊢ (0R
<R A →
∃x(x ∈ R ∧ (A ·R x) = 1R)) |