{R : CommRingCat} →
  (S : CommRingCat) →
    [inst : Algebra ↑R ↑S] →
      {ι : Type u} →
        (P : ι → CategoryTheory.Under R) →
          CategoryTheory.Limits.Fan fun i => S.mkUnder (TensorProduct ↑R ↑S ↑(P i).right)