Date: Wed, 30 Apr 1997 10:50:23 +0800
From: Sven LUTHER <luther@phivolcs.dost.gov.ph>
To: Didier Rousseau <Didier.Rousseau@cnam.fr>
Subject: Re: types recursifs ...
Didier Rousseau wrote:
> le sens que l'on peut deduit de votre fonction "viewt" ne correspond pas au type
> defini "'a t"
> dans le dernier cas de filtrage :
> | Arrow (l, r) -> viewt r; print_string " -> "; viewt l
>
> le typeur deduit que "l" et "r" sont du meme type que l'arg de "viewt" : 'a t
> puisque le filtrage porte sur ce type
> Or si par la suite on defini un type "tt" tel que :
> type tt == int t;;
>
> alors Arrow(x,y), de type int t, ou x et y sont des int
>
> le type recursif que vous auriez du definir etait :
> type 'a t = Int | Bool | Arrow of 'a t * 'a t
Oui je vois ou est mon erreur maintenant, c'est dans la definition de la
fonction viewt
qu'est le probleme.
en fait ce que je voulais faire, c'est etendre le type term par le type
term t.
je pense donc que je n'ai pas choisi le bon moyen de faire cela.
cependant il me semblait que :
si ('a t as 'a) designe un type recursif alors 'a et 'a t devrait etre
les memes types
et donc term t devient (term t as term) et donc term t et term sont les
memes types.
est-ce totalement errone, ai-je mal compris le manuel, ou est-ce
seulement dans la
definition de la fonction viewt que je m'y suis mal pris.
Sven LUTHER
This archive was generated by hypermail 2b29 : Sun Jan 02 2000 - 11:58:10 MET