Metamath Proof Explorer


Theorem sqrtmsq

Description: Square root of square. (Contributed by NM, 2-Aug-1999) (Revised by Mario Carneiro, 29-May-2016)

Ref Expression
Assertion sqrtmsq ⊢ A ∈ ℝ ∧ 0 ≤ A → A ⁢ A = A

Proof

Step Hyp Ref Expression
1 simpl ⊢ A ∈ ℝ ∧ 0 ≤ A → A ∈ ℝ
2 1 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A → A ∈ ℂ
3 2 sqvald ⊢ A ∈ ℝ ∧ 0 ≤ A → A 2 = A ⁢ A
4 3 fveq2d ⊢ A ∈ ℝ ∧ 0 ≤ A → A 2 = A ⁢ A
5 sqrtsq ⊢ A ∈ ℝ ∧ 0 ≤ A → A 2 = A
6 4 5 eqtr3d ⊢ A ∈ ℝ ∧ 0 ≤ A → A ⁢ A = A