Metamath Proof Explorer


Theorem pythagtriplem6

Description: Lemma for pythagtrip . Calculate ( sqrt( C - B ) ) . (Contributed by Scott Fenton, 18-Apr-2014) (Revised by Mario Carneiro, 19-Apr-2014)

Ref Expression
Assertion pythagtriplem6 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B = C − B gcd A

Proof

Step Hyp Ref Expression
1 nnz ⊢ C ∈ ℕ → C ∈ ℤ
2 1 3ad2ant3 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C ∈ ℤ
3 nnz ⊢ B ∈ ℕ → B ∈ ℤ
4 3 3ad2ant2 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → B ∈ ℤ
5 2 4 zsubcld ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C − B ∈ ℤ
6 5 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B ∈ ℤ
7 pythagtriplem10 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 → 0 < C − B
8 7 3adant3 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → 0 < C − B
9 elnnz ⊢ C − B ∈ ℕ ↔ C − B ∈ ℤ ∧ 0 < C − B
10 6 8 9 sylanbrc ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B ∈ ℕ
11 10 nnnn0d ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B ∈ ℕ 0
12 simp3 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C ∈ ℕ
13 simp2 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → B ∈ ℕ
14 12 13 nnaddcld ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C + B ∈ ℕ
15 14 nnzd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C + B ∈ ℤ
16 15 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C + B ∈ ℤ
17 nnnn0 ⊢ A ∈ ℕ → A ∈ ℕ 0
18 17 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → A ∈ ℕ 0
19 18 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → A ∈ ℕ 0
20 11 16 19 3jca ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B ∈ ℕ 0 ∧ C + B ∈ ℤ ∧ A ∈ ℕ 0
21 pythagtriplem4 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B gcd C + B = 1
22 21 oveq1d ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B gcd C + B gcd A = 1 gcd A
23 nnz ⊢ A ∈ ℕ → A ∈ ℤ
24 23 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → A ∈ ℤ
25 24 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → A ∈ ℤ
26 1gcd ⊢ A ∈ ℤ → 1 gcd A = 1
27 25 26 syl ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → 1 gcd A = 1
28 22 27 eqtrd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B gcd C + B gcd A = 1
29 20 28 jca ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B ∈ ℕ 0 ∧ C + B ∈ ℤ ∧ A ∈ ℕ 0 ∧ C − B gcd C + B gcd A = 1
30 oveq1 ⊢ A 2 + B 2 = C 2 → A 2 + B 2 - B 2 = C 2 − B 2
31 30 3ad2ant2 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → A 2 + B 2 - B 2 = C 2 − B 2
32 24 zcnd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → A ∈ ℂ
33 32 sqcld ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → A 2 ∈ ℂ
34 nncn ⊢ B ∈ ℕ → B ∈ ℂ
35 34 3ad2ant2 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → B ∈ ℂ
36 35 sqcld ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → B 2 ∈ ℂ
37 33 36 pncand ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → A 2 + B 2 - B 2 = A 2
38 37 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → A 2 + B 2 - B 2 = A 2
39 nncn ⊢ C ∈ ℕ → C ∈ ℂ
40 39 3ad2ant3 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C ∈ ℂ
41 subsq ⊢ C ∈ ℂ ∧ B ∈ ℂ → C 2 − B 2 = C + B ⁢ C − B
42 40 35 41 syl2anc ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C 2 − B 2 = C + B ⁢ C − B
43 14 nncnd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C + B ∈ ℂ
44 5 zcnd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C − B ∈ ℂ
45 43 44 mulcomd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C + B ⁢ C − B = C − B ⁢ C + B
46 42 45 eqtrd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ → C 2 − B 2 = C − B ⁢ C + B
47 46 3ad2ant1 ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C 2 − B 2 = C − B ⁢ C + B
48 31 38 47 3eqtr3d ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → A 2 = C − B ⁢ C + B
49 coprimeprodsq ⊢ C − B ∈ ℕ 0 ∧ C + B ∈ ℤ ∧ A ∈ ℕ 0 ∧ C − B gcd C + B gcd A = 1 → A 2 = C − B ⁢ C + B → C − B = C − B gcd A 2
50 29 48 49 sylc ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B = C − B gcd A 2
51 50 fveq2d ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B = C − B gcd A 2
52 6 25 gcdcld ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B gcd A ∈ ℕ 0
53 52 nn0red ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B gcd A ∈ ℝ
54 52 nn0ge0d ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → 0 ≤ C − B gcd A
55 53 54 sqrtsqd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B gcd A 2 = C − B gcd A
56 51 55 eqtrd ⊢ A ∈ ℕ ∧ B ∈ ℕ ∧ C ∈ ℕ ∧ A 2 + B 2 = C 2 ∧ A gcd B = 1 ∧ ¬ 2 ∥ A → C − B = C − B gcd A