(************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* Values.value -> 'a -> unit