pythagtriplem12 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > pythagtriplem12		Structured version Visualization version GIF version

Theorem pythagtriplem12 15369

Description: Lemma for pythagtrip 15377. Calculate the square of 𝑀. (Contributed by Scott Fenton, 17-Apr-2014.) (Revised by Mario Carneiro, 19-Apr-2014.)

**Hypothesis**
Ref	Expression
pythagtriplem11.1	⊢ 𝑀 = (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)

**Assertion**
Ref	Expression
pythagtriplem12	⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝑀↑2) = ((𝐶 + 𝐴) / 2))

**Proof of Theorem pythagtriplem12**
Step	Hyp	Ref	Expression
1		pythagtriplem11.1	. . 3 ⊢ 𝑀 = (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)
2	1	oveq1i 6559	. 2 ⊢ (𝑀↑2) = ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)↑2)
3		nncn 10905	. . . . . . . . 9 ⊢ (𝐶 ∈ ℕ → 𝐶 ∈ ℂ)
4		nncn 10905	. . . . . . . . 9 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℂ)
5		addcl 9897	. . . . . . . . 9 ⊢ ((𝐶 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (𝐶 + 𝐵) ∈ ℂ)
6	3, 4, 5	syl2anr 494	. . . . . . . 8 ⊢ ((𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℂ)
7	6	3adant1 1072	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℂ)
8	7	sqrtcld 14024	. . . . . 6 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (√‘(𝐶 + 𝐵)) ∈ ℂ)
9		subcl 10159	. . . . . . . . 9 ⊢ ((𝐶 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (𝐶 − 𝐵) ∈ ℂ)
10	3, 4, 9	syl2anr 494	. . . . . . . 8 ⊢ ((𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 − 𝐵) ∈ ℂ)
11	10	3adant1 1072	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 − 𝐵) ∈ ℂ)
12	11	sqrtcld 14024	. . . . . 6 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (√‘(𝐶 − 𝐵)) ∈ ℂ)
13	8, 12	addcld 9938	. . . . 5 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → ((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) ∈ ℂ)
14	13	3ad2ant1 1075	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) ∈ ℂ)
15		2cn 10968	. . . . . 6 ⊢ 2 ∈ ℂ
16		2ne0 10990	. . . . . 6 ⊢ 2 ≠ 0
17		sqdiv 12790	. . . . . 6 ⊢ ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)↑2) = ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2↑2)))
18	15, 16, 17	mp3an23 1408	. . . . 5 ⊢ (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) ∈ ℂ → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)↑2) = ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2↑2)))
19	15	sqvali 12805	. . . . . 6 ⊢ (2↑2) = (2 · 2)
20	19	oveq2i 6560	. . . . 5 ⊢ ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2↑2)) = ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2 · 2))
21	18, 20	syl6eq 2660	. . . 4 ⊢ (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) ∈ ℂ → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)↑2) = ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2 · 2)))
22	14, 21	syl 17	. . 3 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)↑2) = ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2 · 2)))
23	8	3ad2ant1 1075	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 + 𝐵)) ∈ ℂ)
24	12	3ad2ant1 1075	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐶 − 𝐵)) ∈ ℂ)
25		binom2 12841	. . . . . . 7 ⊢ (((√‘(𝐶 + 𝐵)) ∈ ℂ ∧ (√‘(𝐶 − 𝐵)) ∈ ℂ) → (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) = ((((√‘(𝐶 + 𝐵))↑2) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) + ((√‘(𝐶 − 𝐵))↑2)))
26	23, 24, 25	syl2anc 691	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) = ((((√‘(𝐶 + 𝐵))↑2) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) + ((√‘(𝐶 − 𝐵))↑2)))
27		nnre 10904	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ ℕ → 𝐶 ∈ ℝ)
28		nnre 10904	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℝ)
29		readdcl 9898	. . . . . . . . . . . 12 ⊢ ((𝐶 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐶 + 𝐵) ∈ ℝ)
30	27, 28, 29	syl2anr 494	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℝ)
31	30	3adant1 1072	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐵) ∈ ℝ)
32	31	3ad2ant1 1075	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 + 𝐵) ∈ ℝ)
33	27	3ad2ant3 1077	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐶 ∈ ℝ)
34	28	3ad2ant2 1076	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐵 ∈ ℝ)
35		nngt0 10926	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ ℕ → 0 < 𝐶)
36	35	3ad2ant3 1077	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 0 < 𝐶)
37		nngt0 10926	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℕ → 0 < 𝐵)
38	37	3ad2ant2 1076	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 0 < 𝐵)
39	33, 34, 36, 38	addgt0d 10481	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 0 < (𝐶 + 𝐵))
40	39	3ad2ant1 1075	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < (𝐶 + 𝐵))
41		0re 9919	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
42		ltle 10005	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ (𝐶 + 𝐵) ∈ ℝ) → (0 < (𝐶 + 𝐵) → 0 ≤ (𝐶 + 𝐵)))
43	41, 42	mpan 702	. . . . . . . . . 10 ⊢ ((𝐶 + 𝐵) ∈ ℝ → (0 < (𝐶 + 𝐵) → 0 ≤ (𝐶 + 𝐵)))
44	32, 40, 43	sylc 63	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 ≤ (𝐶 + 𝐵))
45		resqrtth 13844	. . . . . . . . 9 ⊢ (((𝐶 + 𝐵) ∈ ℝ ∧ 0 ≤ (𝐶 + 𝐵)) → ((√‘(𝐶 + 𝐵))↑2) = (𝐶 + 𝐵))
46	32, 44, 45	syl2anc 691	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 + 𝐵))↑2) = (𝐶 + 𝐵))
47	46	oveq1d 6564	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((√‘(𝐶 + 𝐵))↑2) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) = ((𝐶 + 𝐵) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))))
48		resubcl 10224	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐶 − 𝐵) ∈ ℝ)
49	27, 28, 48	syl2anr 494	. . . . . . . . . 10 ⊢ ((𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 − 𝐵) ∈ ℝ)
50	49	3adant1 1072	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 − 𝐵) ∈ ℝ)
51	50	3ad2ant1 1075	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 − 𝐵) ∈ ℝ)
52		pythagtriplem10 15363	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2)) → 0 < (𝐶 − 𝐵))
53	52	3adant3 1074	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 < (𝐶 − 𝐵))
54		ltle 10005	. . . . . . . . . 10 ⊢ ((0 ∈ ℝ ∧ (𝐶 − 𝐵) ∈ ℝ) → (0 < (𝐶 − 𝐵) → 0 ≤ (𝐶 − 𝐵)))
55	41, 54	mpan 702	. . . . . . . . 9 ⊢ ((𝐶 − 𝐵) ∈ ℝ → (0 < (𝐶 − 𝐵) → 0 ≤ (𝐶 − 𝐵)))
56	51, 53, 55	sylc 63	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 ≤ (𝐶 − 𝐵))
57		resqrtth 13844	. . . . . . . 8 ⊢ (((𝐶 − 𝐵) ∈ ℝ ∧ 0 ≤ (𝐶 − 𝐵)) → ((√‘(𝐶 − 𝐵))↑2) = (𝐶 − 𝐵))
58	51, 56, 57	syl2anc 691	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 − 𝐵))↑2) = (𝐶 − 𝐵))
59	47, 58	oveq12d 6567	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((((√‘(𝐶 + 𝐵))↑2) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) + ((√‘(𝐶 − 𝐵))↑2)) = (((𝐶 + 𝐵) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) + (𝐶 − 𝐵)))
60	7	3ad2ant1 1075	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 + 𝐵) ∈ ℂ)
61	8, 12	mulcld 9939	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))) ∈ ℂ)
62		mulcl 9899	. . . . . . . . . 10 ⊢ ((2 ∈ ℂ ∧ ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))) ∈ ℂ) → (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵)))) ∈ ℂ)
63	15, 61, 62	sylancr 694	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵)))) ∈ ℂ)
64	63	3ad2ant1 1075	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵)))) ∈ ℂ)
65	11	3ad2ant1 1075	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 − 𝐵) ∈ ℂ)
66	60, 64, 65	add32d 10142	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((𝐶 + 𝐵) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) + (𝐶 − 𝐵)) = (((𝐶 + 𝐵) + (𝐶 − 𝐵)) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))))
67	3	3ad2ant3 1077	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐶 ∈ ℂ)
68	67	3ad2ant1 1075	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐶 ∈ ℂ)
69		nncn 10905	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℂ)
70	69	3ad2ant1 1075	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐴 ∈ ℂ)
71	70	3ad2ant1 1075	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐴 ∈ ℂ)
72		adddi 9904	. . . . . . . . . 10 ⊢ ((2 ∈ ℂ ∧ 𝐶 ∈ ℂ ∧ 𝐴 ∈ ℂ) → (2 · (𝐶 + 𝐴)) = ((2 · 𝐶) + (2 · 𝐴)))
73	15, 72	mp3an1 1403	. . . . . . . . 9 ⊢ ((𝐶 ∈ ℂ ∧ 𝐴 ∈ ℂ) → (2 · (𝐶 + 𝐴)) = ((2 · 𝐶) + (2 · 𝐴)))
74	68, 71, 73	syl2anc 691	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 · (𝐶 + 𝐴)) = ((2 · 𝐶) + (2 · 𝐴)))
75	4	3ad2ant2 1076	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐵 ∈ ℂ)
76	75	3ad2ant1 1075	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐵 ∈ ℂ)
77	68, 76, 68	ppncand 10311	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((𝐶 + 𝐵) + (𝐶 − 𝐵)) = (𝐶 + 𝐶))
78	68	2timesd 11152	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 · 𝐶) = (𝐶 + 𝐶))
79	77, 78	eqtr4d 2647	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((𝐶 + 𝐵) + (𝐶 − 𝐵)) = (2 · 𝐶))
80		oveq1 6556	. . . . . . . . . . . . . 14 ⊢ (((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) → (((𝐴↑2) + (𝐵↑2)) − (𝐵↑2)) = ((𝐶↑2) − (𝐵↑2)))
81	80	3ad2ant2 1076	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((𝐴↑2) + (𝐵↑2)) − (𝐵↑2)) = ((𝐶↑2) − (𝐵↑2)))
82	71	sqcld 12868	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐴↑2) ∈ ℂ)
83	76	sqcld 12868	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐵↑2) ∈ ℂ)
84	82, 83	pncand 10272	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((𝐴↑2) + (𝐵↑2)) − (𝐵↑2)) = (𝐴↑2))
85		subsq 12834	. . . . . . . . . . . . . 14 ⊢ ((𝐶 ∈ ℂ ∧ 𝐵 ∈ ℂ) → ((𝐶↑2) − (𝐵↑2)) = ((𝐶 + 𝐵) · (𝐶 − 𝐵)))
86	68, 76, 85	syl2anc 691	. . . . . . . . . . . . 13 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((𝐶↑2) − (𝐵↑2)) = ((𝐶 + 𝐵) · (𝐶 − 𝐵)))
87	81, 84, 86	3eqtr3rd 2653	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((𝐶 + 𝐵) · (𝐶 − 𝐵)) = (𝐴↑2))
88	87	fveq2d 6107	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘((𝐶 + 𝐵) · (𝐶 − 𝐵))) = (√‘(𝐴↑2)))
89	32, 44, 51, 56	sqrtmuld 14011	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘((𝐶 + 𝐵) · (𝐶 − 𝐵))) = ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))
90		nnre 10904	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℝ)
91	90	3ad2ant1 1075	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 𝐴 ∈ ℝ)
92	91	3ad2ant1 1075	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 𝐴 ∈ ℝ)
93		nnnn0 11176	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℕ₀)
94	93	nn0ge0d 11231	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℕ → 0 ≤ 𝐴)
95	94	3ad2ant1 1075	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → 0 ≤ 𝐴)
96	95	3ad2ant1 1075	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → 0 ≤ 𝐴)
97	92, 96	sqrtsqd 14006	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (√‘(𝐴↑2)) = 𝐴)
98	88, 89, 97	3eqtr3d 2652	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))) = 𝐴)
99	98	oveq2d 6565	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵)))) = (2 · 𝐴))
100	79, 99	oveq12d 6567	. . . . . . . 8 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((𝐶 + 𝐵) + (𝐶 − 𝐵)) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) = ((2 · 𝐶) + (2 · 𝐴)))
101	74, 100	eqtr4d 2647	. . . . . . 7 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 · (𝐶 + 𝐴)) = (((𝐶 + 𝐵) + (𝐶 − 𝐵)) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))))
102	66, 101	eqtr4d 2647	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((𝐶 + 𝐵) + (2 · ((√‘(𝐶 + 𝐵)) · (√‘(𝐶 − 𝐵))))) + (𝐶 − 𝐵)) = (2 · (𝐶 + 𝐴)))
103	26, 59, 102	3eqtrd 2648	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) = (2 · (𝐶 + 𝐴)))
104	103	oveq1d 6564	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2 · 2)) = ((2 · (𝐶 + 𝐴)) / (2 · 2)))
105		addcl 9897	. . . . . . . . 9 ⊢ ((𝐶 ∈ ℂ ∧ 𝐴 ∈ ℂ) → (𝐶 + 𝐴) ∈ ℂ)
106	3, 69, 105	syl2anr 494	. . . . . . . 8 ⊢ ((𝐴 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐴) ∈ ℂ)
107	106	3adant2 1073	. . . . . . 7 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) → (𝐶 + 𝐴) ∈ ℂ)
108	107	3ad2ant1 1075	. . . . . 6 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝐶 + 𝐴) ∈ ℂ)
109		mulcl 9899	. . . . . 6 ⊢ ((2 ∈ ℂ ∧ (𝐶 + 𝐴) ∈ ℂ) → (2 · (𝐶 + 𝐴)) ∈ ℂ)
110	15, 108, 109	sylancr 694	. . . . 5 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (2 · (𝐶 + 𝐴)) ∈ ℂ)
111		2cnne0 11119	. . . . . 6 ⊢ (2 ∈ ℂ ∧ 2 ≠ 0)
112		divdiv1 10615	. . . . . 6 ⊢ (((2 · (𝐶 + 𝐴)) ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (2 ∈ ℂ ∧ 2 ≠ 0)) → (((2 · (𝐶 + 𝐴)) / 2) / 2) = ((2 · (𝐶 + 𝐴)) / (2 · 2)))
113	111, 111, 112	mp3an23 1408	. . . . 5 ⊢ ((2 · (𝐶 + 𝐴)) ∈ ℂ → (((2 · (𝐶 + 𝐴)) / 2) / 2) = ((2 · (𝐶 + 𝐴)) / (2 · 2)))
114	110, 113	syl 17	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((2 · (𝐶 + 𝐴)) / 2) / 2) = ((2 · (𝐶 + 𝐴)) / (2 · 2)))
115	104, 114	eqtr4d 2647	. . 3 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵)))↑2) / (2 · 2)) = (((2 · (𝐶 + 𝐴)) / 2) / 2))
116		divcan3 10590	. . . . . 6 ⊢ (((𝐶 + 𝐴) ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → ((2 · (𝐶 + 𝐴)) / 2) = (𝐶 + 𝐴))
117	15, 16, 116	mp3an23 1408	. . . . 5 ⊢ ((𝐶 + 𝐴) ∈ ℂ → ((2 · (𝐶 + 𝐴)) / 2) = (𝐶 + 𝐴))
118	108, 117	syl 17	. . . 4 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((2 · (𝐶 + 𝐴)) / 2) = (𝐶 + 𝐴))
119	118	oveq1d 6564	. . 3 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (((2 · (𝐶 + 𝐴)) / 2) / 2) = ((𝐶 + 𝐴) / 2))
120	22, 115, 119	3eqtrd 2648	. 2 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → ((((√‘(𝐶 + 𝐵)) + (√‘(𝐶 − 𝐵))) / 2)↑2) = ((𝐶 + 𝐴) / 2))
121	2, 120	syl5eq 2656	1 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐶 ∈ ℕ) ∧ ((𝐴↑2) + (𝐵↑2)) = (𝐶↑2) ∧ ((𝐴 gcd 𝐵) = 1 ∧ ¬ 2 ∥ 𝐴)) → (𝑀↑2) = ((𝐶 + 𝐴) / 2))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 383 ∧ w3a 1031 = wceq 1475 ∈ wcel 1977 ≠ wne 2780 class class class wbr 4583 ‘cfv 5804 (class class class)co 6549 ℂcc 9813 ℝcr 9814 0cc0 9815 1c1 9816 + caddc 9818 · cmul 9820 < clt 9953 ≤ cle 9954 − cmin 10145 / cdiv 10563 ℕcn 10897 2c2 10947 ↑cexp 12722 √csqrt 13821 ∥ cdvds 14821 gcd cgcd 15054

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1713 ax-4 1728 ax-5 1827 ax-6 1875 ax-7 1922 ax-8 1979 ax-9 1986 ax-10 2006 ax-11 2021 ax-12 2034 ax-13 2234 ax-ext 2590 ax-sep 4709 ax-nul 4717 ax-pow 4769 ax-pr 4833 ax-un 6847 ax-cnex 9871 ax-resscn 9872 ax-1cn 9873 ax-icn 9874 ax-addcl 9875 ax-addrcl 9876 ax-mulcl 9877 ax-mulrcl 9878 ax-mulcom 9879 ax-addass 9880 ax-mulass 9881 ax-distr 9882 ax-i2m1 9883 ax-1ne0 9884 ax-1rid 9885 ax-rnegex 9886 ax-rrecex 9887 ax-cnre 9888 ax-pre-lttri 9889 ax-pre-lttrn 9890 ax-pre-ltadd 9891 ax-pre-mulgt0 9892 ax-pre-sup 9893

This theorem depends on definitions: df-bi 196 df-or 384 df-an 385 df-3or 1032 df-3an 1033 df-tru 1478 df-ex 1696 df-nf 1701 df-sb 1868 df-eu 2462 df-mo 2463 df-clab 2597 df-cleq 2603 df-clel 2606 df-nfc 2740 df-ne 2782 df-nel 2783 df-ral 2901 df-rex 2902 df-reu 2903 df-rmo 2904 df-rab 2905 df-v 3175 df-sbc 3403 df-csb 3500 df-dif 3543 df-un 3545 df-in 3547 df-ss 3554 df-pss 3556 df-nul 3875 df-if 4037 df-pw 4110 df-sn 4126 df-pr 4128 df-tp 4130 df-op 4132 df-uni 4373 df-iun 4457 df-br 4584 df-opab 4644 df-mpt 4645 df-tr 4681 df-eprel 4949 df-id 4953 df-po 4959 df-so 4960 df-fr 4997 df-we 4999 df-xp 5044 df-rel 5045 df-cnv 5046 df-co 5047 df-dm 5048 df-rn 5049 df-res 5050 df-ima 5051 df-pred 5597 df-ord 5643 df-on 5644 df-lim 5645 df-suc 5646 df-iota 5768 df-fun 5806 df-fn 5807 df-f 5808 df-f1 5809 df-fo 5810 df-f1o 5811 df-fv 5812 df-riota 6511 df-ov 6552 df-oprab 6553 df-mpt2 6554 df-om 6958 df-2nd 7060 df-wrecs 7294 df-recs 7355 df-rdg 7393 df-er 7629 df-en 7842 df-dom 7843 df-sdom 7844 df-sup 8231 df-pnf 9955 df-mnf 9956 df-xr 9957 df-ltxr 9958 df-le 9959 df-sub 10147 df-neg 10148 df-div 10564 df-nn 10898 df-2 10956 df-3 10957 df-n0 11170 df-z 11255 df-uz 11564 df-rp 11709 df-seq 12664 df-exp 12723 df-cj 13687 df-re 13688 df-im 13689 df-sqrt 13823 df-abs 13824

This theorem is referenced by: pythagtriplem15 15372 pythagtriplem17 15374

W3C validator