∀ {R : Type u_3} [inst : Ring R] {Q : Type u_1} [inst_1 : AddCommGroup Q] [inst_2 : Module R Q] {M : Type u_2}
  {N : Type u_4} [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} {c : Set (Module.Baer.ExtensionOf i f)} (hchain : IsChain (fun x1 x2 => x1 ≤ x2) c)
  (hnonempty : c.Nonempty) (m : M), f m = ↑(LinearPMap.sSup ((fun x => x.toLinearPMap) '' c) ⋯) ⟨i m, ⋯⟩