{R : Type u} →
  [inst : CommRing R] →
    {motive : CommAlgCat R → Sort u_1} →
      (t : CommAlgCat R) →
        ((carrier : Type v) →
            [commRing : CommRing carrier] →
              [algebra : Algebra R carrier] → motive { carrier := carrier, commRing := commRing, algebra := algebra }) →
          motive t