{R : Type u_2} →
  {A : Type u_3} →
    {B : Type u_4} →
      [inst : CommSemiring R] →
        [inst_1 : Semiring A] →
          [inst_2 : Algebra R A] →
            [inst_3 : Star A] →
              [inst_4 : Semiring B] →
                [inst_5 : Algebra R B] → [inst_6 : Star B] → (f : A →⋆ₐ[R] B) → (f' : A → B) → f' = ⇑f → A →⋆ₐ[R] B