author | wenzelm |
Sat, 28 Jan 2006 17:28:51 +0100 | |
changeset 18817 | ad8bc3e55aa3 |
parent 18816 | aebd7f315b92 |
child 18818 | 86eec44dae66 |
--- a/src/HOL/Tools/meson.ML Sat Jan 28 17:28:50 2006 +0100 +++ b/src/HOL/Tools/meson.ML Sat Jan 28 17:28:51 2006 +0100 @@ -441,7 +441,7 @@ (*Expand all definitions (presumably of Skolem functions) in a proof state.*) fun expand_defs_tac st = let val defs = filter (can dest_equals) (#hyps (crep_thm st)) - in ProofContext.def_export false defs st end; + in LocalDefs.def_export false defs st end; (*Basis of all meson-tactics. Supplies cltac with clauses: HOL disjunctions*) fun MESON cltac i st =