equal
deleted
inserted
replaced
369 Toplevel.prompt_state_default)); |
369 Toplevel.prompt_state_default)); |
370 end |
370 end |
371 |
371 |
372 end |
372 end |
373 |
373 |
|
374 |
374 (* misc commands for ProofGeneral/isa *) |
375 (* misc commands for ProofGeneral/isa *) |
375 |
376 |
376 (* PG/isa mode does not go through the Isar parser, hence we |
|
377 interpret everything as term pattern only *) |
|
378 fun thms_containing ss = |
377 fun thms_containing ss = |
379 ProofContext.print_thms_containing (ProofContext.init (the_context ())) NONE NONE |
378 FindTheorems.print_theorems (ProofContext.init (the_context ())) NONE NONE |
380 (map (fn s => (true, ProofContext.Pattern s)) ss); |
379 (map (fn s => (true, FindTheorems.Pattern s)) ss); |
381 |
380 |
382 val welcome = priority o Session.welcome; |
381 val welcome = priority o Session.welcome; |
383 val help = welcome; |
382 val help = welcome; |
384 val show_context = Context.the_context; |
383 val show_context = Context.the_context; |
385 |
384 |