From: Jacques Garrigue <garrigue@math.nagoya-u.ac.jp>
To: daniel.buenzli@epfl.ch
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] Typing problem
Date: Sun, 19 Mar 2006 20:21:49 +0900 (JST) [thread overview]
Message-ID: <20060319.202149.108734866.garrigue@math.nagoya-u.ac.jp> (raw)
In-Reply-To: <D3508A4A-5682-44C2-926B-48824621B3DD@epfl.ch>
From: Daniel Bünzli <daniel.buenzli@epfl.ch>
> I would like to define the following types.
>
> > type u = [ `U1 | `U2 ]
> >
> > type 'a t = [`A of 'a | `B of ([`U1 ] as 'a) ] constraint 'a = [< u ]
>
> t's parameter is used to statically express constraints in other
> parts of the code. My problem is that
> the constraint on 'a is downgraded to [`U1]
Indeed. Constraints are shared in the whole type, so if 'a has two
occurences in the type they represent the same type.
> while I would like to be able to write
>
> > let param : 'a t -> 'a = function (`A v | `B v) -> v
>
> and get the following typing behaviour.
>
> > let v = param (`A `U1) (* should type *)
> > let v = param (`A `U2) (* should type *)
> > let v = param (`B `U1) (* should type *)
> > let v = param (`B `U2) (* should not type *)
>
> Is it possible to express that in ocaml's type system ?
For the above definition of param, this is clearly impossible: a
single variable can have only one (polymorphic) type.
Depending on your concrete problem, there may be a way to encode it in
the type system, but not along the lines you describe here, which are
strongly reminiscent of GADTs.
For instance:
module M : sig
type 'a t = private [< `A of 'a | `B of 'a]
val a : ([< `U1 | `U2 ] as 'a) -> 'a t
val b : [ `U1 ] -> [ `U1 ] t
end = struct
type 'a t = [`A of 'a | `B of 'a]
let a x = `A x
let b x = `B x
end
let param : 'a M.t -> 'a = function (`A v | `B v) -> v
The properties you describe are guaranteed, because all values must be
created through M.a and M.b.
Hope this helps.
Jacques Garrigue
next prev parent reply other threads:[~2006-03-19 11:20 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-03-19 1:30 Daniel Bünzli
2006-03-19 11:21 ` Jacques Garrigue [this message]
2006-03-19 14:58 ` [Caml-list] " Daniel Bünzli
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20060319.202149.108734866.garrigue@math.nagoya-u.ac.jp \
--to=garrigue@math.nagoya-u.ac.jp \
--cc=caml-list@inria.fr \
--cc=daniel.buenzli@epfl.ch \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).