Frederick I, duke of Upper Lotharingia