diff options
| author | letouzey | 2013-03-14 16:43:13 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-14 16:43:13 +0000 |
| commit | 10a377cd2de2fad827a67739e6aa2f43b7df86af (patch) | |
| tree | 45984a17d74d956814194f1a97f60333de1b314e | |
| parent | 3a485ed0feaccf629772494a3806881e168980d6 (diff) | |
Typo in an error message
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16303 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |