M.Def
module X : Costlang.S
type model_type
val arity : (X.size, model_type, arg_type) arity
val model : model_type X.repr