Step | Hyp | Ref
| Expression |
1 | | elpell14qr 41572 |
. . 3
โข (๐ท โ (โ โ
โปNN) โ (๐ด โ (Pell14QRโ๐ท) โ (๐ด โ โ โง โ๐ โ โ0
โ๐ โ โค
(๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1)))) |
2 | | 0cnd 11203 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 โ
โ) |
3 | | eldifi 4125 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ท โ (โ โ
โปNN) โ ๐ท โ โ) |
4 | 3 | ad3antrrr 728 |
. . . . . . . . . . . . . . . . . 18
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ท โ โ) |
5 | 4 | nnred 12223 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ท โ โ) |
6 | 4 | nnnn0d 12528 |
. . . . . . . . . . . . . . . . . 18
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ท โ
โ0) |
7 | 6 | nn0ge0d 12531 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 โค ๐ท) |
8 | 5, 7 | resqrtcld 15360 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (โโ๐ท) โ
โ) |
9 | | zre 12558 |
. . . . . . . . . . . . . . . . . 18
โข (๐ โ โค โ ๐ โ
โ) |
10 | 9 | adantl 482 |
. . . . . . . . . . . . . . . . 17
โข ((๐ โ โ0
โง ๐ โ โค)
โ ๐ โ
โ) |
11 | 10 | ad2antlr 725 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ โ โ) |
12 | 8, 11 | remulcld 11240 |
. . . . . . . . . . . . . . 15
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ((โโ๐ท) ยท ๐) โ โ) |
13 | 12 | recnd 11238 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ((โโ๐ท) ยท ๐) โ โ) |
14 | 2, 13 | abssubd 15396 |
. . . . . . . . . . . . 13
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (absโ(0 โ
((โโ๐ท) ยท
๐))) =
(absโ(((โโ๐ท) ยท ๐) โ 0))) |
15 | 13 | subid1d 11556 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (((โโ๐ท) ยท ๐) โ 0) = ((โโ๐ท) ยท ๐)) |
16 | 15 | fveq2d 6892 |
. . . . . . . . . . . . 13
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
(absโ(((โโ๐ท) ยท ๐) โ 0)) =
(absโ((โโ๐ท) ยท ๐))) |
17 | 14, 16 | eqtrd 2772 |
. . . . . . . . . . . 12
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (absโ(0 โ
((โโ๐ท) ยท
๐))) =
(absโ((โโ๐ท) ยท ๐))) |
18 | | absresq 15245 |
. . . . . . . . . . . . . . . 16
โข
(((โโ๐ท)
ยท ๐) โ โ
โ ((absโ((โโ๐ท) ยท ๐))โ2) = (((โโ๐ท) ยท ๐)โ2)) |
19 | 12, 18 | syl 17 |
. . . . . . . . . . . . . . 15
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
((absโ((โโ๐ท) ยท ๐))โ2) = (((โโ๐ท) ยท ๐)โ2)) |
20 | 5 | recnd 11238 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ท โ โ) |
21 | 20 | sqrtcld 15380 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (โโ๐ท) โ
โ) |
22 | 10 | recnd 11238 |
. . . . . . . . . . . . . . . . 17
โข ((๐ โ โ0
โง ๐ โ โค)
โ ๐ โ
โ) |
23 | 22 | ad2antlr 725 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ โ โ) |
24 | 21, 23 | sqmuld 14119 |
. . . . . . . . . . . . . . 15
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (((โโ๐ท) ยท ๐)โ2) = (((โโ๐ท)โ2) ยท (๐โ2))) |
25 | 20 | sqsqrtd 15382 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ((โโ๐ท)โ2) = ๐ท) |
26 | 25 | oveq1d 7420 |
. . . . . . . . . . . . . . 15
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (((โโ๐ท)โ2) ยท (๐โ2)) = (๐ท ยท (๐โ2))) |
27 | 19, 24, 26 | 3eqtrd 2776 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
((absโ((โโ๐ท) ยท ๐))โ2) = (๐ท ยท (๐โ2))) |
28 | | 0lt1 11732 |
. . . . . . . . . . . . . . . 16
โข 0 <
1 |
29 | | simpr 485 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) |
30 | 28, 29 | breqtrrid 5185 |
. . . . . . . . . . . . . . 15
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 < ((๐โ2) โ (๐ท ยท (๐โ2)))) |
31 | 11 | resqcld 14086 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (๐โ2) โ โ) |
32 | 5, 31 | remulcld 11240 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (๐ท ยท (๐โ2)) โ โ) |
33 | | nn0re 12477 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ โ โ0
โ ๐ โ
โ) |
34 | 33 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ โ โ0
โง ๐ โ โค)
โ ๐ โ
โ) |
35 | 34 | ad2antlr 725 |
. . . . . . . . . . . . . . . . 17
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ โ โ) |
36 | 35 | resqcld 14086 |
. . . . . . . . . . . . . . . 16
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (๐โ2) โ โ) |
37 | 32, 36 | posdifd 11797 |
. . . . . . . . . . . . . . 15
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ((๐ท ยท (๐โ2)) < (๐โ2) โ 0 < ((๐โ2) โ (๐ท ยท (๐โ2))))) |
38 | 30, 37 | mpbird 256 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (๐ท ยท (๐โ2)) < (๐โ2)) |
39 | 27, 38 | eqbrtrd 5169 |
. . . . . . . . . . . . 13
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
((absโ((โโ๐ท) ยท ๐))โ2) < (๐โ2)) |
40 | 13 | abscld 15379 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
(absโ((โโ๐ท) ยท ๐)) โ โ) |
41 | 13 | absge0d 15387 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 โค
(absโ((โโ๐ท) ยท ๐))) |
42 | | nn0ge0 12493 |
. . . . . . . . . . . . . . . 16
โข (๐ โ โ0
โ 0 โค ๐) |
43 | 42 | adantr 481 |
. . . . . . . . . . . . . . 15
โข ((๐ โ โ0
โง ๐ โ โค)
โ 0 โค ๐) |
44 | 43 | ad2antlr 725 |
. . . . . . . . . . . . . 14
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 โค ๐) |
45 | 40, 35, 41, 44 | lt2sqd 14215 |
. . . . . . . . . . . . 13
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
((absโ((โโ๐ท) ยท ๐)) < ๐ โ ((absโ((โโ๐ท) ยท ๐))โ2) < (๐โ2))) |
46 | 39, 45 | mpbird 256 |
. . . . . . . . . . . 12
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
(absโ((โโ๐ท) ยท ๐)) < ๐) |
47 | 17, 46 | eqbrtrd 5169 |
. . . . . . . . . . 11
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (absโ(0 โ
((โโ๐ท) ยท
๐))) < ๐) |
48 | | 0red 11213 |
. . . . . . . . . . . 12
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 โ
โ) |
49 | 48, 12, 35 | absdifltd 15376 |
. . . . . . . . . . 11
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ((absโ(0 โ
((โโ๐ท) ยท
๐))) < ๐ โ ((((โโ๐ท) ยท ๐) โ ๐) < 0 โง 0 < (((โโ๐ท) ยท ๐) + ๐)))) |
50 | 47, 49 | mpbid 231 |
. . . . . . . . . 10
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ
((((โโ๐ท)
ยท ๐) โ ๐) < 0 โง 0 <
(((โโ๐ท)
ยท ๐) + ๐))) |
51 | 50 | simprd 496 |
. . . . . . . . 9
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 <
(((โโ๐ท)
ยท ๐) + ๐)) |
52 | | nn0cn 12478 |
. . . . . . . . . . . 12
โข (๐ โ โ0
โ ๐ โ
โ) |
53 | 52 | adantr 481 |
. . . . . . . . . . 11
โข ((๐ โ โ0
โง ๐ โ โค)
โ ๐ โ
โ) |
54 | 53 | ad2antlr 725 |
. . . . . . . . . 10
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ ๐ โ โ) |
55 | 54, 13 | addcomd 11412 |
. . . . . . . . 9
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ (๐ + ((โโ๐ท) ยท ๐)) = (((โโ๐ท) ยท ๐) + ๐)) |
56 | 51, 55 | breqtrrd 5175 |
. . . . . . . 8
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 < (๐ + ((โโ๐ท) ยท ๐))) |
57 | 56 | adantrl 714 |
. . . . . . 7
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง (๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1)) โ 0 < (๐ + ((โโ๐ท) ยท ๐))) |
58 | | simprl 769 |
. . . . . . 7
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง (๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1)) โ ๐ด = (๐ + ((โโ๐ท) ยท ๐))) |
59 | 57, 58 | breqtrrd 5175 |
. . . . . 6
โข ((((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โง (๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1)) โ 0 < ๐ด) |
60 | 59 | ex 413 |
. . . . 5
โข (((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โง (๐ โ โ0 โง ๐ โ โค)) โ ((๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 < ๐ด)) |
61 | 60 | rexlimdvva 3211 |
. . . 4
โข ((๐ท โ (โ โ
โปNN) โง ๐ด โ โ) โ (โ๐ โ โ0
โ๐ โ โค
(๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1) โ 0 < ๐ด)) |
62 | 61 | expimpd 454 |
. . 3
โข (๐ท โ (โ โ
โปNN) โ ((๐ด โ โ โง โ๐ โ โ0
โ๐ โ โค
(๐ด = (๐ + ((โโ๐ท) ยท ๐)) โง ((๐โ2) โ (๐ท ยท (๐โ2))) = 1)) โ 0 < ๐ด)) |
63 | 1, 62 | sylbid 239 |
. 2
โข (๐ท โ (โ โ
โปNN) โ (๐ด โ (Pell14QRโ๐ท) โ 0 < ๐ด)) |
64 | 63 | imp 407 |
1
โข ((๐ท โ (โ โ
โปNN) โง ๐ด โ (Pell14QRโ๐ท)) โ 0 < ๐ด) |