rule_context: numbered cases;
authorwenzelm
Thu, 22 Dec 2005 00:29:03 +0100
changeset 18472 255eaf0a2119
parent 18471 ca9a864018d6
child 18473 8bf56053475a
rule_context: numbered cases;
src/Pure/Isar/auto_bind.ML
--- a/src/Pure/Isar/auto_bind.ML	Thu Dec 22 00:29:01 2005 +0100
+++ b/src/Pure/Isar/auto_bind.ML	Thu Dec 22 00:29:03 2005 +0100
@@ -36,8 +36,8 @@
 fun goal thy [prop] = statement_binds thy thesisN prop
   | goal _ _ = [((thesisN, 0), NONE)];
 
-fun cases thy [prop] = [RuleCases.simple true (thy, prop) rule_contextN]
-  | cases _ _ = [(rule_contextN, NONE)];
+fun cases _ [] = [(rule_contextN, NONE)]
+  | cases thy props = RuleCases.simple (thy, Logic.mk_conjunction_list props) rule_contextN;
 
 
 (* facts *)