וילהלם הראשון, דוכס סקסוניה-ויימאר