rw [hash_comm (4 * a) a]
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
a : M
⊢ ((4 * a) # a) ^ 4 ≤ ((a # (2 * a)) ^ 2) ^ 4
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚫₀ + 𝛀₁
a : M
⊢ (a # (4 * a)) ^ 4 ≤ ((a # (2 * a)) ^ 2) ^ 4