Re: Modules, type de modules et type polymorphes.

[Jean-Christophe Filliatre <Jean-Christophe.Filliatre@lri.fr>]

> quel est le probleme de ceci ?
> What is the problem with the following ?
> 
> bash-2.04$ ocaml
>         Objective Caml version 3.00
> 
> # module type T_A = sig
>     val string_of_a : 'a -> string
>   end;;
> module type T_A = sig val string_of_a : 'a -> string end
> # module A : T_A = struct 
>     let string_of_a = string_of_int
>   end;;
> Signature mismatch:
> Modules do not match:
>   sig val string_of_a : int -> string end
> is not included in
>   T_A
> Values do not match:
>   val string_of_a : int -> string
> is not included in
>   val string_of_a : 'a -> string

Une fonction  de type int -> string  ne peut pas être  appelée avec un
argument  d'un type  quelconque. Donc  votre  module A  ne peut  avoir
l'interface T_A  qui déclare que string_of_a accepte  un argument d'un
type quelconque.

Dit autrement, si  le module A était effectivement  de type T_A, alors
A.string_of_a  aurait le  type  'a  -> string  et  je pourrais  écrire
A.string_of_a "tagada", qui n'a pas de sens.

Plus précisément,  et c'est peut-être là l'origine  de votre problème,
la quantification  universelle sur 'a est  faite au niveau  du type de
string_of_a (et de manière  plus générale pour chaque déclaration dans
la signature) et non au niveau du type de module. En ce sens, il n'y a
pas de polymorphisme au niveau du langage de module.

En revanche, vous pouvez écrire

   module type T_A = sig 
     type a
     val string_of_a : a -> string
   end

puis

  module A : T_A = struct
    type a = int
    let string_of_a = string_of_int
  end

[ No English translation, I apologize. ]
   
-- 
Jean-Christophe FILLIATRE
  mailto:Jean-Christophe.Filliatre@lri.fr
  http://www.lri.fr/~filliatr