{R : Type u_1} →
  {M : Type u_5} →
    [inst : CommSemiring R] →
      [inst_1 : AddCommMonoid M] →
        [inst_2 : Module R M] →
          {I : R →+* R} →
            {B : M →ₛₗ[I] M →ₗ[R] R} →
              {motive : B.IsSymm → Sort u} →
                ((eq : ∀ (x y : M), I ((B x) y) = (B y) x) → motive ⋯) → (t : B.IsSymm) → motive t