{B : Type u_1} →
  [inst : Ring B] →
    {M : Type u_2} →
      [inst_1 : AddCommGroup M] →
        [inst_2 : Module B M] →
          [inst_3 : DecidableEq B] →
            (presM : Module.Presentation B M) →
              [inst_4 : DecidableEq presM.G] →
                {A : Type u_3} →
                  [inst_5 : CommRing A] →
                    [inst_6 : Algebra A B] →
                      [inst_7 : Module A M] →
                        [IsScalarTower A B M] →
                          (presB : Module.Presentation A B) → presM.RestrictScalarsData presB → Module.Presentation A M