{R : Type uR} →
  {A₁ : Type uA₁} →
    {A₂ : Type uA₂} →
      [inst : CommSemiring R] →
        [inst_1 : Semiring A₁] →
          [inst_2 : Semiring A₂] →
            [inst_3 : Algebra R A₁] →
              [inst_4 : Algebra R A₂] →
                (l : A₁ ≃ₗ[R] A₂) → l 1 = 1 → (∀ (x y : A₁), l (x * y) = l x * l y) → A₁ ≃ₐ[R] A₂