src/Pure/proof_general.ML
changeset 16022 96a9bf7ac18d
parent 15992 cb02d70a2040
child 16259 aed1a8ae4b23
equal deleted inserted replaced
16021:ff83bc2151bf 16022:96a9bf7ac18d
   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