∀ (K : Type u_1) [inst : Field K] (a : K)
  (motive : a ∈ (fun x => (algebraMap (NumberField.RingOfIntegers K) K) ↑x) '' ↑(NumberField.Units.torsion K) → Prop)
  (x : a ∈ (fun x => (algebraMap (NumberField.RingOfIntegers K) K) ↑x) '' ↑(NumberField.Units.torsion K)),
  (∀ (u : (NumberField.RingOfIntegers K)ˣ) (h_tors : u ∈ ↑(NumberField.Units.torsion K))
      (h_ua : (fun x => (algebraMap (NumberField.RingOfIntegers K) K) ↑x) u = a), motive ⋯) →
    motive x