∀ {B : Type u} [inst : CategoryTheory.Bicategory B] {a b c : B} {f : a ⟶ b} {g : a ⟶ c}
  [toHasLeftKanExtension : CategoryTheory.Bicategory.HasLeftKanExtension f g],
  (∀ {x : B} (h : c ⟶ x), CategoryTheory.Bicategory.Lan.CommuteWith f g h) →
    CategoryTheory.Bicategory.HasAbsLeftKanExtension f g