src/Pure/Isar/proof.ML

 
 fun gen_assume f exp args state =
   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;
 val assume = assm ProofContext.export_assume;
 val assume_i = assm_i ProofContext.export_assume;