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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a5d:9a0b:: with SMTP id s11mr2822937iol.5.1548274485081;
        Wed, 23 Jan 2019 12:14:45 -0800 (PST)
X-Received: by 2002:aca:4eca:: with SMTP id c193mr82308oib.7.1548274484943;
 Wed, 23 Jan 2019 12:14:44 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.166.216.MISMATCH!q69no36500itb.0!news-out.google.com!v71ni35ita.0!nntp.google.com!q69no36497itb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 23 Jan 2019 12:14:44 -0800 (PST)
In-Reply-To: <q283tp$6tj$1@franka.jacob-sparre.dk>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=146.5.2.29;
 posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC
NNTP-Posting-Host: 146.5.2.29
References: <b5c56fdb-94d0-4930-952c-7754ec5dd729@googlegroups.com>
 <lyo98z558g.fsf@pushface.org>
 <2a6929c5-72fa-4d84-953a-44ea4597ab38@googlegroups.com>
 <q0m3u6$t9c$1@franka.jacob-sparre.dk>
 <f62bb15c-ebd2-45f7-b591-796a1957e99a@googlegroups.com>
 <q0n6av$1tqs$1@gioia.aioe.org> <q0psvi$v1q$1@franka.jacob-sparre.dk>
 <q0pvlp$1vp1$1@gioia.aioe.org> <q10f1v$v9r$1@franka.jacob-sparre.dk>
 <q11rqe$dtn$1@gioia.aioe.org> <q13biq$nle$1@franka.jacob-sparre.dk>
 <q159mg$1q6k$1@gioia.aioe.org> <q160mb$863$1@franka.jacob-sparre.dk>
 <q1715k$1fou$1@gioia.aioe.org> <q18g50$86r$1@franka.jacob-sparre.dk>
 <q19mh2$19lu$1@gioia.aioe.org> <q1j489$oo8$1@franka.jacob-sparre.dk>
 <q1k9ep$aku$1@gioia.aioe.org>
 <75328dc5-fc59-4228-b77e-77ba6e5101c3@googlegroups.com>
 <q25jpn$jfu$1@franka.jacob-sparre.dk> <q27if9$b0r$1@dont-email.me>
 <q283tp$6tj$1@franka.jacob-sparre.dk>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9eedf818-8bfb-465b-afe5-aa3fb0525948@googlegroups.com>
Subject: Re: class wide iterable (and indexable)
From: Shark8 <onewingedshark@gmail.com>
Injection-Date: Wed, 23 Jan 2019 20:14:45 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:55342
Date: 2019-01-23T12:14:44-08:00
List-Id: <comp.lang.ada>

Wouldn't this be a non-issue if we could Static_Predicate Array-types like so?

Type Some_String is Array(Positive range <>) of Character
  with Static-Predicate => Some_String'First = 1;