equal
deleted
inserted
replaced
3200 val _ = |
3200 val _ = |
3201 Outer_Syntax.improper_command @{command_spec "refute"} |
3201 Outer_Syntax.improper_command @{command_spec "refute"} |
3202 "try to find a model that refutes a given subgoal" |
3202 "try to find a model that refutes a given subgoal" |
3203 (scan_parms -- Scan.optional Parse.nat 1 >> |
3203 (scan_parms -- Scan.optional Parse.nat 1 >> |
3204 (fn (parms, i) => |
3204 (fn (parms, i) => |
|
3205 Toplevel.unknown_proof o |
3205 Toplevel.keep (fn state => |
3206 Toplevel.keep (fn state => |
3206 let |
3207 let |
3207 val ctxt = Toplevel.context_of state; |
3208 val ctxt = Toplevel.context_of state; |
3208 val {goal = st, ...} = Proof.raw_goal (Toplevel.proof_of state); |
3209 val {goal = st, ...} = Proof.raw_goal (Toplevel.proof_of state); |
3209 in refute_goal ctxt parms st i; () end))); |
3210 in refute_goal ctxt parms st i; () end))); |