Step | Hyp | Ref
| Expression |
1 | | ltrelsr 7739 |
. . . 4
โข
<R โ (R ร
R) |
2 | 1 | brel 4680 |
. . 3
โข
(0R <R ๐ด โ
(0R โ R โง ๐ด โ R)) |
3 | 2 | simprd 114 |
. 2
โข
(0R <R ๐ด โ ๐ด โ R) |
4 | | df-nr 7728 |
. . 3
โข
R = ((P ร P) /
~R ) |
5 | | breq2 4009 |
. . . 4
โข
([โจ๐ฆ, ๐งโฉ]
~R = ๐ด โ (0R
<R [โจ๐ฆ, ๐งโฉ] ~R โ
0R <R ๐ด)) |
6 | | oveq1 5884 |
. . . . . . 7
โข
([โจ๐ฆ, ๐งโฉ]
~R = ๐ด โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = (๐ด ยทR ๐ฅ)) |
7 | 6 | eqeq1d 2186 |
. . . . . 6
โข
([โจ๐ฆ, ๐งโฉ]
~R = ๐ด โ (([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = 1R โ (๐ด
ยทR ๐ฅ) =
1R)) |
8 | 7 | anbi2d 464 |
. . . . 5
โข
([โจ๐ฆ, ๐งโฉ]
~R = ๐ด โ ((0R
<R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = 1R) โ
(0R <R ๐ฅ โง (๐ด ยทR ๐ฅ) =
1R))) |
9 | 8 | rexbidv 2478 |
. . . 4
โข
([โจ๐ฆ, ๐งโฉ]
~R = ๐ด โ (โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = 1R) โ
โ๐ฅ โ
R (0R <R
๐ฅ โง (๐ด ยทR ๐ฅ) =
1R))) |
10 | 5, 9 | imbi12d 234 |
. . 3
โข
([โจ๐ฆ, ๐งโฉ]
~R = ๐ด โ ((0R
<R [โจ๐ฆ, ๐งโฉ] ~R โ
โ๐ฅ โ
R (0R <R
๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = 1R)) โ
(0R <R ๐ด โ โ๐ฅ โ R
(0R <R ๐ฅ โง (๐ด ยทR ๐ฅ) =
1R)))) |
11 | | gt0srpr 7749 |
. . . . 5
โข
(0R <R [โจ๐ฆ, ๐งโฉ] ~R โ
๐ง<P ๐ฆ) |
12 | | ltexpri 7614 |
. . . . 5
โข (๐ง<P
๐ฆ โ โ๐ค โ P (๐ง +P
๐ค) = ๐ฆ) |
13 | 11, 12 | sylbi 121 |
. . . 4
โข
(0R <R [โจ๐ฆ, ๐งโฉ] ~R โ
โ๐ค โ
P (๐ง
+P ๐ค) = ๐ฆ) |
14 | | recexpr 7639 |
. . . . . . 7
โข (๐ค โ P โ
โ๐ฃ โ
P (๐ค
ยทP ๐ฃ) =
1P) |
15 | 14 | adantl 277 |
. . . . . 6
โข (((๐ฆ โ P โง
๐ง โ P)
โง ๐ค โ
P) โ โ๐ฃ โ P (๐ค ยทP ๐ฃ) =
1P) |
16 | | 1pr 7555 |
. . . . . . . . . . . . . 14
โข
1P โ P |
17 | | addclpr 7538 |
. . . . . . . . . . . . . 14
โข ((๐ฃ โ P โง
1P โ P) โ (๐ฃ +P
1P) โ P) |
18 | 16, 17 | mpan2 425 |
. . . . . . . . . . . . 13
โข (๐ฃ โ P โ
(๐ฃ
+P 1P) โ
P) |
19 | | enrex 7738 |
. . . . . . . . . . . . . 14
โข
~R โ V |
20 | 19, 4 | ecopqsi 6592 |
. . . . . . . . . . . . 13
โข (((๐ฃ +P
1P) โ P โง
1P โ P) โ [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โ R) |
21 | 18, 16, 20 | sylancl 413 |
. . . . . . . . . . . 12
โข (๐ฃ โ P โ
[โจ(๐ฃ
+P 1P),
1Pโฉ] ~R โ
R) |
22 | 21 | adantl 277 |
. . . . . . . . . . 11
โข ((๐ค โ P โง
๐ฃ โ P)
โ [โจ(๐ฃ
+P 1P),
1Pโฉ] ~R โ
R) |
23 | 22 | ad2antlr 489 |
. . . . . . . . . 10
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โ R) |
24 | | simprr 531 |
. . . . . . . . . . . 12
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ๐ฃ โ P) |
25 | 24 | adantr 276 |
. . . . . . . . . . 11
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ๐ฃ โ P) |
26 | | ltaddpr 7598 |
. . . . . . . . . . . . . 14
โข
((1P โ P โง ๐ฃ โ P) โ
1P<P
(1P +P ๐ฃ)) |
27 | 16, 26 | mpan 424 |
. . . . . . . . . . . . 13
โข (๐ฃ โ P โ
1P<P
(1P +P ๐ฃ)) |
28 | | addcomprg 7579 |
. . . . . . . . . . . . . 14
โข
((1P โ P โง ๐ฃ โ P) โ
(1P +P ๐ฃ) = (๐ฃ +P
1P)) |
29 | 16, 28 | mpan 424 |
. . . . . . . . . . . . 13
โข (๐ฃ โ P โ
(1P +P ๐ฃ) = (๐ฃ +P
1P)) |
30 | 27, 29 | breqtrd 4031 |
. . . . . . . . . . . 12
โข (๐ฃ โ P โ
1P<P (๐ฃ +P
1P)) |
31 | | gt0srpr 7749 |
. . . . . . . . . . . 12
โข
(0R <R
[โจ(๐ฃ
+P 1P),
1Pโฉ] ~R โ
1P<P (๐ฃ +P
1P)) |
32 | 30, 31 | sylibr 134 |
. . . . . . . . . . 11
โข (๐ฃ โ P โ
0R <R [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) |
33 | 25, 32 | syl 14 |
. . . . . . . . . 10
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ 0R
<R [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) |
34 | 18, 16 | jctir 313 |
. . . . . . . . . . . . . . . 16
โข (๐ฃ โ P โ
((๐ฃ
+P 1P) โ P
โง 1P โ P)) |
35 | 34 | anim2i 342 |
. . . . . . . . . . . . . . 15
โข (((๐ฆ โ P โง
๐ง โ P)
โง ๐ฃ โ
P) โ ((๐ฆ
โ P โง ๐ง โ P) โง ((๐ฃ +P
1P) โ P โง
1P โ P))) |
36 | 35 | adantr 276 |
. . . . . . . . . . . . . 14
โข ((((๐ฆ โ P โง
๐ง โ P)
โง ๐ฃ โ
P) โง ((๐ค
ยทP ๐ฃ) = 1P โง (๐ง +P
๐ค) = ๐ฆ)) โ ((๐ฆ โ P โง ๐ง โ P) โง
((๐ฃ
+P 1P) โ P
โง 1P โ P))) |
37 | | mulsrpr 7747 |
. . . . . . . . . . . . . 14
โข (((๐ฆ โ P โง
๐ง โ P)
โง ((๐ฃ
+P 1P) โ P
โง 1P โ P)) โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = [โจ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R
) |
38 | 36, 37 | syl 14 |
. . . . . . . . . . . . 13
โข ((((๐ฆ โ P โง
๐ง โ P)
โง ๐ฃ โ
P) โง ((๐ค
ยทP ๐ฃ) = 1P โง (๐ง +P
๐ค) = ๐ฆ)) โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = [โจ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R
) |
39 | 38 | adantlrl 482 |
. . . . . . . . . . . 12
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = [โจ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R
) |
40 | | oveq1 5884 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ง +P
๐ค) = ๐ฆ โ ((๐ง +P ๐ค)
ยทP ๐ฃ) = (๐ฆ ยทP ๐ฃ)) |
41 | 40 | eqcomd 2183 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ง +P
๐ค) = ๐ฆ โ (๐ฆ ยทP ๐ฃ) = ((๐ง +P ๐ค)
ยทP ๐ฃ)) |
42 | 41 | ad2antll 491 |
. . . . . . . . . . . . . . . . . . 19
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (๐ฆ ยทP ๐ฃ) = ((๐ง +P ๐ค)
ยทP ๐ฃ)) |
43 | | mulcomprg 7581 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข ((๐ โ P โง
โ โ P)
โ (๐
ยทP โ) = (โ ยทP ๐)) |
44 | 43 | 3adant2 1016 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ (๐
ยทP โ) = (โ ยทP ๐)) |
45 | | mulcomprg 7581 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข ((๐ โ P โง
โ โ P)
โ (๐
ยทP โ) = (โ ยทP ๐)) |
46 | 45 | 3adant1 1015 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ (๐
ยทP โ) = (โ ยทP ๐)) |
47 | 44, 46 | oveq12d 5895 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ ((๐
ยทP โ) +P (๐
ยทP โ)) = ((โ ยทP ๐) +P
(โ
ยทP ๐))) |
48 | | distrprg 7589 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((โ โ P โง
๐ โ P
โง ๐ โ
P) โ (โ
ยทP (๐ +P ๐)) = ((โ ยทP ๐) +P
(โ
ยทP ๐))) |
49 | 48 | 3coml 1210 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ (โ
ยทP (๐ +P ๐)) = ((โ ยทP ๐) +P
(โ
ยทP ๐))) |
50 | | simp3 999 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ โ
โ P) |
51 | | addclpr 7538 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
โข ((๐ โ P โง
๐ โ P)
โ (๐
+P ๐) โ P) |
52 | 51 | 3adant3 1017 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ (๐
+P ๐) โ P) |
53 | | mulcomprg 7581 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
โข ((โ โ P โง
(๐
+P ๐) โ P) โ (โ
ยทP (๐ +P ๐)) = ((๐ +P ๐)
ยทP โ)) |
54 | 50, 52, 53 | syl2anc 411 |
. . . . . . . . . . . . . . . . . . . . . . . 24
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ (โ
ยทP (๐ +P ๐)) = ((๐ +P ๐)
ยทP โ)) |
55 | 47, 49, 54 | 3eqtr2rd 2217 |
. . . . . . . . . . . . . . . . . . . . . . 23
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ ((๐
+P ๐) ยทP โ) = ((๐ ยทP โ) +P
(๐
ยทP โ))) |
56 | 55 | adantl 277 |
. . . . . . . . . . . . . . . . . . . . . 22
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง (๐ โ P โง ๐ โ P โง
โ โ P))
โ ((๐
+P ๐) ยทP โ) = ((๐ ยทP โ) +P
(๐
ยทP โ))) |
57 | | simplr 528 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ๐ง โ P) |
58 | | simprl 529 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ๐ค โ P) |
59 | 56, 57, 58, 24 | caovdird 6055 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ง +P ๐ค)
ยทP ๐ฃ) = ((๐ง ยทP ๐ฃ) +P
(๐ค
ยทP ๐ฃ))) |
60 | | oveq2 5885 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ค
ยทP ๐ฃ) = 1P โ
((๐ง
ยทP ๐ฃ) +P (๐ค
ยทP ๐ฃ)) = ((๐ง ยทP ๐ฃ) +P
1P)) |
61 | 59, 60 | sylan9eq 2230 |
. . . . . . . . . . . . . . . . . . . 20
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง (๐ค ยทP ๐ฃ) = 1P)
โ ((๐ง
+P ๐ค) ยทP ๐ฃ) = ((๐ง ยทP ๐ฃ) +P
1P)) |
62 | 61 | adantrr 479 |
. . . . . . . . . . . . . . . . . . 19
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ((๐ง +P ๐ค)
ยทP ๐ฃ) = ((๐ง ยทP ๐ฃ) +P
1P)) |
63 | 42, 62 | eqtrd 2210 |
. . . . . . . . . . . . . . . . . 18
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (๐ฆ ยทP ๐ฃ) = ((๐ง ยทP ๐ฃ) +P
1P)) |
64 | 63 | oveq1d 5892 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) = (((๐ง ยทP ๐ฃ) +P
1P) +P ((๐ฆ ยทP
1P) +P (๐ง ยทP
1P)))) |
65 | | mulclpr 7573 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ง โ P โง
๐ฃ โ P)
โ (๐ง
ยทP ๐ฃ) โ P) |
66 | 57, 24, 65 | syl2anc 411 |
. . . . . . . . . . . . . . . . . . 19
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ง ยทP ๐ฃ) โ
P) |
67 | 16 | a1i 9 |
. . . . . . . . . . . . . . . . . . 19
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ 1P โ
P) |
68 | | simpll 527 |
. . . . . . . . . . . . . . . . . . . . 21
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ๐ฆ โ P) |
69 | | mulclpr 7573 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ฆ โ P โง
1P โ P) โ (๐ฆ ยทP
1P) โ P) |
70 | 68, 16, 69 | sylancl 413 |
. . . . . . . . . . . . . . . . . . . 20
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ฆ ยทP
1P) โ P) |
71 | | mulclpr 7573 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ง โ P โง
1P โ P) โ (๐ง ยทP
1P) โ P) |
72 | 57, 16, 71 | sylancl 413 |
. . . . . . . . . . . . . . . . . . . 20
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ง ยทP
1P) โ P) |
73 | | addclpr 7538 |
. . . . . . . . . . . . . . . . . . . 20
โข (((๐ฆ
ยทP 1P) โ
P โง (๐ง
ยทP 1P) โ
P) โ ((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)) โ P) |
74 | 70, 72, 73 | syl2anc 411 |
. . . . . . . . . . . . . . . . . . 19
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP
1P) +P (๐ง ยทP
1P)) โ P) |
75 | | addcomprg 7579 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ โ P โง
๐ โ P)
โ (๐
+P ๐) = (๐ +P ๐)) |
76 | 75 | adantl 277 |
. . . . . . . . . . . . . . . . . . 19
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง (๐ โ P โง ๐ โ P)) โ
(๐
+P ๐) = (๐ +P ๐)) |
77 | | addassprg 7580 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ โ P โง
๐ โ P
โง โ โ
P) โ ((๐
+P ๐) +P โ) = (๐ +P (๐ +P
โ))) |
78 | 77 | adantl 277 |
. . . . . . . . . . . . . . . . . . 19
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง (๐ โ P โง ๐ โ P โง
โ โ P))
โ ((๐
+P ๐) +P โ) = (๐ +P (๐ +P
โ))) |
79 | 66, 67, 74, 76, 78 | caov32d 6057 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (((๐ง ยทP ๐ฃ) +P
1P) +P ((๐ฆ ยทP
1P) +P (๐ง ยทP
1P))) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P)) |
80 | 79 | adantr 276 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (((๐ง ยทP ๐ฃ) +P
1P) +P ((๐ฆ ยทP
1P) +P (๐ง ยทP
1P))) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P)) |
81 | 64, 80 | eqtrd 2210 |
. . . . . . . . . . . . . . . 16
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P)) |
82 | 81 | oveq1d 5892 |
. . . . . . . . . . . . . . 15
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P) = ((((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P) +P
1P)) |
83 | | addclpr 7538 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ง
ยทP ๐ฃ) โ P โง ((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)) โ P) โ ((๐ง
ยทP ๐ฃ) +P ((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) โ P) |
84 | 66, 74, 83 | syl2anc 411 |
. . . . . . . . . . . . . . . . 17
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) โ P) |
85 | 84 | adantr 276 |
. . . . . . . . . . . . . . . 16
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) โ P) |
86 | 16 | a1i 9 |
. . . . . . . . . . . . . . . 16
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ 1P โ
P) |
87 | | addassprg 7580 |
. . . . . . . . . . . . . . . 16
โข ((((๐ง
ยทP ๐ฃ) +P ((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) โ P โง
1P โ P โง
1P โ P) โ ((((๐ง
ยทP ๐ฃ) +P ((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P) +P
1P) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
(1P +P
1P))) |
88 | 85, 86, 86, 87 | syl3anc 1238 |
. . . . . . . . . . . . . . 15
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ((((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P) +P
1P) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
(1P +P
1P))) |
89 | 82, 88 | eqtrd 2210 |
. . . . . . . . . . . . . 14
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
(1P +P
1P))) |
90 | | distrprg 7589 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ฆ โ P โง
๐ฃ โ P
โง 1P โ P) โ (๐ฆ
ยทP (๐ฃ +P
1P)) = ((๐ฆ ยทP ๐ฃ) +P
(๐ฆ
ยทP
1P))) |
91 | 68, 24, 67, 90 | syl3anc 1238 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ฆ ยทP (๐ฃ +P
1P)) = ((๐ฆ ยทP ๐ฃ) +P
(๐ฆ
ยทP
1P))) |
92 | 91 | oveq1d 5892 |
. . . . . . . . . . . . . . . . 17
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) = (((๐ฆ ยทP ๐ฃ) +P
(๐ฆ
ยทP 1P))
+P (๐ง ยทP
1P))) |
93 | | mulclpr 7573 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ฆ โ P โง
๐ฃ โ P)
โ (๐ฆ
ยทP ๐ฃ) โ P) |
94 | 68, 24, 93 | syl2anc 411 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ฆ ยทP ๐ฃ) โ
P) |
95 | | addassprg 7580 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ฆ
ยทP ๐ฃ) โ P โง (๐ฆ
ยทP 1P) โ
P โง (๐ง
ยทP 1P) โ
P) โ (((๐ฆ ยทP ๐ฃ) +P
(๐ฆ
ยทP 1P))
+P (๐ง ยทP
1P)) = ((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)))) |
96 | 94, 70, 72, 95 | syl3anc 1238 |
. . . . . . . . . . . . . . . . 17
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (((๐ฆ ยทP ๐ฃ) +P
(๐ฆ
ยทP 1P))
+P (๐ง ยทP
1P)) = ((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)))) |
97 | 92, 96 | eqtrd 2210 |
. . . . . . . . . . . . . . . 16
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) = ((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)))) |
98 | 97 | oveq1d 5892 |
. . . . . . . . . . . . . . 15
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) +P
1P) = (((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P)) |
99 | 98 | adantr 276 |
. . . . . . . . . . . . . 14
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) +P
1P) = (((๐ฆ ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
1P)) |
100 | | distrprg 7589 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ง โ P โง
๐ฃ โ P
โง 1P โ P) โ (๐ง
ยทP (๐ฃ +P
1P)) = ((๐ง ยทP ๐ฃ) +P
(๐ง
ยทP
1P))) |
101 | 57, 24, 67, 100 | syl3anc 1238 |
. . . . . . . . . . . . . . . . . 18
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ง ยทP (๐ฃ +P
1P)) = ((๐ง ยทP ๐ฃ) +P
(๐ง
ยทP
1P))) |
102 | 101 | oveq2d 5893 |
. . . . . . . . . . . . . . . . 17
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) = ((๐ฆ ยทP
1P) +P ((๐ง ยทP ๐ฃ) +P
(๐ง
ยทP
1P)))) |
103 | 70, 66, 72, 76, 78 | caov12d 6058 |
. . . . . . . . . . . . . . . . 17
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP
1P) +P ((๐ง ยทP ๐ฃ) +P
(๐ง
ยทP 1P))) = ((๐ง
ยทP ๐ฃ) +P ((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)))) |
104 | 102, 103 | eqtrd 2210 |
. . . . . . . . . . . . . . . 16
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) = ((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P)))) |
105 | 104 | oveq1d 5892 |
. . . . . . . . . . . . . . 15
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) +P
(1P +P
1P)) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
(1P +P
1P))) |
106 | 105 | adantr 276 |
. . . . . . . . . . . . . 14
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) +P
(1P +P
1P)) = (((๐ง ยทP ๐ฃ) +P
((๐ฆ
ยทP 1P)
+P (๐ง ยทP
1P))) +P
(1P +P
1P))) |
107 | 89, 99, 106 | 3eqtr4d 2220 |
. . . . . . . . . . . . 13
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ (((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) +P
1P) = (((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) +P
(1P +P
1P))) |
108 | 24, 16, 17 | sylancl 413 |
. . . . . . . . . . . . . . . . 17
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ฃ +P
1P) โ P) |
109 | | mulclpr 7573 |
. . . . . . . . . . . . . . . . 17
โข ((๐ฆ โ P โง
(๐ฃ
+P 1P) โ
P) โ (๐ฆ
ยทP (๐ฃ +P
1P)) โ P) |
110 | 68, 108, 109 | syl2anc 411 |
. . . . . . . . . . . . . . . 16
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (๐ฆ ยทP (๐ฃ +P
1P)) โ P) |
111 | | addclpr 7538 |
. . . . . . . . . . . . . . . 16
โข (((๐ฆ
ยทP (๐ฃ +P
1P)) โ P โง (๐ง ยทP
1P) โ P) โ ((๐ฆ
ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) โ P) |
112 | 110, 72, 111 | syl2anc 411 |
. . . . . . . . . . . . . . 15
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) โ P) |
113 | 104, 84 | eqeltrd 2254 |
. . . . . . . . . . . . . . 15
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) โ P) |
114 | | addclpr 7538 |
. . . . . . . . . . . . . . . . 17
โข
((1P โ P โง
1P โ P) โ
(1P +P
1P) โ P) |
115 | 16, 16, 114 | mp2an 426 |
. . . . . . . . . . . . . . . 16
โข
(1P +P
1P) โ P |
116 | 115 | a1i 9 |
. . . . . . . . . . . . . . 15
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ (1P
+P 1P) โ
P) |
117 | | enreceq 7737 |
. . . . . . . . . . . . . . 15
โข
(((((๐ฆ
ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) โ P โง ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) โ P) โง
((1P +P
1P) โ P โง
1P โ P)) โ ([โจ((๐ฆ
ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R =
[โจ(1P +P
1P), 1Pโฉ]
~R โ (((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) +P
1P) = (((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) +P
(1P +P
1P)))) |
118 | 112, 113,
116, 67, 117 | syl22anc 1239 |
. . . . . . . . . . . . . 14
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ([โจ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R =
[โจ(1P +P
1P), 1Pโฉ]
~R โ (((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) +P
1P) = (((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) +P
(1P +P
1P)))) |
119 | 118 | adantr 276 |
. . . . . . . . . . . . 13
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ([โจ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R =
[โจ(1P +P
1P), 1Pโฉ]
~R โ (((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)) +P
1P) = (((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P))) +P
(1P +P
1P)))) |
120 | 107, 119 | mpbird 167 |
. . . . . . . . . . . 12
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ [โจ((๐ฆ ยทP (๐ฃ +P
1P)) +P (๐ง ยทP
1P)), ((๐ฆ ยทP
1P) +P (๐ง ยทP (๐ฃ +P
1P)))โฉ] ~R =
[โจ(1P +P
1P), 1Pโฉ]
~R ) |
121 | 39, 120 | eqtrd 2210 |
. . . . . . . . . . 11
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = [โจ(1P
+P 1P),
1Pโฉ] ~R
) |
122 | | df-1r 7733 |
. . . . . . . . . . 11
โข
1R = [โจ(1P
+P 1P),
1Pโฉ] ~R |
123 | 121, 122 | eqtr4di 2228 |
. . . . . . . . . 10
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = 1R) |
124 | | breq2 4009 |
. . . . . . . . . . . 12
โข (๐ฅ = [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โ (0R
<R ๐ฅ โ 0R
<R [โจ(๐ฃ +P
1P), 1Pโฉ]
~R )) |
125 | | oveq2 5885 |
. . . . . . . . . . . . 13
โข (๐ฅ = [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โ ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R )) |
126 | 125 | eqeq1d 2186 |
. . . . . . . . . . . 12
โข (๐ฅ = [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โ (([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = 1R โ
([โจ๐ฆ, ๐งโฉ]
~R ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = 1R)) |
127 | 124, 126 | anbi12d 473 |
. . . . . . . . . . 11
โข (๐ฅ = [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โ ((0R
<R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) = 1R) โ
(0R <R [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = 1R))) |
128 | 127 | rspcev 2843 |
. . . . . . . . . 10
โข
(([โจ(๐ฃ
+P 1P),
1Pโฉ] ~R โ
R โง (0R
<R [โจ(๐ฃ +P
1P), 1Pโฉ]
~R โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR [โจ(๐ฃ +P
1P), 1Pโฉ]
~R ) = 1R)) โ
โ๐ฅ โ
R (0R <R
๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R)) |
129 | 23, 33, 123, 128 | syl12anc 1236 |
. . . . . . . . 9
โข ((((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โง ((๐ค ยทP ๐ฃ) = 1P
โง (๐ง
+P ๐ค) = ๐ฆ)) โ โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R)) |
130 | 129 | exp32 365 |
. . . . . . . 8
โข (((๐ฆ โ P โง
๐ง โ P)
โง (๐ค โ
P โง ๐ฃ
โ P)) โ ((๐ค ยทP ๐ฃ) = 1P
โ ((๐ง
+P ๐ค) = ๐ฆ โ โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R)))) |
131 | 130 | anassrs 400 |
. . . . . . 7
โข ((((๐ฆ โ P โง
๐ง โ P)
โง ๐ค โ
P) โง ๐ฃ
โ P) โ ((๐ค ยทP ๐ฃ) = 1P
โ ((๐ง
+P ๐ค) = ๐ฆ โ โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R)))) |
132 | 131 | rexlimdva 2594 |
. . . . . 6
โข (((๐ฆ โ P โง
๐ง โ P)
โง ๐ค โ
P) โ (โ๐ฃ โ P (๐ค ยทP ๐ฃ) = 1P
โ ((๐ง
+P ๐ค) = ๐ฆ โ โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R)))) |
133 | 15, 132 | mpd 13 |
. . . . 5
โข (((๐ฆ โ P โง
๐ง โ P)
โง ๐ค โ
P) โ ((๐ง
+P ๐ค) = ๐ฆ โ โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R))) |
134 | 133 | rexlimdva 2594 |
. . . 4
โข ((๐ฆ โ P โง
๐ง โ P)
โ (โ๐ค โ
P (๐ง
+P ๐ค) = ๐ฆ โ โ๐ฅ โ R
(0R <R ๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R))) |
135 | 13, 134 | syl5 32 |
. . 3
โข ((๐ฆ โ P โง
๐ง โ P)
โ (0R <R [โจ๐ฆ, ๐งโฉ] ~R โ
โ๐ฅ โ
R (0R <R
๐ฅ โง ([โจ๐ฆ, ๐งโฉ] ~R
ยทR ๐ฅ) =
1R))) |
136 | 4, 10, 135 | ecoptocl 6624 |
. 2
โข (๐ด โ R โ
(0R <R ๐ด โ โ๐ฅ โ R
(0R <R ๐ฅ โง (๐ด ยทR ๐ฅ) =
1R))) |
137 | 3, 136 | mpcom 36 |
1
โข
(0R <R ๐ด โ โ๐ฅ โ R
(0R <R ๐ฅ โง (๐ด ยทR ๐ฅ) =
1R)) |