let tac = apply_tactic ~disambiguate_tactic (text,prefix_len,tac) in
let status = eval_tactical status (tactic_of_ast' tac) in
(* CALL auto on every goal, easy way of testing it
- let auto = GrafiteAst.AutoBatch (loc, ([],["depth","1";"timeout","1"])) in
+ let auto =
+ GrafiteAst.AutoBatch
+ (loc, ([],["depth","2";"timeout","1";"type","1"])) in
(try
let auto = apply_tactic ~disambiguate_tactic ("",0,auto) in
- let _ = eval_tactical status (tactic_of_ast' auto) in ()
- with _ -> ()); *)
+ let _ = eval_tactical status (tactic_of_ast' auto) in
+ print_endline "GOOD"; ()
+ with ProofEngineTypes.Fail _ -> print_endline "BAD" | _ -> ());
+ *)
eval_tactical status
(punctuation_tactical_of_ast (text,prefix_len,punct)),[]
| GrafiteAst.Tactic (_, None, punct) ->