# HG changeset patch
# User wenzelm
# Date 1003943890 -7200
# Node ID b6def266cbb9b5bb88b2889a84949d53e255a63c
# Parent  929d97ed8c0ff95c8497b6ddd9654ad887304e69
simplified ProofContext.assume interface;

diff -r 929d97ed8c0f -r b6def266cbb9 src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Wed Oct 24 17:38:29 2001 +0200
+++ b/src/Pure/Isar/proof.ML	Wed Oct 24 19:18:10 2001 +0200
@@ -515,9 +515,7 @@
   state
   |> assert_forward
   |> map_context_result (f exp args)
-  |> (fn (st, (factss, prems)) =>
-    these_factss (st, factss)
-    |> put_thms ("prems", prems));
+  |> these_factss;
 
 val assm = gen_assume ProofContext.assume;
 val assm_i = gen_assume ProofContext.assume_i;