{R : Type u_1} →
  {M : Type u_2} →
    [inst : CommRing R] →
      [inst_1 : AddCommGroup M] →
        [inst_2 : Module R M] →
          {B : M →ₗ[R] M →ₗ[R] R} →
            {x : M} →
              {motive : B.IsReflective x → Sort u} →
                (t : B.IsReflective x) →
                  ((regular : IsRegular ((B x) x)) → (dvd_two_mul : ∀ (y : M), (B x) x ∣ 2 * (B x) y) → motive ⋯) →
                    motive t