∀ {R : Type u_1} {S : Type u_2} [inst : CommRing R] [inst_1 : CommRing S] [inst_2 : IsDomain R] [inst_3 : Algebra R S]
  [inst_4 : IsIntegrallyClosed R] [inst_5 : IsDomain S] [inst_6 : Module.IsTorsionFree R S] {x x_1 : S} (e_x : x = x_1)
  (hx : IsIntegral R x) (hx' : R[x] = ⊤), PowerBasis.ofAdjoinEqTop' hx hx' = PowerBasis.ofAdjoinEqTop' ⋯ ⋯