∀ {R : Type u_1} [inst : Ring R] {E : Type u_2} [inst_1 : AddCommGroup E] [inst_2 : Module R E] {F : Type u_3}
  [inst_3 : AddCommGroup F] [inst_4 : Module R F] (f f_1 : E →ₗ.[R] F) (e_f : f = f_1) (g g_1 : E →ₗ.[R] F)
  (e_g : g = g_1) (h : ∀ (x : ↥f.domain) (y : ↥g.domain), ↑x = ↑y → ↑f x = ↑g y), f.sup g h = f_1.sup g_1 ⋯