diff options
| author |  Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-03-10 16:43:14 +0100 |
|---|---|---|
| committer | Pierre Boutillier <pierre.boutillier@ens-lyon.org> | 2014-03-10 18:38:15 +0100 |
| commit | ba7701fb1a2e26dccd573b881ee7c2bac11a6384 (patch) | |
| tree | 9f9943cc23871e1145b6f1141bd4b4910a0b6804 /pretyping/evarconv.ml | |
| parent | f16f8383f0af88deda99fa4c033ea04149b00f49 (diff) | |
Evarconv unification respects Conv_oracle
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 472cb50d0..bc09cb6f9 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -902,22 +902,22 @@ let consider_remaining_unif_problems ?(ts=full_transparent_state) env evd = exception UnableToUnify of evar_map * unification_error -let the_conv_x ?(ts=full_transparent_state) env t1 t2 evd = +let the_conv_x env ?(ts=Conv_oracle.get_transp_state (Environ.oracle env)) t1 t2 evd = match evar_conv_x ts env evd CONV t1 t2 with | Success evd' -> evd' | UnifFailure (evd',e) -> raise (UnableToUnify (evd',e)) -let the_conv_x_leq ?(ts=full_transparent_state) env t1 t2 evd = +let the_conv_x_leq env ?(ts=Conv_oracle.get_transp_state (Environ.oracle env)) t1 t2 evd = match evar_conv_x ts env evd CUMUL t1 t2 with | Success evd' -> evd' | UnifFailure (evd',e) -> raise (UnableToUnify (evd',e)) -let e_conv ?(ts=full_transparent_state) env evdref t1 t2 = +let e_conv env ?(ts=Conv_oracle.get_transp_state (Environ.oracle env)) evdref t1 t2 = match evar_conv_x ts env !evdref CONV t1 t2 with | Success evd' -> evdref := evd'; true | _ -> false -let e_cumul ?(ts=full_transparent_state) env evdref t1 t2 = +let e_cumul env ?(ts=Conv_oracle.get_transp_state (Environ.oracle env)) evdref t1 t2 = match evar_conv_x ts env !evdref CUMUL t1 t2 with | Success evd' -> evdref := evd'; true | _ -> false |