∀ {R : Type u_3} {S : Type u_2} {T : Type u_1} [inst : CommRing R] [inst_1 : CommRing S] [inst_2 : CommRing T]
  [inst_3 : Algebra R S] [inst_4 : Algebra R T] (f : S →ₐ[R] T) (p : Polynomial S) (q : Polynomial T)
  (h : q ∣ Polynomial.map (↑f) p) (r : R),
  (↑↑(AdjoinRoot.map (↑f) p q h)).toFun ((algebraMap R (AdjoinRoot p)) r) = (algebraMap R (AdjoinRoot q)) r