diff options
| author | Pierre-Marie Pédrot | 2016-09-09 15:45:29 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 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 2c675b9eae..4ae72a5151 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 } |