∀ {R : Type u_1} {M₁ : Type u_2} [inst : CommSemiring R] [inst_1 : AddCommMonoid M₁] [inst_2 : Module R M₁]
  (f m : Module.Dual R M₁) (motive : (∃ a, a • f = m) → Prop) (x : ∃ a, a • f = m),
  (∀ (r : R) (hr : r • f = m), motive ⋯) → motive x