∀ {R : Type u1} [inst : CommRing R] {M : Type u2} [inst_1 : AddCommGroup M] [inst_2 : Module R M]
  (Q : QuadraticForm R M) (d : Module.Dual R M) (r : R),
  (CliffordAlgebra.contractRight ((algebraMap R (CliffordAlgebra Q)) r)) d = 0