∀ {R : Type u_2} {S : Type u_3} {ι : Type u_1} {inst : CommRing R} {inst_1 : CommRing S} {inst_2 : Algebra R S}
  {P : Algebra.Generators R S ι} {R' : Type u_4} {S' : Type u_5} {ι' : Type u_6} {inst_3 : CommRing R'}
  {inst_4 : CommRing S'} {inst_5 : Algebra R' S'} {P' : Algebra.Generators R' S' ι'} {inst_6 : Algebra S S'}
  (motive : P.Hom P' → Prop) (h : P.Hom P'),
  (∀ (val : ι → P'.Ring) (aeval_val : ∀ (i : ι), (MvPolynomial.aeval P'.val) (val i) = (algebraMap S S') (P.val i)),
      motive { val := val, aeval_val := aeval_val }) →
    motive h