Step | Hyp | Ref
| Expression |
1 | | axcaucvg.n |
. . . 4
β’ π = β©
{π₯ β£ (1 β π₯ β§ βπ¦ β π₯ (π¦ + 1) β π₯)} |
2 | | axcaucvg.f |
. . . 4
β’ (π β πΉ:πβΆβ) |
3 | | axcaucvg.cau |
. . . 4
β’ (π β βπ β π βπ β π (π <β π β ((πΉβπ) <β ((πΉβπ) + (β©π β β (π Β· π) = 1)) β§ (πΉβπ) <β ((πΉβπ) + (β©π β β (π Β· π) = 1))))) |
4 | | axcaucvg.g |
. . . 4
β’ πΊ = (π β N β¦
(β©π§ β
R (πΉββ¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©) = β¨π§,
0Rβ©)) |
5 | 1, 2, 3, 4 | axcaucvglemf 7895 |
. . 3
β’ (π β πΊ:NβΆR) |
6 | 1, 2, 3, 4 | axcaucvglemcau 7897 |
. . 3
β’ (π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R ((πΊβπ) +R
[β¨(β¨{π β£
π
<Q (*Qβ[β¨π, 1oβ©]
~Q )}, {π’ β£
(*Qβ[β¨π, 1oβ©]
~Q ) <Q π’}β© +P
1P), 1Pβ©]
~R ) β§ (πΊβπ) <R ((πΊβπ) +R
[β¨(β¨{π β£
π
<Q (*Qβ[β¨π, 1oβ©]
~Q )}, {π’ β£
(*Qβ[β¨π, 1oβ©]
~Q ) <Q π’}β© +P
1P), 1Pβ©]
~R )))) |
7 | 5, 6 | caucvgsr 7801 |
. 2
β’ (π β βπ β R βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
8 | | opelreal 7826 |
. . . . 5
β’
(β¨π,
0Rβ© β β β π β R) |
9 | 8 | biimpri 133 |
. . . 4
β’ (π β R β
β¨π,
0Rβ© β β) |
10 | 9 | ad2antrl 490 |
. . 3
β’ ((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β β¨π,
0Rβ© β β) |
11 | | breq2 4008 |
. . . . . . . . . 10
β’ (π = π β (π <N π β π <N π)) |
12 | | fveq2 5516 |
. . . . . . . . . . . 12
β’ (π = π β (πΊβπ) = (πΊβπ)) |
13 | 12 | breq1d 4014 |
. . . . . . . . . . 11
β’ (π = π β ((πΊβπ) <R (π +R
π) β (πΊβπ) <R (π +R
π))) |
14 | 12 | oveq1d 5890 |
. . . . . . . . . . . 12
β’ (π = π β ((πΊβπ) +R π) = ((πΊβπ) +R π)) |
15 | 14 | breq2d 4016 |
. . . . . . . . . . 11
β’ (π = π β (π <R ((πΊβπ) +R π) β π <R ((πΊβπ) +R π))) |
16 | 13, 15 | anbi12d 473 |
. . . . . . . . . 10
β’ (π = π β (((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)) β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
17 | 11, 16 | imbi12d 234 |
. . . . . . . . 9
β’ (π = π β ((π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
18 | 17 | cbvralv 2704 |
. . . . . . . 8
β’
(βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
19 | 18 | rexbii 2484 |
. . . . . . 7
β’
(βπ β
N βπ
β N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
20 | 19 | imbi2i 226 |
. . . . . 6
β’
((0R <R π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) β
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
21 | 20 | ralbii 2483 |
. . . . 5
β’
(βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) β βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
22 | 21 | anbi2i 457 |
. . . 4
β’ ((π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) |
23 | | elreal 7827 |
. . . . . . . . 9
β’ (π₯ β β β
βπ β
R β¨π,
0Rβ© = π₯) |
24 | 23 | biimpi 120 |
. . . . . . . 8
β’ (π₯ β β β
βπ β
R β¨π,
0Rβ© = π₯) |
25 | 24 | ad2antlr 489 |
. . . . . . 7
β’ ((((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β βπ β
R β¨π,
0Rβ© = π₯) |
26 | | simplrr 536 |
. . . . . . . . . . 11
β’ (((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
27 | 26 | ad2antrr 488 |
. . . . . . . . . 10
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
28 | | simprr 531 |
. . . . . . . . . . 11
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β β¨π,
0Rβ© = π₯) |
29 | | simplr 528 |
. . . . . . . . . . 11
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β 0
<β π₯) |
30 | | breq2 4008 |
. . . . . . . . . . . . 13
β’
(β¨π,
0Rβ© = π₯ β (0 <β β¨π,
0Rβ© β 0 <β π₯)) |
31 | | df-0 7818 |
. . . . . . . . . . . . . . 15
β’ 0 =
β¨0R,
0Rβ© |
32 | 31 | breq1i 4011 |
. . . . . . . . . . . . . 14
β’ (0
<β β¨π, 0Rβ© β
β¨0R, 0Rβ©
<β β¨π,
0Rβ©) |
33 | | ltresr 7838 |
. . . . . . . . . . . . . 14
β’
(β¨0R, 0Rβ©
<β β¨π, 0Rβ© β
0R <R π) |
34 | 32, 33 | bitri 184 |
. . . . . . . . . . . . 13
β’ (0
<β β¨π, 0Rβ© β
0R <R π) |
35 | 30, 34 | bitr3di 195 |
. . . . . . . . . . . 12
β’
(β¨π,
0Rβ© = π₯ β (0 <β π₯ β
0R <R π)) |
36 | 35 | biimpa 296 |
. . . . . . . . . . 11
β’
((β¨π,
0Rβ© = π₯ β§ 0 <β π₯) β
0R <R π) |
37 | 28, 29, 36 | syl2anc 411 |
. . . . . . . . . 10
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β
0R <R π) |
38 | | breq2 4008 |
. . . . . . . . . . . . 13
β’ (π = π β (0R
<R π β 0R
<R π)) |
39 | | oveq2 5883 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β (π +R π) = (π +R π)) |
40 | 39 | breq2d 4016 |
. . . . . . . . . . . . . . . 16
β’ (π = π β ((πΊβπ) <R (π +R
π) β (πΊβπ) <R (π +R
π))) |
41 | | oveq2 5883 |
. . . . . . . . . . . . . . . . 17
β’ (π = π β ((πΊβπ) +R π) = ((πΊβπ) +R π)) |
42 | 41 | breq2d 4016 |
. . . . . . . . . . . . . . . 16
β’ (π = π β (π <R ((πΊβπ) +R π) β π <R ((πΊβπ) +R π))) |
43 | 40, 42 | anbi12d 473 |
. . . . . . . . . . . . . . 15
β’ (π = π β (((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)) β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
44 | 43 | imbi2d 230 |
. . . . . . . . . . . . . 14
β’ (π = π β ((π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
45 | 44 | rexralbidv 2503 |
. . . . . . . . . . . . 13
β’ (π = π β (βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
46 | 38, 45 | imbi12d 234 |
. . . . . . . . . . . 12
β’ (π = π β ((0R
<R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) β
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) |
47 | 46 | rspcv 2838 |
. . . . . . . . . . 11
β’ (π β R β
(βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) β
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) |
48 | 47 | ad2antrl 490 |
. . . . . . . . . 10
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β (βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) β
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) |
49 | 27, 37, 48 | mp2d 47 |
. . . . . . . . 9
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
50 | | breq1 4007 |
. . . . . . . . . . . 12
β’ (π = π β (π <N π β π <N π)) |
51 | 50 | imbi1d 231 |
. . . . . . . . . . 11
β’ (π = π β ((π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
52 | 51 | ralbidv 2477 |
. . . . . . . . . 10
β’ (π = π β (βπ β N (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
53 | 52 | cbvrexv 2705 |
. . . . . . . . 9
β’
(βπ β
N βπ
β N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
54 | 49, 53 | sylib 122 |
. . . . . . . 8
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
55 | | pitonn 7847 |
. . . . . . . . . . 11
β’ (π β N β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β β© {π₯
β£ (1 β π₯ β§
βπ¦ β π₯ (π¦ + 1) β π₯)}) |
56 | 55, 1 | eleqtrrdi 2271 |
. . . . . . . . . 10
β’ (π β N β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β π) |
57 | 56 | ad2antrl 490 |
. . . . . . . . 9
β’
((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β π) |
58 | 1 | nntopi 7893 |
. . . . . . . . . . . 12
β’ (π β π β βπ β N
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π) |
59 | 58 | adantl 277 |
. . . . . . . . . . 11
β’
(((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β βπ β N
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π) |
60 | | breq2 4008 |
. . . . . . . . . . . . . 14
β’ (π = π β (π <N π β π <N π)) |
61 | | fveq2 5516 |
. . . . . . . . . . . . . . . 16
β’ (π = π β (πΊβπ) = (πΊβπ)) |
62 | 61 | breq1d 4014 |
. . . . . . . . . . . . . . 15
β’ (π = π β ((πΊβπ) <R (π +R
π) β (πΊβπ) <R (π +R
π))) |
63 | 61 | oveq1d 5890 |
. . . . . . . . . . . . . . . 16
β’ (π = π β ((πΊβπ) +R π) = ((πΊβπ) +R π)) |
64 | 63 | breq2d 4016 |
. . . . . . . . . . . . . . 15
β’ (π = π β (π <R ((πΊβπ) +R π) β π <R ((πΊβπ) +R π))) |
65 | 62, 64 | anbi12d 473 |
. . . . . . . . . . . . . 14
β’ (π = π β (((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)) β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
66 | 60, 65 | imbi12d 234 |
. . . . . . . . . . . . 13
β’ (π = π β ((π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))) β (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) |
67 | | simplrr 536 |
. . . . . . . . . . . . . 14
β’
(((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β βπ β N (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
68 | 67 | adantr 276 |
. . . . . . . . . . . . 13
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
69 | | simprl 529 |
. . . . . . . . . . . . 13
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β π β N) |
70 | 66, 68, 69 | rspcdva 2847 |
. . . . . . . . . . . 12
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (π <N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))) |
71 | | simplrl 535 |
. . . . . . . . . . . . . . 15
β’
(((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β π β N) |
72 | 71 | adantr 276 |
. . . . . . . . . . . . . 14
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β π β N) |
73 | | ltrennb 7853 |
. . . . . . . . . . . . . 14
β’ ((π β N β§
π β N)
β (π
<N π β β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R ,
0Rβ©)) |
74 | 72, 69, 73 | syl2anc 411 |
. . . . . . . . . . . . 13
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (π <N π β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R ,
0Rβ©)) |
75 | | simprr 531 |
. . . . . . . . . . . . . 14
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π) |
76 | 75 | breq2d 4016 |
. . . . . . . . . . . . 13
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β
(β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π)) |
77 | 74, 76 | bitrd 188 |
. . . . . . . . . . . 12
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (π <N π β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π)) |
78 | | ltresr 7838 |
. . . . . . . . . . . . . 14
β’
(β¨(πΊβπ), 0Rβ©
<β β¨(π +R π),
0Rβ© β (πΊβπ) <R (π +R
π)) |
79 | | simplll 533 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β π) |
80 | 79 | ad4antr 494 |
. . . . . . . . . . . . . . . . 17
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β π) |
81 | 1, 2, 3, 4 | axcaucvglemval 7896 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β N) β (πΉββ¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©) = β¨(πΊβπ),
0Rβ©) |
82 | 80, 69, 81 | syl2anc 411 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (πΉββ¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©) = β¨(πΊβπ),
0Rβ©) |
83 | 75 | fveq2d 5520 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (πΉββ¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©) = (πΉβπ)) |
84 | 82, 83 | eqtr3d 2212 |
. . . . . . . . . . . . . . 15
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β β¨(πΊβπ), 0Rβ© = (πΉβπ)) |
85 | | simplrl 535 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β π β R) |
86 | 85 | ad5antr 496 |
. . . . . . . . . . . . . . . . 17
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β π β R) |
87 | | simplrl 535 |
. . . . . . . . . . . . . . . . . 18
β’
((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β π β R) |
88 | 87 | ad2antrr 488 |
. . . . . . . . . . . . . . . . 17
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β π β R) |
89 | | addresr 7836 |
. . . . . . . . . . . . . . . . 17
β’ ((π β R β§
π β R)
β (β¨π,
0Rβ© + β¨π, 0Rβ©) =
β¨(π
+R π),
0Rβ©) |
90 | 86, 88, 89 | syl2anc 411 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (β¨π,
0Rβ© + β¨π, 0Rβ©) =
β¨(π
+R π),
0Rβ©) |
91 | 28 | oveq2d 5891 |
. . . . . . . . . . . . . . . . 17
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β (β¨π,
0Rβ© + β¨π, 0Rβ©) =
(β¨π,
0Rβ© + π₯)) |
92 | 91 | ad3antrrr 492 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (β¨π,
0Rβ© + β¨π, 0Rβ©) =
(β¨π,
0Rβ© + π₯)) |
93 | 90, 92 | eqtr3d 2212 |
. . . . . . . . . . . . . . 15
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β β¨(π +R
π),
0Rβ© = (β¨π, 0Rβ© + π₯)) |
94 | 84, 93 | breq12d 4017 |
. . . . . . . . . . . . . 14
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (β¨(πΊβπ), 0Rβ©
<β β¨(π +R π),
0Rβ© β (πΉβπ) <β (β¨π,
0Rβ© + π₯))) |
95 | 78, 94 | bitr3id 194 |
. . . . . . . . . . . . 13
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β ((πΊβπ) <R (π +R
π) β (πΉβπ) <β (β¨π,
0Rβ© + π₯))) |
96 | | ltresr 7838 |
. . . . . . . . . . . . . 14
β’
(β¨π,
0Rβ© <β β¨((πΊβπ) +R π),
0Rβ© β π <R ((πΊβπ) +R π)) |
97 | 80, 5 | syl 14 |
. . . . . . . . . . . . . . . . . 18
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β πΊ:NβΆR) |
98 | 97, 69 | ffvelcdmd 5653 |
. . . . . . . . . . . . . . . . 17
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (πΊβπ) β R) |
99 | | addresr 7836 |
. . . . . . . . . . . . . . . . 17
β’ (((πΊβπ) β R β§ π β R) β
(β¨(πΊβπ),
0Rβ© + β¨π, 0Rβ©) =
β¨((πΊβπ) +R
π),
0Rβ©) |
100 | 98, 88, 99 | syl2anc 411 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (β¨(πΊβπ), 0Rβ© +
β¨π,
0Rβ©) = β¨((πΊβπ) +R π),
0Rβ©) |
101 | 28 | ad3antrrr 492 |
. . . . . . . . . . . . . . . . 17
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β β¨π,
0Rβ© = π₯) |
102 | 84, 101 | oveq12d 5893 |
. . . . . . . . . . . . . . . 16
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (β¨(πΊβπ), 0Rβ© +
β¨π,
0Rβ©) = ((πΉβπ) + π₯)) |
103 | 100, 102 | eqtr3d 2212 |
. . . . . . . . . . . . . . 15
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β β¨((πΊβπ) +R π),
0Rβ© = ((πΉβπ) + π₯)) |
104 | 103 | breq2d 4016 |
. . . . . . . . . . . . . 14
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (β¨π,
0Rβ© <β β¨((πΊβπ) +R π),
0Rβ© β β¨π, 0Rβ©
<β ((πΉβπ) + π₯))) |
105 | 96, 104 | bitr3id 194 |
. . . . . . . . . . . . 13
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (π <R ((πΊβπ) +R π) β β¨π,
0Rβ© <β ((πΉβπ) + π₯))) |
106 | 95, 105 | anbi12d 473 |
. . . . . . . . . . . 12
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β (((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)) β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
107 | 70, 77, 106 | 3imtr3d 202 |
. . . . . . . . . . 11
β’
((((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β§ (π β N β§
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© = π)) β
(β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π
β ((πΉβπ) <β
(β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
108 | 59, 107 | rexlimddv 2599 |
. . . . . . . . . 10
β’
(((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β§ π β π) β (β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π
β ((πΉβπ) <β
(β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
109 | 108 | ralrimiva 2550 |
. . . . . . . . 9
β’
((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β βπ β π (β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π
β ((πΉβπ) <β
(β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
110 | | breq1 4007 |
. . . . . . . . . . . 12
β’ (π = β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β (π <β π β
β¨[β¨(β¨{π
β£ π
<Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π)) |
111 | 110 | imbi1d 231 |
. . . . . . . . . . 11
β’ (π = β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β ((π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))) β (β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π
β ((πΉβπ) <β
(β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
112 | 111 | ralbidv 2477 |
. . . . . . . . . 10
β’ (π = β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β
(βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))) β βπ β π (β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π
β ((πΉβπ) <β
(β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
113 | 112 | rspcev 2842 |
. . . . . . . . 9
β’
((β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ© β π β§ βπ β π (β¨[β¨(β¨{π β£ π <Q [β¨π, 1oβ©]
~Q }, {π’ β£ [β¨π, 1oβ©]
~Q <Q π’}β© +P
1P), 1Pβ©]
~R , 0Rβ©
<β π
β ((πΉβπ) <β
(β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) β βπ β π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
114 | 57, 109, 113 | syl2anc 411 |
. . . . . . . 8
β’
((((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β§ (π β N β§ βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π))))) β βπ β π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
115 | 54, 114 | rexlimddv 2599 |
. . . . . . 7
β’
(((((π β§ (π β R β§
βπ β
R (0R <R
π β βπ β N
βπ β
N (π
<N π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β§ (π β
R β§ β¨π, 0Rβ© = π₯)) β βπ β π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
116 | 25, 115 | rexlimddv 2599 |
. . . . . 6
β’ ((((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β§ 0
<β π₯)
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
117 | 116 | ex 115 |
. . . . 5
β’ (((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β§ π₯ β β) β (0
<β π₯
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
118 | 117 | ralrimiva 2550 |
. . . 4
β’ ((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β βπ₯ β β (0
<β π₯
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
119 | 22, 118 | sylan2br 288 |
. . 3
β’ ((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β βπ₯ β β (0
<β π₯
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
120 | | oveq1 5882 |
. . . . . . . . . 10
β’ (π¦ = β¨π, 0Rβ© β
(π¦ + π₯) = (β¨π, 0Rβ© + π₯)) |
121 | 120 | breq2d 4016 |
. . . . . . . . 9
β’ (π¦ = β¨π, 0Rβ© β
((πΉβπ) <β (π¦ + π₯) β (πΉβπ) <β (β¨π,
0Rβ© + π₯))) |
122 | | breq1 4007 |
. . . . . . . . 9
β’ (π¦ = β¨π, 0Rβ© β
(π¦ <β
((πΉβπ) + π₯) β β¨π, 0Rβ©
<β ((πΉβπ) + π₯))) |
123 | 121, 122 | anbi12d 473 |
. . . . . . . 8
β’ (π¦ = β¨π, 0Rβ© β
(((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯)) β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))) |
124 | 123 | imbi2d 230 |
. . . . . . 7
β’ (π¦ = β¨π, 0Rβ© β
((π <β
π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯))) β (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
125 | 124 | rexralbidv 2503 |
. . . . . 6
β’ (π¦ = β¨π, 0Rβ© β
(βπ β π βπ β π (π <β π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯))) β βπ β π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) |
126 | 125 | imbi2d 230 |
. . . . 5
β’ (π¦ = β¨π, 0Rβ© β
((0 <β π₯ β βπ β π βπ β π (π <β π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯)))) β (0 <β π₯ β βπ β π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))))) |
127 | 126 | ralbidv 2477 |
. . . 4
β’ (π¦ = β¨π, 0Rβ© β
(βπ₯ β β
(0 <β π₯
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯)))) β βπ₯ β β (0 <β
π₯ β βπ β π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯)))))) |
128 | 127 | rspcev 2842 |
. . 3
β’
((β¨π,
0Rβ© β β β§ βπ₯ β β (0
<β π₯
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (β¨π,
0Rβ© + π₯) β§ β¨π, 0Rβ©
<β ((πΉβπ) + π₯))))) β βπ¦ β β βπ₯ β β (0 <β
π₯ β βπ β π βπ β π (π <β π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯))))) |
129 | 10, 119, 128 | syl2anc 411 |
. 2
β’ ((π β§ (π β R β§ βπ β R
(0R <R π β βπ β N βπ β N (π <N
π β ((πΊβπ) <R (π +R
π) β§ π <R ((πΊβπ) +R π)))))) β βπ¦ β β βπ₯ β β (0
<β π₯
β βπ β
π βπ β π (π <β π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯))))) |
130 | 7, 129 | rexlimddv 2599 |
1
β’ (π β βπ¦ β β βπ₯ β β (0 <β
π₯ β βπ β π βπ β π (π <β π β ((πΉβπ) <β (π¦ + π₯) β§ π¦ <β ((πΉβπ) + π₯))))) |