diff options
| author | Matthieu Sozeau | 2018-07-26 17:07:08 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2019-02-08 11:10:24 +0100 |
| commit | 746e74ed6e70cf01f0a0e73f772c3565e28fe3f8 (patch) | |
| tree | eee74b602613ff68f40337a31a4a7af86c7fd7f8 /proofs | |
| parent | c039d78bd098a499a34038e64bd1e5fbe280d7f3 (diff) | |
[evarconv] New flag handling for unifier
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/evar_refiner.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/evar_refiner.ml b/proofs/evar_refiner.ml index 1b2756f49f..0f97a942ed 100644 --- a/proofs/evar_refiner.ml +++ b/proofs/evar_refiner.ml @@ -37,8 +37,8 @@ let define_and_solve_constraints evk c env evd = match List.fold_left (fun p (pbty,env,t1,t2) -> match p with - | Success evd -> Evarconv.evar_conv_x TransparentState.full env evd pbty t1 t2 - | UnifFailure _ as x -> x) (Success evd) + | Success evd -> Evarconv.evar_conv_x (Evarconv.default_flags_of TransparentState.full) env evd pbty t1 t2 + | UnifFailure _ as x -> x) (Success evd) pbs with | Success evd -> evd |