src/HOL/Tools/Function/induction_schema.ML
changeset 74266 612b7e0d6721
parent 74200 17090e27aae9
child 77879 dd222e2af01a
--- a/src/HOL/Tools/Function/induction_schema.ML	Thu Sep 09 10:40:57 2021 +0200
+++ b/src/HOL/Tools/Function/induction_schema.ML	Thu Sep 09 12:33:14 2021 +0200
@@ -381,7 +381,7 @@
 
     val res = Conjunction.intr_balanced (map_index project branches)
       |> fold_rev Thm.implies_intr (map Thm.cprop_of newgoals @ steps)
-      |> Drule.generalize (Symtab.empty, Symtab.make_set [Rn])
+      |> Drule.generalize (Names.empty, Names.make_set [Rn])
 
     val nbranches = length branches
     val npres = length pres