(***********************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* string -> loc -> constr_expr