לאופולד, נסיך סקסוניה-קובורג-גותה