∀ {R : Type u} {S : Type v} {ι : Type w} {σ : Type t} [inst : CommRing R] [inst_1 : CommRing S] [inst_2 : Algebra R S]
  [inst_3 : Finite σ] (P : Algebra.SubmersivePresentation R S ι σ) {T : Type u_1} [inst_4 : CommRing T]
  [inst_5 : Algebra R T] (e : S ≃ₐ[R] T), (P.ofAlgEquiv e).toPreSubmersivePresentation = P.ofAlgEquiv e