diff options
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index 0fe13ef9ca..c477013d88 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -485,14 +485,13 @@ let is_implicit_arg = function *) let resolvable = Store.field () -open Store.Field let is_resolvable evi = assert (match evi.evar_body with Evar_empty -> true | _ -> false); - Option.default true (resolvable.get evi.evar_extra) + Option.default true (Store.get evi.evar_extra resolvable) let mark_resolvability_undef b evi = - let t = resolvable.set b evi.evar_extra in + let t = Store.set evi.evar_extra resolvable b in { evi with evar_extra = t } let mark_resolvability b evi = |