equal
deleted
inserted
replaced
119 -> Toplevel.transition -> Toplevel.transition |
119 -> Toplevel.transition -> Toplevel.transition |
120 val qed: (Method.text * Comment.interest) option -> Toplevel.transition -> Toplevel.transition |
120 val qed: (Method.text * Comment.interest) option -> Toplevel.transition -> Toplevel.transition |
121 val terminal_proof: Method.text * Comment.interest -> Toplevel.transition -> Toplevel.transition |
121 val terminal_proof: Method.text * Comment.interest -> Toplevel.transition -> Toplevel.transition |
122 val immediate_proof: Toplevel.transition -> Toplevel.transition |
122 val immediate_proof: Toplevel.transition -> Toplevel.transition |
123 val default_proof: Toplevel.transition -> Toplevel.transition |
123 val default_proof: Toplevel.transition -> Toplevel.transition |
|
124 val skip_proof: Toplevel.transition -> Toplevel.transition |
124 val also: ((string * Args.src list) list * Comment.interest) option * Comment.text |
125 val also: ((string * Args.src list) list * Comment.interest) option * Comment.text |
125 -> Toplevel.transition -> Toplevel.transition |
126 -> Toplevel.transition -> Toplevel.transition |
126 val also_i: (thm list * Comment.interest) option * Comment.text |
127 val also_i: (thm list * Comment.interest) option * Comment.text |
127 -> Toplevel.transition -> Toplevel.transition |
128 -> Toplevel.transition -> Toplevel.transition |
128 val finally: ((string * Args.src list) list * Comment.interest) option * Comment.text |
129 val finally: ((string * Args.src list) list * Comment.interest) option * Comment.text |
329 val local_terminal_proof = |
330 val local_terminal_proof = |
330 proof'' o (ProofHistory.applys_close oo Method.local_terminal_proof) o Comment.ignore_interest; |
331 proof'' o (ProofHistory.applys_close oo Method.local_terminal_proof) o Comment.ignore_interest; |
331 |
332 |
332 val local_immediate_proof = proof'' (ProofHistory.applys_close o Method.local_immediate_proof); |
333 val local_immediate_proof = proof'' (ProofHistory.applys_close o Method.local_immediate_proof); |
333 val local_default_proof = proof'' (ProofHistory.applys_close o Method.local_default_proof); |
334 val local_default_proof = proof'' (ProofHistory.applys_close o Method.local_default_proof); |
|
335 val local_skip_proof = proof'' (ProofHistory.applys_close o SkipProof.local_skip_proof); |
334 |
336 |
335 |
337 |
336 (* global endings *) |
338 (* global endings *) |
337 |
339 |
338 val kill_proof = Proof.theory_of o ProofHistory.current; |
340 val kill_proof = Proof.theory_of o ProofHistory.current; |
355 val global_qed = global_qed_with (None, None); |
357 val global_qed = global_qed_with (None, None); |
356 |
358 |
357 val global_terminal_proof = global_result o Method.global_terminal_proof o Comment.ignore_interest; |
359 val global_terminal_proof = global_result o Method.global_terminal_proof o Comment.ignore_interest; |
358 val global_immediate_proof = global_result Method.global_immediate_proof; |
360 val global_immediate_proof = global_result Method.global_immediate_proof; |
359 val global_default_proof = global_result Method.global_default_proof; |
361 val global_default_proof = global_result Method.global_default_proof; |
|
362 val global_skip_proof = global_result SkipProof.global_skip_proof; |
360 |
363 |
361 |
364 |
362 (* common endings *) |
365 (* common endings *) |
363 |
366 |
364 fun qed meth = local_qed meth o global_qed meth; |
367 fun qed meth = local_qed meth o global_qed meth; |
365 fun terminal_proof meth = local_terminal_proof meth o global_terminal_proof meth; |
368 fun terminal_proof meth = local_terminal_proof meth o global_terminal_proof meth; |
366 val immediate_proof = local_immediate_proof o global_immediate_proof; |
369 val immediate_proof = local_immediate_proof o global_immediate_proof; |
367 val default_proof = local_default_proof o global_default_proof; |
370 val default_proof = local_default_proof o global_default_proof; |
|
371 val skip_proof = local_skip_proof o global_skip_proof; |
368 |
372 |
369 |
373 |
370 (* calculational proof commands *) |
374 (* calculational proof commands *) |
371 |
375 |
372 local |
376 local |