Step | Hyp | Ref
| Expression |
1 | | ltrelsr 7736 |
. . . . . . 7
โข
<R โ (R ร
R) |
2 | 1 | brel 4678 |
. . . . . 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 7750 |
. . . . . . . 8
โข
-1R โ R |
7 | 6 | a1i 9 |
. . . . . . 7
โข ((๐ถ โ R โง
๐ด โ R)
โ -1R โ R) |
8 | | simpl 109 |
. . . . . . . . 9
โข ((๐ถ โ R โง
๐ด โ R)
โ ๐ถ โ
R) |
9 | | mulclsr 7752 |
. . . . . . . . 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 7751 |
. . . . . . . 8
โข (((๐ถ
ยทR -1R) โ
R โง ๐ด
โ R) โ ((๐ถ ยทR
-1R) +R ๐ด) โ R) |
13 | 10, 11, 12 | syl2anc 411 |
. . . . . . 7
โข ((๐ถ โ R โง
๐ด โ R)
โ ((๐ถ
ยทR -1R)
+R ๐ด) โ R) |
14 | | ltasrg 7768 |
. . . . . . 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 1238 |
. . . . . 6
โข ((๐ถ โ R โง
๐ด โ R)
โ (-1R <R ((๐ถ
ยทR -1R)
+R ๐ด) โ (๐ถ +R
-1R) <R (๐ถ +R ((๐ถ
ยทR -1R)
+R ๐ด)))) |
16 | | pn0sr 7769 |
. . . . . . . . . . 11
โข (๐ถ โ R โ
(๐ถ
+R (๐ถ ยทR
-1R)) = 0R) |
17 | 16 | oveq1d 5889 |
. . . . . . . . . 10
โข (๐ถ โ R โ
((๐ถ
+R (๐ถ ยทR
-1R)) +R ๐ด) = (0R
+R ๐ด)) |
18 | 17 | adantr 276 |
. . . . . . . . 9
โข ((๐ถ โ R โง
๐ด โ R)
โ ((๐ถ
+R (๐ถ ยทR
-1R)) +R ๐ด) = (0R
+R ๐ด)) |
19 | | addasssrg 7754 |
. . . . . . . . . 10
โข ((๐ถ โ R โง
(๐ถ
ยทR -1R) โ
R โง ๐ด
โ R) โ ((๐ถ +R (๐ถ
ยทR -1R))
+R ๐ด) = (๐ถ +R ((๐ถ
ยทR -1R)
+R ๐ด))) |
20 | 8, 10, 11, 19 | syl3anc 1238 |
. . . . . . . . 9
โข ((๐ถ โ R โง
๐ด โ R)
โ ((๐ถ
+R (๐ถ ยทR
-1R)) +R ๐ด) = (๐ถ +R ((๐ถ
ยทR -1R)
+R ๐ด))) |
21 | | 0r 7748 |
. . . . . . . . . . 11
โข
0R โ R |
22 | 21 | a1i 9 |
. . . . . . . . . 10
โข ((๐ถ โ R โง
๐ด โ R)
โ 0R โ R) |
23 | | addcomsrg 7753 |
. . . . . . . . . 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 2218 |
. . . . . . . 8
โข ((๐ถ โ R โง
๐ด โ R)
โ (๐ถ
+R ((๐ถ ยทR
-1R) +R ๐ด)) = (๐ด +R
0R)) |
26 | | 0idsr 7765 |
. . . . . . . . 9
โข (๐ด โ R โ
(๐ด
+R 0R) = ๐ด) |
27 | 26 | adantl 277 |
. . . . . . . 8
โข ((๐ถ โ R โง
๐ด โ R)
โ (๐ด
+R 0R) = ๐ด) |
28 | 25, 27 | eqtrd 2210 |
. . . . . . 7
โข ((๐ถ โ R โง
๐ด โ R)
โ (๐ถ
+R ((๐ถ ยทR
-1R) +R ๐ด)) = ๐ด) |
29 | 28 | breq2d 4015 |
. . . . . 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 7725 |
. . . . . . . 8
โข
R = ((P ร P) /
~R ) |
34 | | breq2 4007 |
. . . . . . . . 9
โข
([โจ๐ฆ, ๐งโฉ]
~R = ((๐ถ ยทR
-1R) +R ๐ด) โ (-1R
<R [โจ๐ฆ, ๐งโฉ] ~R โ
-1R <R ((๐ถ ยทR
-1R) +R ๐ด))) |
35 | | eqeq2 2187 |
. . . . . . . . . 10
โข
([โจ๐ฆ, ๐งโฉ]
~R = ((๐ถ ยทR
-1R) +R ๐ด) โ ([โจ๐ฅ, 1Pโฉ]
~R = [โจ๐ฆ, ๐งโฉ] ~R โ
[โจ๐ฅ,
1Pโฉ] ~R = ((๐ถ
ยทR -1R)
+R ๐ด))) |
36 | 35 | rexbidv 2478 |
. . . . . . . . 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 7731 |
. . . . . . . . . . . 12
โข
-1R = [โจ1P,
(1P +P
1P)โฉ]
~R |
39 | 38 | breq1i 4010 |
. . . . . . . . . . 11
โข
(-1R <R
[โจ๐ฆ, ๐งโฉ]
~R โ [โจ1P,
(1P +P
1P)โฉ] ~R
<R [โจ๐ฆ, ๐งโฉ] ~R
) |
40 | | 1pr 7552 |
. . . . . . . . . . . . . . 15
โข
1P โ P |
41 | | addassprg 7577 |
. . . . . . . . . . . . . . 15
โข
((1P โ P โง
1P โ P โง ๐ฆ โ P) โ
((1P +P
1P) +P ๐ฆ) = (1P
+P (1P
+P ๐ฆ))) |
42 | 40, 40, 41 | mp3an12 1327 |
. . . . . . . . . . . . . 14
โข (๐ฆ โ P โ
((1P +P
1P) +P ๐ฆ) = (1P
+P (1P
+P ๐ฆ))) |
43 | 42 | breq2d 4015 |
. . . . . . . . . . . . 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 7535 |
. . . . . . . . . . . . . 14
โข
((1P โ P โง
1P โ P) โ
(1P +P
1P) โ P) |
46 | 40, 40, 45 | mp2an 426 |
. . . . . . . . . . . . 13
โข
(1P +P
1P) โ P |
47 | | ltsrprg 7745 |
. . . . . . . . . . . . 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 7535 |
. . . . . . . . . . . . . 14
โข
((1P โ P โง ๐ฆ โ P) โ
(1P +P ๐ฆ) โ P) |
53 | 50, 51, 52 | syl2anc 411 |
. . . . . . . . . . . . 13
โข ((๐ฆ โ P โง
๐ง โ P)
โ (1P +P ๐ฆ) โ
P) |
54 | | ltaprg 7617 |
. . . . . . . . . . . . 13
โข ((๐ง โ P โง
(1P +P ๐ฆ) โ P โง
1P โ P) โ (๐ง<P
(1P +P ๐ฆ) โ (1P
+P ๐ง)<P
(1P +P
(1P +P ๐ฆ)))) |
55 | 49, 53, 50, 54 | syl3anc 1238 |
. . . . . . . . . . . 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 7611 |
. . . . . . . . . 10
โข (๐ง<P
(1P +P ๐ฆ) โ โ๐ฅ โ P (๐ง +P ๐ฅ) = (1P
+P ๐ฆ)) |
59 | 57, 58 | syl6bi 163 |
. . . . . . . . 9
โข ((๐ฆ โ P โง
๐ง โ P)
โ (-1R <R
[โจ๐ฆ, ๐งโฉ]
~R โ โ๐ฅ โ P (๐ง +P ๐ฅ) = (1P
+P ๐ฆ))) |
60 | | enreceq 7734 |
. . . . . . . . . . . . 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 7576 |
. . . . . . . . . . . . . 14
โข ((๐ง โ P โง
๐ฅ โ P)
โ (๐ง
+P ๐ฅ) = (๐ฅ +P ๐ง)) |
65 | 62, 63, 64 | syl2anc 411 |
. . . . . . . . . . . . 13
โข ((๐ฅ โ P โง
(๐ฆ โ P
โง ๐ง โ
P)) โ (๐ง
+P ๐ฅ) = (๐ฅ +P ๐ง)) |
66 | 65 | eqeq1d 2186 |
. . . . . . . . . . . 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 2474 |
. . . . . . . . 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 6621 |
. . . . . . 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 5882 |
. . . . . . . . 9
โข
([โจ๐ฅ,
1Pโฉ] ~R = ((๐ถ
ยทR -1R)
+R ๐ด) โ (๐ถ +R [โจ๐ฅ,
1Pโฉ] ~R ) = (๐ถ +R
((๐ถ
ยทR -1R)
+R ๐ด))) |
74 | 73, 28 | sylan9eqr 2232 |
. . . . . . . 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 2578 |
. . . . . 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 7802 |
. . . . 5
โข ((๐ฅ โ P โง
๐ถ โ R)
โ (๐ถ
+R -1R)
<R (๐ถ +R [โจ๐ฅ,
1Pโฉ] ~R
)) |
82 | | breq2 4007 |
. . . . 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 2594 |
. 2
โข (๐ถ โ R โ
(โ๐ฅ โ
P (๐ถ
+R [โจ๐ฅ, 1Pโฉ]
~R ) = ๐ด โ (๐ถ +R
-1R) <R ๐ด)) |
86 | 80, 85 | impbid 129 |
1
โข (๐ถ โ R โ
((๐ถ
+R -1R)
<R ๐ด โ โ๐ฅ โ P (๐ถ +R [โจ๐ฅ,
1Pโฉ] ~R ) = ๐ด)) |