{A : Type u_2} →
  [inst : CommSemiring A] →
    {B : Type u_3} →
      [inst_1 : Semiring B] →
        [inst_2 : Algebra A B] →
          {P : Ideal B} →
            {p : Ideal A} →
              {motive : P.LiesOver p → Sort u} →
                (t : P.LiesOver p) → ((«over» : p = Ideal.under A P) → motive ⋯) → motive t