Canada coronavirus death toll tops 4,000