diff options
| -rw-r--r-- | plugins/extraction/table.ml | 1 | ||||
| -rw-r--r-- | tactics/auto.ml | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 62ce89896a..886a19e94f 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -842,6 +842,7 @@ let extract_constant_inline inline r ids s = let extract_inductive r s l optstr = check_inside_section (); let g = Smartlocate.global_with_alias r in + Dumpglob.add_glob (loc_of_reference r) g; match g with | IndRef ((kn,i) as ip) -> let mib = Global.lookup_mind kn in diff --git a/tactics/auto.ml b/tactics/auto.ml index 161fe66fc0..20c3f7680d 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -864,6 +864,7 @@ let interp_hints h = | HintsConstructors lqid -> let constr_hints_of_ind qid = let ind = global_inductive_with_alias qid in + Dumpglob.dump_reference (fst (qualid_of_reference qid)) "<>" (string_of_reference qid) "ind"; list_tabulate (fun i -> let c = (ind,i+1) in None, true, PathHints [ConstructRef c], mkConstruct c) (nconstructors ind) in |