# HG changeset patch
# User paulson
# Date 819623995 -3600
# Node ID 2ab32768c9967a2fda2a2a453c5625dd93ad76aa
# Parent  f60f68878354e3585445ada779d110927af45a3d
Now "standard" compresses theorems (for sharing).
Also, rewrite_rule and rewrite_goals_rule check for the empty list of
rewrites and do nothing in that case.

diff -r f60f68878354 -r 2ab32768c996 src/Pure/drule.ML
--- a/src/Pure/drule.ML	Fri Dec 22 10:11:35 1995 +0100
+++ b/src/Pure/drule.ML	Fri Dec 22 10:19:55 1995 +0100
@@ -541,9 +541,9 @@
   let val {maxidx,...} = rep_thm th
   in
     th |> implies_intr_hyps
-    |> strip_shyps |> implies_intr_shyps
-    |> forall_intr_frees |> forall_elim_vars (maxidx + 1)
-    |> zero_var_indexes |> varifyT
+       |> Thm.strip_shyps |> implies_intr_shyps
+       |> forall_intr_frees |> forall_elim_vars (maxidx + 1)
+       |> zero_var_indexes |> Thm.varifyT |> Thm.compress
   end;
 
 
@@ -729,13 +729,17 @@
 fun rew_conv mode prover mss = rewrite_cterm mode mss prover;
 
 (*Rewrite a theorem*)
-fun rewrite_rule thms =
-  fconv_rule (rew_conv (true,false) (K(K None)) (Thm.mss_of thms));
+fun rewrite_rule []   th = th
+  | rewrite_rule thms th =
+	fconv_rule (rew_conv (true,false) (K(K None)) (Thm.mss_of thms)) th;
 
 (*Rewrite the subgoals of a proof state (represented by a theorem) *)
-fun rewrite_goals_rule thms =
-  fconv_rule (goals_conv (K true) (rew_conv (true,false) (K(K None))
-             (Thm.mss_of thms)));
+fun rewrite_goals_rule []   th = th
+  | rewrite_goals_rule thms th =
+	fconv_rule (goals_conv (K true) 
+		    (rew_conv (true,false) (K(K None))
+		     (Thm.mss_of thms))) 
+	           th;
 
 (*Rewrite the subgoal of a proof state (represented by a theorem) *)
 fun rewrite_goal_rule mode prover mss i thm =