MODEL
type t = model
val id : t -> string
val descr : t -> string
val hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val repr : t