∀ {X Y : Type u} [inst : DistribLattice X] [inst_1 : BoundedOrder X] [inst_2 : Fintype X] [inst_3 : DistribLattice Y]
  [inst_4 : BoundedOrder Y] [inst_5 : Fintype Y] (f : BoundedLatticeHom X Y) (x : X),
  (CategoryTheory.ConcreteCategory.hom (FinBddDistLat.ofHom f)) x = f x