| changeset 42360 | da8817d01e7c |
| parent 42016 | 3b6826b3ed37 |
| child 42375 | 774df7c59508 |
--- a/src/Pure/theory.ML Sat Apr 16 15:25:25 2011 +0200 +++ b/src/Pure/theory.ML Sat Apr 16 15:47:52 2011 +0200 @@ -240,7 +240,7 @@ fun check_def thy unchecked overloaded (b, tm) defs = let - val ctxt = ProofContext.init_global thy; + val ctxt = Proof_Context.init_global thy; val name = Sign.full_name thy b; val ((lhs, rhs), _) = Primitive_Defs.dest_def ctxt Term.is_Const (K false) (K false) tm handle TERM (msg, _) => error msg;