diff options
Diffstat (limited to 'pretyping/typing.ml')
-rw-r--r-- | pretyping/typing.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index bff9bb499..0f9100e79 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -6,6 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) +open Pp open Errors open Util open Term @@ -21,7 +22,7 @@ open Arguments_renaming let meta_type evd mv = let ty = try Evd.meta_ftype evd mv - with Not_found -> anomaly ("unknown meta ?"^Nameops.string_of_meta mv) in + with Not_found -> anomaly (str "unknown meta ?" ++ str (Nameops.string_of_meta mv)) in meta_instance evd ty let constant_type_knowing_parameters env cst jl = |