∀ {R : Type u_1} {A : Type u_2} [inst : CommRing R] [inst_1 : Ring A] [inst_2 : Algebra R A]
  (motive : Algebra.IsAlgebraic R A → Prop) (x : Algebra.IsAlgebraic R A),
  (∀ (h : ∀ (x : A), IsAlgebraic R x), motive ⋯) → motive x