diff options
| author | Pierre-Marie Pédrot | 2020-12-11 18:41:48 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-11 12:59:41 +0100 |
| commit | 5c69eb442ac6b007854462066c38c3ec2556e311 (patch) | |
| tree | 3907a1e6ec066f62871dcadc7a1350fa20173ee1 /tactics/class_tactics.ml | |
| parent | ffb482f0c18bff2c65dcc9cd2b65bd20b398245d (diff) | |
Use the Evarutil cache for Class_tactics.evar_dependencies.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 9e66e8668f..d93501eea6 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1014,10 +1014,11 @@ let deps_of_constraints cstrs evm p = cstrs let evar_dependencies pred evm p = + let cache = Evarutil.create_undefined_evars_cache () in Evd.fold_undefined (fun ev evi _ -> if Evd.is_typeclass_evar evm ev && pred evm ev evi then - let evars = Evar.Set.add ev (Evarutil.undefined_evars_of_evar_info evm evi) + let evars = Evar.Set.add ev (Evarutil.filtered_undefined_evars_of_evar_info ~cache evm evi) in Intpart.union_set evars p else ()) evm () |