1
2
fun auto1 x = prove_goal (the_context ()) x
3
(fn prems => [best_tac safe_cs 1]) ;
4
5
fun auto2 x = prove_goal (the_context ()) x
6
(fn prems => [best_tac power_cs 1]) ;