src/Pure/Isar/spec_rules.ML
changeset 59621 291934bac95e
parent 59573 d09cc83cdce9
child 61060 a2c6f7f64aca
--- a/src/Pure/Isar/spec_rules.ML	Fri Mar 06 14:01:08 2015 +0100
+++ b/src/Pure/Isar/spec_rules.ML	Fri Mar 06 15:58:56 2015 +0100
@@ -48,7 +48,7 @@
 
 fun add class (ts, ths) lthy =
   let
-    val cts = map (Proof_Context.cterm_of lthy) ts;
+    val cts = map (Thm.cterm_of lthy) ts;
   in
     lthy |> Local_Theory.declaration {syntax = false, pervasive = true}
       (fn phi =>