Step | Hyp | Ref
| Expression |
1 | | nnz 9271 |
. . . . . . . . . . 11
โข (๐ถ โ โ โ ๐ถ โ
โค) |
2 | 1 | 3ad2ant3 1020 |
. . . . . . . . . 10
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ถ โ
โค) |
3 | | nnz 9271 |
. . . . . . . . . . 11
โข (๐ต โ โ โ ๐ต โ
โค) |
4 | 3 | 3ad2ant2 1019 |
. . . . . . . . . 10
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ต โ
โค) |
5 | 2, 4 | zsubcld 9379 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ โ ๐ต) โ โค) |
6 | 5 | 3ad2ant1 1018 |
. . . . . . . 8
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ โ ๐ต) โ โค) |
7 | | pythagtriplem10 12268 |
. . . . . . . . 9
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2)) โ 0 < (๐ถ โ ๐ต)) |
8 | 7 | 3adant3 1017 |
. . . . . . . 8
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ 0 < (๐ถ โ ๐ต)) |
9 | | elnnz 9262 |
. . . . . . . 8
โข ((๐ถ โ ๐ต) โ โ โ ((๐ถ โ ๐ต) โ โค โง 0 < (๐ถ โ ๐ต))) |
10 | 6, 8, 9 | sylanbrc 417 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ โ ๐ต) โ โ) |
11 | 10 | nnnn0d 9228 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ โ ๐ต) โ
โ0) |
12 | | simp3 999 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ถ โ
โ) |
13 | | simp2 998 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ต โ
โ) |
14 | 12, 13 | nnaddcld 8966 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ โ) |
15 | 14 | nnzd 9373 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ โค) |
16 | 15 | 3ad2ant1 1018 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ + ๐ต) โ โค) |
17 | | nnnn0 9182 |
. . . . . . . 8
โข (๐ด โ โ โ ๐ด โ
โ0) |
18 | 17 | 3ad2ant1 1018 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ด โ
โ0) |
19 | 18 | 3ad2ant1 1018 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ๐ด โ
โ0) |
20 | 11, 16, 19 | 3jca 1177 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ โ ๐ต) โ โ0 โง (๐ถ + ๐ต) โ โค โง ๐ด โ
โ0)) |
21 | | pythagtriplem4 12267 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) = 1) |
22 | 21 | oveq1d 5889 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = (1 gcd ๐ด)) |
23 | | nnz 9271 |
. . . . . . . . 9
โข (๐ด โ โ โ ๐ด โ
โค) |
24 | 23 | 3ad2ant1 1018 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ด โ
โค) |
25 | 24 | 3ad2ant1 1018 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ๐ด โ โค) |
26 | | 1gcd 11992 |
. . . . . . 7
โข (๐ด โ โค โ (1 gcd
๐ด) = 1) |
27 | 25, 26 | syl 14 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (1 gcd ๐ด) = 1) |
28 | 22, 27 | eqtrd 2210 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = 1) |
29 | 20, 28 | jca 306 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ถ โ ๐ต) โ โ0 โง (๐ถ + ๐ต) โ โค โง ๐ด โ โ0) โง (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = 1)) |
30 | | oveq1 5881 |
. . . . . 6
โข (((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = ((๐ถโ2) โ (๐ตโ2))) |
31 | 30 | 3ad2ant2 1019 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = ((๐ถโ2) โ (๐ตโ2))) |
32 | 24 | zcnd 9375 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ด โ
โ) |
33 | 32 | sqcld 10651 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ดโ2) โ
โ) |
34 | | nncn 8926 |
. . . . . . . . 9
โข (๐ต โ โ โ ๐ต โ
โ) |
35 | 34 | 3ad2ant2 1019 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ต โ
โ) |
36 | 35 | sqcld 10651 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ตโ2) โ
โ) |
37 | 33, 36 | pncand 8268 |
. . . . . 6
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = (๐ดโ2)) |
38 | 37 | 3ad2ant1 1018 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = (๐ดโ2)) |
39 | | nncn 8926 |
. . . . . . . . 9
โข (๐ถ โ โ โ ๐ถ โ
โ) |
40 | 39 | 3ad2ant3 1020 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ถ โ
โ) |
41 | | subsq 10626 |
. . . . . . . 8
โข ((๐ถ โ โ โง ๐ต โ โ) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ + ๐ต) ยท (๐ถ โ ๐ต))) |
42 | 40, 35, 41 | syl2anc 411 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ + ๐ต) ยท (๐ถ โ ๐ต))) |
43 | 14 | nncnd 8932 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ โ) |
44 | 5 | zcnd 9375 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ โ ๐ต) โ โ) |
45 | 43, 44 | mulcomd 7978 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ถ + ๐ต) ยท (๐ถ โ ๐ต)) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
46 | 42, 45 | eqtrd 2210 |
. . . . . 6
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
47 | 46 | 3ad2ant1 1018 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
48 | 31, 38, 47 | 3eqtr3d 2218 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ดโ2) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
49 | | coprimeprodsq 12256 |
. . . 4
โข ((((๐ถ โ ๐ต) โ โ0 โง (๐ถ + ๐ต) โ โค โง ๐ด โ โ0) โง (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = 1) โ ((๐ดโ2) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต)) โ (๐ถ โ ๐ต) = (((๐ถ โ ๐ต) gcd ๐ด)โ2))) |
50 | 29, 48, 49 | sylc 62 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ โ ๐ต) = (((๐ถ โ ๐ต) gcd ๐ด)โ2)) |
51 | 50 | fveq2d 5519 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (โโ(๐ถ โ ๐ต)) = (โโ(((๐ถ โ ๐ต) gcd ๐ด)โ2))) |
52 | 6, 25 | gcdcld 11968 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ โ ๐ต) gcd ๐ด) โ
โ0) |
53 | 52 | nn0red 9229 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ โ ๐ต) gcd ๐ด) โ โ) |
54 | 52 | nn0ge0d 9231 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ 0 โค ((๐ถ โ ๐ต) gcd ๐ด)) |
55 | 53, 54 | sqrtsqd 11173 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ
(โโ(((๐ถ โ
๐ต) gcd ๐ด)โ2)) = ((๐ถ โ ๐ต) gcd ๐ด)) |
56 | 51, 55 | eqtrd 2210 |
1
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (โโ(๐ถ โ ๐ต)) = ((๐ถ โ ๐ต) gcd ๐ด)) |