diff options
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 1396f91d4f..732001fde6 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -623,7 +623,7 @@ let clos_norm_flags flgs env sigma t = norm_val (create_clos_infos ~evars:(safe_evar_value sigma) flgs env) (inject t) - with e when is_anomaly e -> error "Tried to normalized ill-typed term" + with e when is_anomaly e -> error "Tried to normalize ill-typed term" let nf_beta = clos_norm_flags Closure.beta empty_env let nf_betaiota = clos_norm_flags Closure.betaiota empty_env |