Fix for #482 (RegisterAdapter does not propagate keys or names from TFrom to TTo)

Fix for #482 (RegisterAdapter does not propagate keys or names from TFrom to TTo).
Instead of `.Where(s=>s is IServiceWithType).Cast<IServiceWithType>()` try `.OfType<IServiceWithType()` to shortcut that.