src/Pure/Isar/isar_cmd.ML
changeset 21437 a3c55b85cf0e
parent 21350 6e58289b6685
child 21506 b2a673894ce5
equal deleted inserted replaced
21436:5313a4cc3823 21437:a3c55b85cf0e
   430 
   430 
   431 local
   431 local
   432 
   432 
   433 fun string_of_stmts state args =
   433 fun string_of_stmts state args =
   434   Proof.get_thmss state args
   434   Proof.get_thmss state args
   435   |> map (Element.pretty_statement (Proof.context_of state) PureThy.lemmaK)
   435   |> map (Element.pretty_statement (Proof.context_of state) Thm.theoremK)
   436   |> Pretty.chunks2 |> Pretty.string_of;
   436   |> Pretty.chunks2 |> Pretty.string_of;
   437 
   437 
   438 fun string_of_thms state args =
   438 fun string_of_thms state args =
   439   Pretty.string_of (ProofContext.pretty_thms (Proof.context_of state)
   439   Pretty.string_of (ProofContext.pretty_thms (Proof.context_of state)
   440     (Proof.get_thmss state args));
   440     (Proof.get_thmss state args));