diff options
| author | ppedrot | 2013-05-06 20:29:24 +0000 |
|---|---|---|
| committer | ppedrot | 2013-05-06 20:29:24 +0000 |
| commit | 0d23af050fe3f93fb3aef907ec4febd6c8d0b32d (patch) | |
| tree | 43c081de2b4c017ad417de279cf9cafd0fdc188a /pretyping/coercion.ml | |
| parent | bf89e2fc908068a76360b1d488d3dc6a0336a3b0 (diff) | |
Small cleaning of Evd interface.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16482 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/coercion.ml')
| -rw-r--r-- | pretyping/coercion.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index e97e455808..70fc659cbc 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -377,7 +377,7 @@ let inh_coerce_to_sort loc env evd j = let typ = whd_betadeltaiota env evd j.uj_type in match kind_of_term typ with | Sort s -> (evd,{ utj_val = j.uj_val; utj_type = s }) - | Evar ev when not (is_defined_evar evd ev) -> + | Evar ev when not (is_defined evd (fst ev)) -> let (evd',s) = define_evar_as_sort evd ev in (evd',{ utj_val = j.uj_val; utj_type = s }) | _ -> |