From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.5-pre1
X-Received: by 2002:ac8:7fc5:: with SMTP id b5mr22480925qtk.122.1619026010312;
        Wed, 21 Apr 2021 10:26:50 -0700 (PDT)
X-Received: by 2002:a25:d6d2:: with SMTP id n201mr16954291ybg.504.1619026010127;
 Wed, 21 Apr 2021 10:26:50 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 21 Apr 2021 10:26:49 -0700 (PDT)
In-Reply-To: <60805c0e$0$12690$426a74cc@news.free.fr>
Injection-Info: google-groups.googlegroups.com; posting-host=94.31.102.170; posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
NNTP-Posting-Host: 94.31.102.170
References: <60805c0e$0$12690$426a74cc@news.free.fr>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d66d1eb4-f642-4962-9674-0e70ac2ca537n@googlegroups.com>
Subject: Re: How to check class type ?
From: AdaMagica <christ-usch.grein@t-online.de>
Injection-Date: Wed, 21 Apr 2021 17:26:50 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61888
List-Id: <comp.lang.ada>

DrPi schrieb am Mittwoch, 21. April 2021 um 19:08:32 UTC+2:
> if var'Tag = Leaf1'Tag then 
> ... 
> elsif var'Tag = Leaf2'Tag then 
> ... 
> end if; 
> 
> It works. But is this correct ?

Why not?

if Var in Leaf1 then
   ...
elsif Var in Leaf2 then

But normally you would use dispatching.
Why do you need this?