src/Sequents/ILL/ILL_predlog.ML

tuned induct proofs;

fun auto1 x = prove_goal (the_context ()) x
 (fn prems => [best_tac safe_cs 1]) ;

fun auto2 x = prove_goal (the_context ()) x
 (fn prems => [best_tac power_cs 1]) ;