{ obj := fun X => BddLat.of ↑X, map := fun {X Y} f => BddLat.ofHom (CompleteLatticeHom.toBoundedLatticeHom f),
        map_id := CompleteLat.hasForgetToBddLat._proof_1, map_comp := @CompleteLat.hasForgetToBddLat._proof_2 }.comp
    (CategoryTheory.forget BddLat) =
  CategoryTheory.forget CompleteLat