Step | Hyp | Ref
| Expression |
1 | | simp3 1138 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ถ โ
โ) |
2 | 1 | nnzd 12581 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ถ โ
โค) |
3 | | simp2 1137 |
. . . . . . . . 9
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ต โ
โ) |
4 | 3 | nnzd 12581 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ต โ
โค) |
5 | 2, 4 | zsubcld 12667 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ โ ๐ต) โ โค) |
6 | 5 | 3ad2ant1 1133 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ โ ๐ต) โ โค) |
7 | 1, 3 | nnaddcld 12260 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ โ) |
8 | 7 | nnnn0d 12528 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ
โ0) |
9 | 8 | 3ad2ant1 1133 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ + ๐ต) โ
โ0) |
10 | | nnnn0 12475 |
. . . . . . . 8
โข (๐ด โ โ โ ๐ด โ
โ0) |
11 | 10 | 3ad2ant1 1133 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ด โ
โ0) |
12 | 11 | 3ad2ant1 1133 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ๐ด โ
โ0) |
13 | 6, 9, 12 | 3jca 1128 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ โ ๐ต) โ โค โง (๐ถ + ๐ต) โ โ0 โง ๐ด โ
โ0)) |
14 | | pythagtriplem4 16748 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) = 1) |
15 | 14 | oveq1d 7420 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = (1 gcd ๐ด)) |
16 | | nnz 12575 |
. . . . . . . . 9
โข (๐ด โ โ โ ๐ด โ
โค) |
17 | 16 | 3ad2ant1 1133 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ด โ
โค) |
18 | 17 | 3ad2ant1 1133 |
. . . . . . 7
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ๐ด โ โค) |
19 | | 1gcd 16471 |
. . . . . . 7
โข (๐ด โ โค โ (1 gcd
๐ด) = 1) |
20 | 18, 19 | syl 17 |
. . . . . 6
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (1 gcd ๐ด) = 1) |
21 | 15, 20 | eqtrd 2772 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = 1) |
22 | 13, 21 | jca 512 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ถ โ ๐ต) โ โค โง (๐ถ + ๐ต) โ โ0 โง ๐ด โ โ0)
โง (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = 1)) |
23 | | oveq1 7412 |
. . . . . 6
โข (((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = ((๐ถโ2) โ (๐ตโ2))) |
24 | 23 | 3ad2ant2 1134 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = ((๐ถโ2) โ (๐ตโ2))) |
25 | | nncn 12216 |
. . . . . . . . 9
โข (๐ด โ โ โ ๐ด โ
โ) |
26 | 25 | 3ad2ant1 1133 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ด โ
โ) |
27 | 26 | sqcld 14105 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ดโ2) โ
โ) |
28 | 3 | nncnd 12224 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ต โ
โ) |
29 | 28 | sqcld 14105 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ตโ2) โ
โ) |
30 | 27, 29 | pncand 11568 |
. . . . . 6
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = (๐ดโ2)) |
31 | 30 | 3ad2ant1 1133 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (((๐ดโ2) + (๐ตโ2)) โ (๐ตโ2)) = (๐ดโ2)) |
32 | 1 | nncnd 12224 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ๐ถ โ
โ) |
33 | | subsq 14170 |
. . . . . . . 8
โข ((๐ถ โ โ โง ๐ต โ โ) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ + ๐ต) ยท (๐ถ โ ๐ต))) |
34 | 32, 28, 33 | syl2anc 584 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ + ๐ต) ยท (๐ถ โ ๐ต))) |
35 | 7 | nncnd 12224 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ โ) |
36 | 5 | zcnd 12663 |
. . . . . . . 8
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ โ ๐ต) โ โ) |
37 | 35, 36 | mulcomd 11231 |
. . . . . . 7
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ถ + ๐ต) ยท (๐ถ โ ๐ต)) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
38 | 34, 37 | eqtrd 2772 |
. . . . . 6
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
39 | 38 | 3ad2ant1 1133 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถโ2) โ (๐ตโ2)) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
40 | 24, 31, 39 | 3eqtr3d 2780 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ดโ2) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต))) |
41 | | coprimeprodsq2 16738 |
. . . 4
โข ((((๐ถ โ ๐ต) โ โค โง (๐ถ + ๐ต) โ โ0 โง ๐ด โ โ0)
โง (((๐ถ โ ๐ต) gcd (๐ถ + ๐ต)) gcd ๐ด) = 1) โ ((๐ดโ2) = ((๐ถ โ ๐ต) ยท (๐ถ + ๐ต)) โ (๐ถ + ๐ต) = (((๐ถ + ๐ต) gcd ๐ด)โ2))) |
42 | 22, 40, 41 | sylc 65 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ + ๐ต) = (((๐ถ + ๐ต) gcd ๐ด)โ2)) |
43 | 42 | fveq2d 6892 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (โโ(๐ถ + ๐ต)) = (โโ(((๐ถ + ๐ต) gcd ๐ด)โ2))) |
44 | 7 | nnzd 12581 |
. . . . . 6
โข ((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โ (๐ถ + ๐ต) โ โค) |
45 | 44 | 3ad2ant1 1133 |
. . . . 5
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (๐ถ + ๐ต) โ โค) |
46 | 45, 18 | gcdcld 16445 |
. . . 4
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ + ๐ต) gcd ๐ด) โ
โ0) |
47 | 46 | nn0red 12529 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ ((๐ถ + ๐ต) gcd ๐ด) โ โ) |
48 | 46 | nn0ge0d 12531 |
. . 3
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ 0 โค ((๐ถ + ๐ต) gcd ๐ด)) |
49 | 47, 48 | sqrtsqd 15362 |
. 2
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ
(โโ(((๐ถ + ๐ต) gcd ๐ด)โ2)) = ((๐ถ + ๐ต) gcd ๐ด)) |
50 | 43, 49 | eqtrd 2772 |
1
โข (((๐ด โ โ โง ๐ต โ โ โง ๐ถ โ โ) โง ((๐ดโ2) + (๐ตโ2)) = (๐ถโ2) โง ((๐ด gcd ๐ต) = 1 โง ยฌ 2 โฅ ๐ด)) โ (โโ(๐ถ + ๐ต)) = ((๐ถ + ๐ต) gcd ๐ด)) |