diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-28 13:38:23 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-28 13:38:23 +0200 |
| commit | 81535edc4b21015bd63d23e57ca9d707b4b71f6b (patch) | |
| tree | 6a76bc46b66cade1b53d2c878ae2aa7c5e1f5dc5 /tactics/class_tactics.ml | |
| parent | b2f746e41abf53fc481f90804ba4d70edd73fc86 (diff) | |
| parent | dfaf7e1ca5aebfdfbef5f32d235a948335f7fda0 (diff) | |
Merge PR #7419: Remove 100 occurrences of Evd.empty
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index ea5d4719c..3e08c6d87 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1174,7 +1174,7 @@ let solve_inst env evd filter unique split fail = let _ = Hook.set Typeclasses.solve_all_instances_hook solve_inst -let resolve_one_typeclass env ?(sigma=Evd.empty) gl unique = +let resolve_one_typeclass env ?(sigma=Evd.from_env env) gl unique = let nc, gl, subst, _ = Evarutil.push_rel_context_to_named_context env sigma gl in let (gl,t,sigma) = Goal.V82.mk_goal sigma nc gl Store.empty in |