diff options
Diffstat (limited to 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index da72d7a752..281e33e9b7 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -443,4 +443,9 @@ let e_solve_evars env evdref c = (* side-effect on evdref *) nf_evar !evdref c -let _ = Evarconv.set_solve_evars (fun env evdref c -> e_solve_evars env evdref c) +let solve_evars env sigma c = + let evdref = ref sigma in + let c = e_solve_evars env evdref c in + !evdref, c + +let _ = Evarconv.set_solve_evars (fun env sigma c -> solve_evars env sigma c) |