{R : Type u} →
  [inst : CommRing R] →
    {motive : AlgCat R → Sort u_1} →
      ((carrier : Type v) →
          [isRing : Ring carrier] →
            [isAlgebra : Algebra R carrier] → motive { carrier := carrier, isRing := isRing, isAlgebra := isAlgebra }) →
        (t : AlgCat R) → motive t