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