export prems_of;

--- a/src/Pure/Isar/proof_context.ML	Tue Sep 21 17:24:35 1999 +0200
+++ b/src/Pure/Isar/proof_context.ML	Tue Sep 21 17:24:50 1999 +0200
@@ -11,6 +11,7 @@
   exception CONTEXT of string * context
   val theory_of: context -> theory
   val sign_of: context -> Sign.sg
+  val prems_of: context -> thm list
   val show_hyps: bool ref
   val pretty_thm: thm -> Pretty.T
   val verbose: bool ref