diff options
Diffstat (limited to 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index 5ae04488fd..7cf7e58890 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -287,10 +287,9 @@ let e_type_of env evd c = (* side-effect on evdref *) !evdref, Termops.refresh_universes j.uj_type -let solve_evars env evd c = - let evdref = ref evd in +let solve_evars env evdref c = let c = (execute env evdref c).uj_val in (* side-effect on evdref *) - !evdref, nf_evar !evdref c + nf_evar !evdref c let _ = Evarconv.set_solve_evars solve_evars |