Johann Leopold, Thái tử của Sachsen-Coburg and Gotha