src/HOL/Tools/SMT/z3_isar.ML
changeset 59013 f319054e8dff
parent 58064 e9ab6f4c650b
child 60924 610794dff23c
--- a/src/HOL/Tools/SMT/z3_isar.ML	Tue Nov 18 20:56:34 2014 +0100
+++ b/src/HOL/Tools/SMT/z3_isar.ML	Wed Nov 19 10:31:15 2014 +0100
@@ -56,7 +56,6 @@
           let
             val add_hyps = filter_out (null o inter (op =) deps o snd) hyps
             val t' = add_z3_hypotheses (map fst add_hyps) t
-            val deps' = subtract (op =) hyp_names deps
             val hyps' = fold (AList.update (op =) o apsnd (insert (op =) name)) add_hyps hyps
           in
             (name, role, t', rule, deps') :: inline_z3_hypotheses hyp_names hyps' lines