{α : Type u_8} →
  {β : Type u_9} →
    [inst : CompleteLattice α] →
      [inst_1 : CompleteLattice β] →
        (tosInfHom : sInfHom α β) →
          (∀ (s : Set α), tosInfHom.toFun (sSup s) = sSup (tosInfHom.toFun '' s)) → CompleteLatticeHom α β