Ernst Leopold, 4th Prince of Leiningen