{R : Type u_1} →
  [inst : CommSemiring R] →
    {A : Type u_4} →
      [inst_1 : Semiring A] →
        {M : Type u_6} →
          {Nₗ : Type u_11} →
            {Pₗ : Type u_12} →
              {Qₗ : Type u_13} →
                [inst_2 : AddCommMonoid M] →
                  [inst_3 : AddCommMonoid Nₗ] →
                    [inst_4 : AddCommMonoid Pₗ] →
                      [inst_5 : AddCommMonoid Qₗ] →
                        [inst_6 : Module R Nₗ] →
                          [inst_7 : Module R Pₗ] →
                            [inst_8 : Module R Qₗ] →
                              [inst_9 : Module A Pₗ] →
                                [inst_10 : SMulCommClass R A Pₗ] →
                                  [inst_11 : Module R A] →
                                    [inst_12 : Module A M] →
                                      [inst_13 : Module A Qₗ] →
                                        [inst_14 : SMulCommClass R A Qₗ] →
                                          [IsScalarTower R A Qₗ] →
                                            [IsScalarTower R A Pₗ] →
                                              (M →ₗ[A] Nₗ →ₗ[R] Pₗ) → (Pₗ →ₗ[A] Qₗ) → M →ₗ[A] Nₗ →ₗ[R] Qₗ