From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bdd718faa7c79f29
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-28 23:41:10 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!xmission!news-out.spamkiller.net!propagator2-maxim!news-in.superfeed.net!newsfeed01.tsnz.net!news.xtra.co.nz!53ab2750!not-for-mail
From: "AG" <ang@xtra.co.nz>
Newsgroups: comp.lang.ada
References: <EU6Ja.43611$JA5.766429@news.xtra.co.nz>
 <3EFE3491.F968568D@adaworks.com> <CBvLa.57412$JA5.1017777@news.xtra.co.nz>
Subject: Re: Overlapping ranges
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <9SvLa.57431$JA5.1017892@news.xtra.co.nz>
Date: Sun, 29 Jun 2003 18:42:17 +1200
NNTP-Posting-Host: 219.88.60.59
X-Complaints-To: newsadmin@xtra.co.nz
X-Trace: news.xtra.co.nz 1056868869 219.88.60.59 (Sun,
 29 Jun 2003 18:41:09 NZST)
NNTP-Posting-Date: Sun, 29 Jun 2003 18:41:09 NZST
Organization: Xtra
Xref: archiver1.google.com comp.lang.ada:39880
Date: 2003-06-29T18:42:17+12:00
List-Id: <comp.lang.ada>

> "Richard Riehle" <richard@adaworks.com> wrote in message
> news:3EFE3491.F968568D@adaworks.com...

On second thoughts and having re-read that:

> >    function Fudge (A : X1; B : X2) return Number'Base is
> >    begin
> >      if A in X1 then
       -- Can this test fail here at all ?