changeset 30739 | 8a854c90f7e6 |
parent 30688 | 2d1d426e00e4 |
child 30766 | 44561a14a4c5 |
--- a/src/Pure/Isar/code_unit.ML Fri Mar 27 10:05:11 2009 +0100 +++ b/src/Pure/Isar/code_unit.ML Fri Mar 27 10:05:12 2009 +0100 @@ -215,9 +215,10 @@ |> Conjunction.elim_balanced (length thms) in thms - |> burrow_thms (canonical_tvars thy purify_tvar) |> map (canonical_vars thy purify_var) |> map (canonical_absvars purify_var) + |> map Drule.zero_var_indexes + |> burrow_thms (canonical_tvars thy purify_tvar) |> Drule.zero_var_indexes_list end;