diff options
author | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-07-10 17:50:03 +0200 |
---|---|---|
committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-07-19 14:25:03 +0200 |
commit | 8dc130ed11373928f18adc16e552d650209de75f (patch) | |
tree | 7bb1b373a7d1c6e2cb2ccef3700f187d81fac6fe /tactics/class_tactics.ml | |
parent | 0315a5d93c2de996f5c91bd2af827d3984ec1ad8 (diff) |
Fix debug trace of typeclasses eauto.
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 7a8595653..fcee70740 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1144,7 +1144,7 @@ module Search = struct let res = if j = 0 then tclUNIT () else tclDISPATCH - (List.init j (fun j' -> (tac_of gls i (Option.default 0 k + j)))) + (List.init j (fun j' -> (tac_of gls i (Option.default 0 k + j')))) in let finish nestedshelf sigma = let filter ev = |