Step | Hyp | Ref
| Expression |
1 | | rmspecnonsq 41630 |
. . 3
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β 1) β (β β
β»NN)) |
2 | | eluzelz 12828 |
. . . . . . . . . . . . 13
β’ (π΄ β
(β€β₯β2) β π΄ β β€) |
3 | | zsqcl 14090 |
. . . . . . . . . . . . 13
β’ (π΄ β β€ β (π΄β2) β
β€) |
4 | 2, 3 | syl 17 |
. . . . . . . . . . . 12
β’ (π΄ β
(β€β₯β2) β (π΄β2) β β€) |
5 | 4 | zred 12662 |
. . . . . . . . . . 11
β’ (π΄ β
(β€β₯β2) β (π΄β2) β β) |
6 | | 1red 11211 |
. . . . . . . . . . 11
β’ (π΄ β
(β€β₯β2) β 1 β β) |
7 | 5, 6 | resubcld 11638 |
. . . . . . . . . 10
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β 1) β
β) |
8 | | sq1 14155 |
. . . . . . . . . . . . 13
β’
(1β2) = 1 |
9 | 8 | a1i 11 |
. . . . . . . . . . . 12
β’ (π΄ β
(β€β₯β2) β (1β2) = 1) |
10 | | eluz2b2 12901 |
. . . . . . . . . . . . . 14
β’ (π΄ β
(β€β₯β2) β (π΄ β β β§ 1 < π΄)) |
11 | 10 | simprbi 497 |
. . . . . . . . . . . . 13
β’ (π΄ β
(β€β₯β2) β 1 < π΄) |
12 | | eluzelre 12829 |
. . . . . . . . . . . . . 14
β’ (π΄ β
(β€β₯β2) β π΄ β β) |
13 | | 0le1 11733 |
. . . . . . . . . . . . . . 15
β’ 0 β€
1 |
14 | 13 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (π΄ β
(β€β₯β2) β 0 β€ 1) |
15 | | eluzge2nn0 12867 |
. . . . . . . . . . . . . . 15
β’ (π΄ β
(β€β₯β2) β π΄ β
β0) |
16 | 15 | nn0ge0d 12531 |
. . . . . . . . . . . . . 14
β’ (π΄ β
(β€β₯β2) β 0 β€ π΄) |
17 | 6, 12, 14, 16 | lt2sqd 14215 |
. . . . . . . . . . . . 13
β’ (π΄ β
(β€β₯β2) β (1 < π΄ β (1β2) < (π΄β2))) |
18 | 11, 17 | mpbid 231 |
. . . . . . . . . . . 12
β’ (π΄ β
(β€β₯β2) β (1β2) < (π΄β2)) |
19 | 9, 18 | eqbrtrrd 5171 |
. . . . . . . . . . 11
β’ (π΄ β
(β€β₯β2) β 1 < (π΄β2)) |
20 | 6, 5 | posdifd 11797 |
. . . . . . . . . . 11
β’ (π΄ β
(β€β₯β2) β (1 < (π΄β2) β 0 < ((π΄β2) β 1))) |
21 | 19, 20 | mpbid 231 |
. . . . . . . . . 10
β’ (π΄ β
(β€β₯β2) β 0 < ((π΄β2) β 1)) |
22 | 7, 21 | elrpd 13009 |
. . . . . . . . 9
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β 1) β
β+) |
23 | 22 | rpsqrtcld 15354 |
. . . . . . . 8
β’ (π΄ β
(β€β₯β2) β (ββ((π΄β2) β 1)) β
β+) |
24 | 23 | rpred 13012 |
. . . . . . 7
β’ (π΄ β
(β€β₯β2) β (ββ((π΄β2) β 1)) β
β) |
25 | 24 | recnd 11238 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β (ββ((π΄β2) β 1)) β
β) |
26 | 25 | mulridd 11227 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β ((ββ((π΄β2) β 1)) Β· 1) =
(ββ((π΄β2)
β 1))) |
27 | 26 | oveq2d 7421 |
. . . 4
β’ (π΄ β
(β€β₯β2) β (π΄ + ((ββ((π΄β2) β 1)) Β· 1)) = (π΄ + (ββ((π΄β2) β
1)))) |
28 | | pell1qrss14 41591 |
. . . . . 6
β’ (((π΄β2) β 1) β
(β β β»NN) β (Pell1QRβ((π΄β2) β 1)) β
(Pell14QRβ((π΄β2)
β 1))) |
29 | 1, 28 | syl 17 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β (Pell1QRβ((π΄β2) β 1)) β
(Pell14QRβ((π΄β2)
β 1))) |
30 | | 1nn0 12484 |
. . . . . . 7
β’ 1 β
β0 |
31 | 30 | a1i 11 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β 1 β
β0) |
32 | 8 | oveq2i 7416 |
. . . . . . . . 9
β’ (((π΄β2) β 1) Β·
(1β2)) = (((π΄β2)
β 1) Β· 1) |
33 | 7 | recnd 11238 |
. . . . . . . . . 10
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β 1) β
β) |
34 | 33 | mulridd 11227 |
. . . . . . . . 9
β’ (π΄ β
(β€β₯β2) β (((π΄β2) β 1) Β· 1) = ((π΄β2) β
1)) |
35 | 32, 34 | eqtrid 2784 |
. . . . . . . 8
β’ (π΄ β
(β€β₯β2) β (((π΄β2) β 1) Β· (1β2)) =
((π΄β2) β
1)) |
36 | 35 | oveq2d 7421 |
. . . . . . 7
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β (((π΄β2) β 1) Β· (1β2))) =
((π΄β2) β ((π΄β2) β
1))) |
37 | 5 | recnd 11238 |
. . . . . . . 8
β’ (π΄ β
(β€β₯β2) β (π΄β2) β β) |
38 | | 1cnd 11205 |
. . . . . . . 8
β’ (π΄ β
(β€β₯β2) β 1 β β) |
39 | 37, 38 | nncand 11572 |
. . . . . . 7
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β ((π΄β2) β 1)) = 1) |
40 | 36, 39 | eqtrd 2772 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β ((π΄β2) β (((π΄β2) β 1) Β· (1β2))) =
1) |
41 | | pellqrexplicit 41600 |
. . . . . 6
β’
(((((π΄β2)
β 1) β (β β β»NN) β§ π΄ β β0
β§ 1 β β0) β§ ((π΄β2) β (((π΄β2) β 1) Β· (1β2))) =
1) β (π΄ +
((ββ((π΄β2)
β 1)) Β· 1)) β (Pell1QRβ((π΄β2) β 1))) |
42 | 1, 15, 31, 40, 41 | syl31anc 1373 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β (π΄ + ((ββ((π΄β2) β 1)) Β· 1)) β
(Pell1QRβ((π΄β2)
β 1))) |
43 | 29, 42 | sseldd 3982 |
. . . 4
β’ (π΄ β
(β€β₯β2) β (π΄ + ((ββ((π΄β2) β 1)) Β· 1)) β
(Pell14QRβ((π΄β2)
β 1))) |
44 | 27, 43 | eqeltrrd 2834 |
. . 3
β’ (π΄ β
(β€β₯β2) β (π΄ + (ββ((π΄β2) β 1))) β
(Pell14QRβ((π΄β2)
β 1))) |
45 | 6, 24 | readdcld 11239 |
. . . 4
β’ (π΄ β
(β€β₯β2) β (1 + (ββ((π΄β2) β 1))) β
β) |
46 | 12, 24 | readdcld 11239 |
. . . 4
β’ (π΄ β
(β€β₯β2) β (π΄ + (ββ((π΄β2) β 1))) β
β) |
47 | 6, 23 | ltaddrpd 13045 |
. . . 4
β’ (π΄ β
(β€β₯β2) β 1 < (1 + (ββ((π΄β2) β
1)))) |
48 | 6, 12, 24, 11 | ltadd1dd 11821 |
. . . 4
β’ (π΄ β
(β€β₯β2) β (1 + (ββ((π΄β2) β 1))) < (π΄ + (ββ((π΄β2) β
1)))) |
49 | 6, 45, 46, 47, 48 | lttrd 11371 |
. . 3
β’ (π΄ β
(β€β₯β2) β 1 < (π΄ + (ββ((π΄β2) β 1)))) |
50 | | pellfundlb 41607 |
. . 3
β’ ((((π΄β2) β 1) β
(β β β»NN) β§ (π΄ + (ββ((π΄β2) β 1))) β
(Pell14QRβ((π΄β2)
β 1)) β§ 1 < (π΄
+ (ββ((π΄β2) β 1)))) β
(PellFundβ((π΄β2)
β 1)) β€ (π΄ +
(ββ((π΄β2)
β 1)))) |
51 | 1, 44, 49, 50 | syl3anc 1371 |
. 2
β’ (π΄ β
(β€β₯β2) β (PellFundβ((π΄β2) β 1)) β€ (π΄ + (ββ((π΄β2) β 1)))) |
52 | 37, 38 | npcand 11571 |
. . . . . 6
β’ (π΄ β
(β€β₯β2) β (((π΄β2) β 1) + 1) = (π΄β2)) |
53 | 52 | fveq2d 6892 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β (ββ(((π΄β2) β 1) + 1)) =
(ββ(π΄β2))) |
54 | 12, 16 | sqrtsqd 15362 |
. . . . 5
β’ (π΄ β
(β€β₯β2) β (ββ(π΄β2)) = π΄) |
55 | 53, 54 | eqtrd 2772 |
. . . 4
β’ (π΄ β
(β€β₯β2) β (ββ(((π΄β2) β 1) + 1)) = π΄) |
56 | 55 | oveq1d 7420 |
. . 3
β’ (π΄ β
(β€β₯β2) β ((ββ(((π΄β2) β 1) + 1)) +
(ββ((π΄β2)
β 1))) = (π΄ +
(ββ((π΄β2)
β 1)))) |
57 | | pellfundge 41605 |
. . . 4
β’ (((π΄β2) β 1) β
(β β β»NN) β ((ββ(((π΄β2) β 1) + 1)) +
(ββ((π΄β2)
β 1))) β€ (PellFundβ((π΄β2) β 1))) |
58 | 1, 57 | syl 17 |
. . 3
β’ (π΄ β
(β€β₯β2) β ((ββ(((π΄β2) β 1) + 1)) +
(ββ((π΄β2)
β 1))) β€ (PellFundβ((π΄β2) β 1))) |
59 | 56, 58 | eqbrtrrd 5171 |
. 2
β’ (π΄ β
(β€β₯β2) β (π΄ + (ββ((π΄β2) β 1))) β€
(PellFundβ((π΄β2)
β 1))) |
60 | | pellfundre 41604 |
. . . 4
β’ (((π΄β2) β 1) β
(β β β»NN) β (PellFundβ((π΄β2) β 1)) β
β) |
61 | 1, 60 | syl 17 |
. . 3
β’ (π΄ β
(β€β₯β2) β (PellFundβ((π΄β2) β 1)) β
β) |
62 | 61, 46 | letri3d 11352 |
. 2
β’ (π΄ β
(β€β₯β2) β ((PellFundβ((π΄β2) β 1)) = (π΄ + (ββ((π΄β2) β 1))) β
((PellFundβ((π΄β2) β 1)) β€ (π΄ + (ββ((π΄β2) β 1))) β§ (π΄ + (ββ((π΄β2) β 1))) β€
(PellFundβ((π΄β2)
β 1))))) |
63 | 51, 59, 62 | mpbir2and 711 |
1
β’ (π΄ β
(β€β₯β2) β (PellFundβ((π΄β2) β 1)) = (π΄ + (ββ((π΄β2) β 1)))) |