src/Tools/intuitionistic.ML
changeset 54742 7a86358a3c0b
parent 52732 b4da1f2ec73f
child 55627 95c8ef02f04b
     1.1 --- a/src/Tools/intuitionistic.ML	Fri Dec 13 23:53:02 2013 +0100
     1.2 +++ b/src/Tools/intuitionistic.ML	Sat Dec 14 17:28:05 2013 +0100
     1.3 @@ -89,7 +89,7 @@
     1.4    Method.setup name
     1.5      (Scan.lift (Scan.option Parse.nat) --| Method.sections modifiers >>
     1.6        (fn opt_lim => fn ctxt =>
     1.7 -        SIMPLE_METHOD' (Object_Logic.atomize_prems_tac THEN' prover_tac ctxt opt_lim)))
     1.8 +        SIMPLE_METHOD' (Object_Logic.atomize_prems_tac ctxt THEN' prover_tac ctxt opt_lim)))
     1.9      "intuitionistic proof search";
    1.10  
    1.11  end;