diff options
Diffstat (limited to 'pretyping/evd.ml')
-rw-r--r-- | pretyping/evd.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 5a9281c89..1f462197c 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -743,6 +743,9 @@ let evars_reset_evd ?(with_conv_pbs=false) ?(with_univs=true) evd d = let merge_universe_context evd uctx' = { evd with universes = union_evar_universe_context evd.universes uctx' } +let set_universe_context evd uctx' = + { evd with universes = uctx' } + let add_conv_pb pb d = {d with conv_pbs = pb::d.conv_pbs} let evar_source evk d = (find d evk).evar_source |