[Ada] Fix assertion failure on derived private protected type