John Frederick, Duke of Brunswick-Lüneburg-Calenberg