ttt : tactic
- load "tttUnfold"; load "tacticToe"; open tacticToe; (* output omitted *) > val it = () : unit - tttUnfold.ttt_record (); (* takes between 1 and 10 hours the first time it is called *) (* output omitted *) > val it = (): unit - ttt ([],``1+1=2``); Loading 3091 theorems Loading 12126 tactics tactictoe found a proof: (SRW_TAC []) [] > val it = ([], fn): goal list * validation