{R : Type u} →
  [inst : Ring R] →
    {Q : Type v} →
      [inst_1 : AddCommGroup Q] →
        [inst_2 : Module R Q] →
          {M : Type u_1} →
            {N : Type u_2} →
              [inst_3 : AddCommGroup M] →
                [inst_4 : AddCommGroup N] →
                  [inst_5 : Module R M] →
                    [inst_6 : Module R N] →
                      (i : M →ₗ[R] N) →
                        {f : M →ₗ[R] Q} →
                          [inst_7 : Fact (Function.Injective ⇑i)] →
                            {y : N} →
                              ↥(Module.Baer.supExtensionOfMaxSingleton i f y) → ↥(Module.Baer.extensionOfMax i f).domain