diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-09 15:45:29 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-09 15:45:29 +0200 |
commit | 306dfe775009681e492a2a59e3dcdc5b67bd9d73 (patch) | |
tree | 30e47b15f519bbbe0200fbebe99e3a8498f3b9a6 /pretyping/typeclasses.ml | |
parent | 0d3c319336efaee78fb799c44806d3b9b8b28a50 (diff) |
Monomorphize a costly boolean equality operation.
Diffstat (limited to 'pretyping/typeclasses.ml')
-rw-r--r-- | pretyping/typeclasses.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index 2c675b9ea..4ae72a515 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -501,7 +501,7 @@ let is_resolvable evi = Option.is_empty (Store.get evi.evar_extra resolvable) let mark_resolvability_undef b evi = - if is_resolvable evi = b then evi + if is_resolvable evi == (b : bool) then evi else let t = set_resolvable evi.evar_extra b in { evi with evar_extra = t } |