(R : Type u_1) →
  (S : Type u_2) →
    [inst : CommRing R] →
      [inst_1 : CommRing S] →
        [inst_2 : Algebra R S] →
          (p : PrimeSpectrum R) → ↑(PrimeSpectrum.comap (algebraMap R S) ⁻¹' {p}) ≃ PrimeSpectrum (p.asIdeal.Fiber S)