--- a/src/Pure/Isar/auto_bind.ML Thu Feb 16 18:25:58 2006 +0100
+++ b/src/Pure/Isar/auto_bind.ML Thu Feb 16 18:25:58 2006 +0100
@@ -10,6 +10,7 @@
val rule_contextN: string
val thesisN: string
val thisN: string
+ val premsN: string
val goal: theory -> term list -> (indexname * term option) list
val cases: theory -> term list -> (string * RuleCases.T option) list
val facts: theory -> term list -> (indexname * term option) list
@@ -24,6 +25,7 @@
val rule_contextN = "rule_context";
val thesisN = "thesis";
val thisN = "this";
+val premsN = "prems";
fun strip_judgment thy = ObjectLogic.drop_judgment thy o Logic.strip_assums_concl;