Theorem pythagtriplem13 12388

Description: Lemma for pythagtrip 12395. Show that 𝑁 (which will eventually be closely related to the 𝑛 in the final statement) is a natural. (Contributed by Scott Fenton, 17-Apr-2014.) (Revised by Mario Carneiro, 19-Apr-2014.)

Hypothesis

Ref	Expression
pythagtriplem13.1	⊢ 𝑁 = (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2)

Assertion

Ref	Expression
pythagtriplem13	⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝑁 ∈ ℕ)

Proof of Theorem pythagtriplem13

Step	Hyp	Ref	Expression
1		pythagtriplem13.1	. 2 ⊢ 𝑁 = (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2)
2		pythagtriplem9 12385	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 + 𝐵)) ∈ ℕ)
3	2	nnzd 9424	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 + 𝐵)) ∈ ℤ)
4		simp3r 1028	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ¬ 2 ∥ 𝐴)
5		2z 9331	. . . . . . . . . 10 ⊢ 2 ∈ ℤ
6		simp3 1001	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐶 ∈ ℕ)
7		simp2 1000	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐵 ∈ ℕ)
8	6, 7	nnaddcld 9016	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℕ)
9	8	nnzd 9424	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℤ)
10	9	3ad2ant1 1020	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 + 𝐵) ∈ ℤ)
11		nnz 9322	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℤ)
12	11	3ad2ant1 1020	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐴 ∈ ℤ)
13	12	3ad2ant1 1020	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐴 ∈ ℤ)
14		dvdsgcdb 12124	. . . . . . . . . 10 ⊢ ((2 ∈ ℤ ∧ (𝐶 + 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ) → ((2 ∥ (𝐶 + 𝐵) ∧ 2 ∥ 𝐴) ↔ 2 ∥ ((𝐶 + 𝐵) gcd 𝐴)))
15	5, 10, 13, 14	mp3an2i 1353	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((2 ∥ (𝐶 + 𝐵) ∧ 2 ∥ 𝐴) ↔ 2 ∥ ((𝐶 + 𝐵) gcd 𝐴)))
16	15	biimpar 297	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) ∧ 2 ∥ ((𝐶 + 𝐵) gcd 𝐴)) → (2 ∥ (𝐶 + 𝐵) ∧ 2 ∥ 𝐴))
17	16	simprd 114	. . . . . . 7 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) ∧ 2 ∥ ((𝐶 + 𝐵) gcd 𝐴)) → 2 ∥ 𝐴)
18	4, 17	mtand 666	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ¬ 2 ∥ ((𝐶 + 𝐵) gcd 𝐴))
19		pythagtriplem7 12383	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 + 𝐵)) = ((𝐶 + 𝐵) gcd 𝐴))
20	19	breq2d 4037	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 ∥ (√‘(𝐶 + 𝐵)) ↔ 2 ∥ ((𝐶 + 𝐵) gcd 𝐴)))
21	18, 20	mtbird 674	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ¬ 2 ∥ (√‘(𝐶 + 𝐵)))
22		pythagtriplem8 12384	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 − 𝐵)) ∈ ℕ)
23	22	nnzd 9424	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 − 𝐵)) ∈ ℤ)
24		nnz 9322	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ ℕ → 𝐶 ∈ ℤ)
25	24	3ad2ant3 1022	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐶 ∈ ℤ)
26		nnz 9322	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℤ)
27	26	3ad2ant2 1021	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐵 ∈ ℤ)
28	25, 27	zsubcld 9430	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 − 𝐵) ∈ ℤ)
29	28	3ad2ant1 1020	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 − 𝐵) ∈ ℤ)
30		dvdsgcdb 12124	. . . . . . . . . 10 ⊢ ((2 ∈ ℤ ∧ (𝐶 − 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ) → ((2 ∥ (𝐶 − 𝐵) ∧ 2 ∥ 𝐴) ↔ 2 ∥ ((𝐶 − 𝐵) gcd 𝐴)))
31	5, 29, 13, 30	mp3an2i 1353	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((2 ∥ (𝐶 − 𝐵) ∧ 2 ∥ 𝐴) ↔ 2 ∥ ((𝐶 − 𝐵) gcd 𝐴)))
32	31	biimpar 297	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) ∧ 2 ∥ ((𝐶 − 𝐵) gcd 𝐴)) → (2 ∥ (𝐶 − 𝐵) ∧ 2 ∥ 𝐴))
33	32	simprd 114	. . . . . . 7 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) ∧ 2 ∥ ((𝐶 − 𝐵) gcd 𝐴)) → 2 ∥ 𝐴)
34	4, 33	mtand 666	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ¬ 2 ∥ ((𝐶 − 𝐵) gcd 𝐴))
35		pythagtriplem6 12382	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 − 𝐵)) = ((𝐶 − 𝐵) gcd 𝐴))
36	35	breq2d 4037	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 ∥ (√‘(𝐶 − 𝐵)) ↔ 2 ∥ ((𝐶 − 𝐵) gcd 𝐴)))
37	34, 36	mtbird 674	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ¬ 2 ∥ (√‘(𝐶 − 𝐵)))
38		omoe 12011	. . . . 5 ⊢ ((((√‘(𝐶 + 𝐵)) ∈ ℤ ∧ ¬ 2 ∥ (√‘(𝐶 + 𝐵))) ∧ ((√‘(𝐶 − 𝐵)) ∈ ℤ ∧ ¬ 2 ∥ (√‘(𝐶 − 𝐵)))) → 2 ∥ ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))))
39	3, 21, 23, 37, 38	syl22anc 1250	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 2 ∥ ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))))
40	28	zred 9425	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 − 𝐵) ∈ ℝ)
41	40	3ad2ant1 1020	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 − 𝐵) ∈ ℝ)
42		simp13 1031	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐶 ∈ ℕ)
43	42	nnred 8981	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐶 ∈ ℝ)
44	8	nnred 8981	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℝ)
45	44	3ad2ant1 1020	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 + 𝐵) ∈ ℝ)
46		nnrp 9715	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℝ+)
47	46	3ad2ant2 1021	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐵 ∈ ℝ+)
48	47	3ad2ant1 1020	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐵 ∈ ℝ+)
49	43, 48	ltsubrpd 9781	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 − 𝐵) < 𝐶)
50		nngt0 8993	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ ℕ → 0 < 𝐵)
51	50	3ad2ant2 1021	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 0 < 𝐵)
52	51	3ad2ant1 1020	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < 𝐵)
53		simp12 1030	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐵 ∈ ℕ)
54	53	nnred 8981	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐵 ∈ ℝ)
55	54, 43	ltaddposd 8534	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (0 < 𝐵 ↔ 𝐶 < (𝐶 + 𝐵)))
56	52, 55	mpbid 147	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐶 < (𝐶 + 𝐵))
57	41, 43, 45, 49, 56	lttrd 8131	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 − 𝐵) < (𝐶 + 𝐵))
58		pythagtriplem10 12381	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2)) → 0 < (𝐶 − 𝐵))
59	58	3adant3 1019	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < (𝐶 − 𝐵))
60		0re 8005	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
61		ltle 8093	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ (𝐶 − 𝐵) ∈ ℝ) → (0 < (𝐶 − 𝐵) → 0 ≤ (𝐶 − 𝐵)))
62	60, 61	mpan 424	. . . . . . . . . 10 ⊢ ((𝐶 − 𝐵) ∈ ℝ → (0 < (𝐶 − 𝐵) → 0 ≤ (𝐶 − 𝐵)))
63	41, 59, 62	sylc 62	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 ≤ (𝐶 − 𝐵))
64		nngt0 8993	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ ℕ → 0 < 𝐶)
65	64	3ad2ant3 1022	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 0 < 𝐶)
66	65	3ad2ant1 1020	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < 𝐶)
67	43, 54, 66, 52	addgt0d 8526	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < (𝐶 + 𝐵))
68		ltle 8093	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ (𝐶 + 𝐵) ∈ ℝ) → (0 < (𝐶 + 𝐵) → 0 ≤ (𝐶 + 𝐵)))
69	60, 68	mpan 424	. . . . . . . . . 10 ⊢ ((𝐶 + 𝐵) ∈ ℝ → (0 < (𝐶 + 𝐵) → 0 ≤ (𝐶 + 𝐵)))
70	45, 67, 69	sylc 62	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 ≤ (𝐶 + 𝐵))
71	41, 63, 45, 70	sqrtltd 11290	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((𝐶 − 𝐵) < (𝐶 + 𝐵) ↔ (√‘(𝐶 − 𝐵)) < (√‘(𝐶 + 𝐵))))
72	57, 71	mpbid 147	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 − 𝐵)) < (√‘(𝐶 + 𝐵)))
73		nnsub 9007	. . . . . . . 8 ⊢ (((√‘(𝐶 − 𝐵)) ∈ ℕ ∧ (√‘(𝐶 + 𝐵)) ∈ ℕ) → ((√‘(𝐶 − 𝐵)) < (√‘(𝐶 + 𝐵)) ↔ ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℕ))
74	22, 2, 73	syl2anc 411	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 − 𝐵)) < (√‘(𝐶 + 𝐵)) ↔ ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℕ))
75	72, 74	mpbid 147	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℕ)
76	75	nnzd 9424	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℤ)
77		evend2 12004	. . . . 5 ⊢ (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℤ → (2 ∥ ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ↔ (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2) ∈ ℤ))
78	76, 77	syl 14	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 ∥ ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ↔ (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2) ∈ ℤ))
79	39, 78	mpbid 147	. . 3 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2) ∈ ℤ)
80	75	nngt0d 9012	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))))
81	75	nnred 8981	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℝ)
82		halfpos2 9198	. . . . 5 ⊢ (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ∈ ℝ → (0 < ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ↔ 0 < (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2)))
83	81, 82	syl 14	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (0 < ((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) ↔ 0 < (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2)))
84	80, 83	mpbid 147	. . 3 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2))
85		elnnz 9313	. . 3 ⊢ ((((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2) ∈ ℕ ↔ ((((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2) ∈ ℤ ∧ 0 < (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2)))
86	79, 84, 85	sylanbrc 417	. 2 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((√‘(𝐶 + 𝐵)) − (√‘(𝐶 − 𝐵))) / 2) ∈ ℕ)
87	1, 86	eqeltrid 2276	1 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝑁 ∈ ℕ)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∧ w3a 980   = wceq 1364   ∈ wcel 2160   class class class wbr 4025  ‘cfv 5242  (class class class)co 5906  ℝcr 7857  0cc0 7858  1c1 7859   + caddc 7861   < clt 8040   ≤ cle 8041   − cmin 8176   / cdiv 8677  ℕcn 8968  2c2 9019  ℤcz 9303  ℝ⁺crp 9705  ↑cexp 10583  √csqrt 11114   ∥ cdvds 11904   gcd cgcd 12053

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-coll 4140  ax-sep 4143  ax-nul 4151  ax-pow 4199  ax-pr 4234  ax-un 4458  ax-setind 4561  ax-iinf 4612  ax-cnex 7949  ax-resscn 7950  ax-1cn 7951  ax-1re 7952  ax-icn 7953  ax-addcl 7954  ax-addrcl 7955  ax-mulcl 7956  ax-mulrcl 7957  ax-addcom 7958  ax-mulcom 7959  ax-addass 7960  ax-mulass 7961  ax-distr 7962  ax-i2m1 7963  ax-0lt1 7964  ax-1rid 7965  ax-0id 7966  ax-rnegex 7967  ax-precex 7968  ax-cnre 7969  ax-pre-ltirr 7970  ax-pre-ltwlin 7971  ax-pre-lttrn 7972  ax-pre-apti 7973  ax-pre-ltadd 7974  ax-pre-mulgt0 7975  ax-pre-mulext 7976  ax-arch 7977  ax-caucvg 7978

This theorem depends on definitions:  df-bi 117  df-stab 832  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-xor 1387  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-nel 2456  df-ral 2473  df-rex 2474  df-reu 2475  df-rmo 2476  df-rab 2477  df-v 2758  df-sbc 2982  df-csb 3077  df-dif 3151  df-un 3153  df-in 3155  df-ss 3162  df-nul 3443  df-if 3554  df-pw 3599  df-sn 3620  df-pr 3621  df-op 3623  df-uni 3832  df-int 3867  df-iun 3910  df-br 4026  df-opab 4087  df-mpt 4088  df-tr 4124  df-id 4318  df-po 4321  df-iso 4322  df-iord 4391  df-on 4393  df-ilim 4394  df-suc 4396  df-iom 4615  df-xp 4657  df-rel 4658  df-cnv 4659  df-co 4660  df-dm 4661  df-rn 4662  df-res 4663  df-ima 4664  df-iota 5203  df-fun 5244  df-fn 5245  df-f 5246  df-f1 5247  df-fo 5248  df-f1o 5249  df-fv 5250  df-riota 5861  df-ov 5909  df-oprab 5910  df-mpo 5911  df-1st 6180  df-2nd 6181  df-recs 6345  df-frec 6431  df-1o 6456  df-2o 6457  df-er 6574  df-en 6782  df-sup 7029  df-pnf 8042  df-mnf 8043  df-xr 8044  df-ltxr 8045  df-le 8046  df-sub 8178  df-neg 8179  df-reap 8580  df-ap 8587  df-div 8678  df-inn 8969  df-2 9027  df-3 9028  df-4 9029  df-n0 9227  df-z 9304  df-uz 9579  df-q 9671  df-rp 9706  df-fz 10061  df-fzo 10195  df-fl 10325  df-mod 10380  df-seqfrec 10505  df-exp 10584  df-cj 10960  df-re 10961  df-im 10962  df-rsqrt 11116  df-abs 11117  df-dvds 11905  df-gcd 12054  df-prm 12220

This theorem is referenced by:  pythagtriplem18  12393