src/Pure/Isar/skip_proof.ML
changeset 29088 95a239a5e055
parent 28552 f8719bcc5006
child 29435 a5f84ac14609
equal deleted inserted replaced
29087:40fbcea084ff 29088:95a239a5e055
    32 
    32 
    33 fun cheat_tac thy st =
    33 fun cheat_tac thy st =
    34   ALLGOALS (Tactic.rtac (make_thm thy (Var (("A", 0), propT)))) st;
    34   ALLGOALS (Tactic.rtac (make_thm thy (Var (("A", 0), propT)))) st;
    35 
    35 
    36 fun prove ctxt xs asms prop tac =
    36 fun prove ctxt xs asms prop tac =
    37   (if ! future_scheduler then Goal.prove_future else Goal.prove) ctxt xs asms prop
    37   (if Future.enabled () then Goal.prove_future else Goal.prove) ctxt xs asms prop
    38     (fn args => fn st =>
    38     (fn args => fn st =>
    39       if ! quick_and_dirty
    39       if ! quick_and_dirty
    40       then setmp quick_and_dirty true (cheat_tac (ProofContext.theory_of ctxt)) st
    40       then setmp quick_and_dirty true (cheat_tac (ProofContext.theory_of ctxt)) st
    41       else tac args st);
    41       else tac args st);
    42 
    42