author | haftmann |
Fri, 27 Mar 2009 10:05:12 +0100 | |
changeset 30739 | 8a854c90f7e6 |
parent 30738 | 0842e906300c |
child 30740 | 2d3ae5a7edb2 |
--- 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;