diff options
| author | Enrico Tassi | 2016-01-04 21:19:50 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2016-01-04 21:21:24 +0100 |
| commit | 08fdf3c7361c75037e12c5cd0e9f965165fed498 (patch) | |
| tree | 595800c79bd8a38b52b343eae48f88fe0ffc030a | |
| parent | 456e2be8af1d4a0cf2461d62dc5e1b4b24b2a552 (diff) | |
fixup d2b468a, evar normalization is needed
| -rw-r--r-- | stm/stm.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 3d007004e2..168d8bf084 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1488,6 +1488,7 @@ end = struct (* {{{ *) match Evd.(evar_body (find sigma r_goal)) with | Evd.Evar_empty -> Errors.errorlabstrm "Stm" (str "no progress") | Evd.Evar_defined t -> + let t = Evarutil.nf_evar sigma t in if Evarutil.is_ground_term sigma t then t, Evd.evar_universe_context sigma else Errors.errorlabstrm "Stm" (str"The solution is not ground") |