{A : Type u_4} →
  {B : Type u_5} →
    [inst : CommRing A] →
      [inst_1 : CommRing B] →
        [inst_2 : Algebra A B] →
          (p : Ideal A) →
            [inst_3 : p.IsPrime] →
              (P : Ideal B) →
                [inst_4 : P.IsPrime] → [P.LiesOver p] → Algebra (Localization.AtPrime p) (Localization.AtPrime P)