# HG changeset patch
# User wenzelm
# Date 1005153465 -3600
# Node ID d1896409ff1311e93ad56227b9b201158c3b659d
# Parent  08b4da78d1adc723f32dab6bdb1b58b9df980435
tuned impose_hyps;

diff -r 08b4da78d1ad -r d1896409ff13 src/Pure/drule.ML
--- a/src/Pure/drule.ML	Wed Nov 07 18:17:16 2001 +0100
+++ b/src/Pure/drule.ML	Wed Nov 07 18:17:45 2001 +0100
@@ -330,7 +330,8 @@
 
 (* maps |- B to A1,...,An |- B *)
 fun impose_hyps chyps th =
-  implies_elim_list (implies_intr_list chyps th) (map Thm.assume chyps);
+  let val chyps' = gen_rems (op aconv o apfst Thm.term_of) (chyps, #hyps (Thm.rep_thm th))
+  in implies_elim_list (implies_intr_list chyps' th) (map Thm.assume chyps') end;
 
 (*Reset Var indexes to zero, renaming to preserve distinctness*)
 fun zero_var_indexes th =