# HG changeset patch
# User wenzelm
# Date 968352413 -7200
# Node ID 8cc344b3435ed36e6f26762403c6c316c41ed5aa
# Parent  c1c8647af477be4b2a57ff5567f9299c25a2ac7c
Conversion of object-level -->/ALL into meta-level ==>/!!;

diff -r c1c8647af477 -r 8cc344b3435e src/Provers/rulify.ML
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Provers/rulify.ML	Thu Sep 07 20:46:53 2000 +0200
@@ -0,0 +1,65 @@
+(*  Title:      Provers/rulify.ML
+    ID:         $Id$
+    Author:     Markus Wenzel, TU Muenchen
+    License:    GPL (GNU GENERAL PUBLIC LICENSE)
+
+Conversion of object-level -->/ALL into meta-level ==>/!!.
+*)
+
+signature BASIC_RULIFY =
+sig
+  val rulify: thm -> thm
+  val rulify_no_asm: thm -> thm
+  val qed_spec_mp: string -> unit
+  val qed_goal_spec_mp: string -> theory -> string -> (thm list -> tactic list) -> unit
+  val qed_goalw_spec_mp: string -> theory -> thm list -> string
+    -> (thm list -> tactic list) -> unit
+end;
+
+signature RULIFY =
+sig
+  include BASIC_RULIFY
+  val rulified: 'a attribute
+  val rulified_no_asm: 'a attribute
+  val setup: (theory -> theory) list
+end;
+
+functor RulifyFun(val make_meta: thm -> thm val full_make_meta: thm -> thm): RULIFY =
+struct
+
+
+(* rulify *)
+
+val tune = Drule.zero_var_indexes o Drule.strip_shyps_warning o Drule.forall_elim_vars_safe;
+
+val rulify = tune o full_make_meta;
+val rulify_no_asm = tune o make_meta;
+
+
+(* attributes *)
+
+fun rulified x = Drule.rule_attribute (fn _ => rulify) x;
+fun rulified_no_asm x = Drule.rule_attribute (fn _ => rulify_no_asm) x;
+
+fun rulified_att x = Attrib.syntax
+  (Scan.lift (Args.parens (Args.$$$ "no_asm") >> K rulified_no_asm || Scan.succeed rulified)) x;
+
+
+(* qed commands *)
+
+fun qed_spec_mp name = ThmDatabase.ml_store_thm (name, rulify_no_asm (Goals.result ()));
+
+fun qed_goal_spec_mp name thy s p =
+  ThmDatabase.bind_thm (name, rulify_no_asm (Goals.prove_goal thy s p));
+
+fun qed_goalw_spec_mp name thy defs s p =
+  ThmDatabase.bind_thm (name, rulify_no_asm (Goals.prove_goalw thy defs s p));
+
+
+(* theory setup *)
+
+val setup =
+ [Attrib.add_attributes
+  [("rulified", (rulified_att, rulified_att), "result put into standard rule form")]];
+
+end;