exact h2.trans h1
a b c d : ℝ
v1 : EuclideanSpace ℝ (Fin 2) := ![a, b]
v2 : EuclideanSpace ℝ (Fin 2) := ![c, d]
h2 : a * c + b * d ≤ |a * c + b * d|
h1 : |v1 0 * v2 0 + v1 1 * v2 1| ≤ √(v1 0 ^ 2 + v1 1 ^ 2) * √(v2 0 ^ 2 + v2 1 ^ 2)
⊢ a * c + b * d ≤ √(a ^ 2 + b ^ 2) * √(c ^ 2 + d ^ 2)
no goals