diff options
| author | Enrico Tassi | 2020-01-07 14:26:41 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2020-01-07 14:26:41 +0100 |
| commit | 1fc71f3209afd4b8783dce62e1fd1539e97f8017 (patch) | |
| tree | b319c3cd4508724d7e3a34d26f087413b821cd3a /proofs | |
| parent | 793bddef6b4f615297e9f9088cd0b603c56b2014 (diff) | |
| parent | 7b04bad71f756fdd9ba9145dd41381bdf30441c3 (diff) | |
Merge PR #11317: Fix #11140: Bidirectionality hints perform (surprising?) simplification
Reviewed-by: SkySkimmer
Ack-by: gares
Reviewed-by: mattam82
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 58c0f7db53..e466992721 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -678,7 +678,7 @@ let define_with_type sigma env ev c = let t = Retyping.get_type_of env sigma ev in let ty = Retyping.get_type_of env sigma c in let j = Environ.make_judge c ty in - let (sigma, j) = Coercion.inh_conv_coerce_to ~program_mode:false true env sigma j t in + let (sigma, j, _trace) = Coercion.inh_conv_coerce_to ~program_mode:false true env sigma j t in let (ev, _) = destEvar sigma ev in let sigma = Evd.define ev j.Environ.uj_val sigma in sigma |