A Schumpeterian Model of Top Income Inequality