∀ {R : Type u_2} [inst : CommRing R] {M₁ : Type u_3} {M₂ : Type u_1} [inst_1 : AddCommGroup M₁]
  [inst_2 : AddCommGroup M₂] [inst_3 : Module R M₁] [inst_4 : Module R M₂] {Q₁ : QuadraticForm R M₁}
  {Q₂ : QuadraticForm R M₂} (f : Q₁ →qᵢ Q₂) (m : M₁),
  (CliffordAlgebra.ι Q₂) (f.toLinearMap m) * (CliffordAlgebra.ι Q₂) (f.toLinearMap m) =
    (algebraMap R (CliffordAlgebra Q₂)) (Q₁ m)