[Ada] Implementation of AI12-0131: legality of class-wide precondition