74 val with_facts_i: (thm * Proof.context attribute list) list * Comment.text |
74 val with_facts_i: (thm * Proof.context attribute list) list * Comment.text |
75 -> ProofHistory.T -> ProofHistory.T |
75 -> ProofHistory.T -> ProofHistory.T |
76 val chain: Comment.text -> ProofHistory.T -> ProofHistory.T |
76 val chain: Comment.text -> ProofHistory.T -> ProofHistory.T |
77 val fix: ((string list * string option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
77 val fix: ((string list * string option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
78 val fix_i: ((string list * typ option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
78 val fix_i: ((string list * typ option) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
79 val match_bind: ((string list * string) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
79 val let_bind: ((string list * string) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
80 val match_bind_i: ((term list * term) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
80 val let_bind_i: ((term list * term) * Comment.text) list -> ProofHistory.T -> ProofHistory.T |
81 val invoke_case: (string * Args.src list) * Comment.text -> ProofHistory.T -> ProofHistory.T |
81 val invoke_case: (string * Args.src list) * Comment.text -> ProofHistory.T -> ProofHistory.T |
82 val invoke_case_i: (string * Proof.context attribute list) * Comment.text |
82 val invoke_case_i: (string * Proof.context attribute list) * Comment.text |
83 -> ProofHistory.T -> ProofHistory.T |
83 -> ProofHistory.T -> ProofHistory.T |
84 val theorem: (bstring * Args.src list * (string * (string list * string list))) |
84 val theorem: (bstring * Args.src list * (string * (string list * string list))) |
85 * Comment.text -> bool -> theory -> ProofHistory.T |
85 * Comment.text -> bool -> theory -> ProofHistory.T |
286 |
286 |
287 (* context *) |
287 (* context *) |
288 |
288 |
289 val fix = ProofHistory.apply o Proof.fix o map Comment.ignore; |
289 val fix = ProofHistory.apply o Proof.fix o map Comment.ignore; |
290 val fix_i = ProofHistory.apply o Proof.fix_i o map Comment.ignore; |
290 val fix_i = ProofHistory.apply o Proof.fix_i o map Comment.ignore; |
291 val match_bind = ProofHistory.apply o Proof.match_bind o map Comment.ignore; |
291 val let_bind = ProofHistory.apply o Proof.let_bind o map Comment.ignore; |
292 val match_bind_i = ProofHistory.apply o Proof.match_bind_i o map Comment.ignore; |
292 val let_bind_i = ProofHistory.apply o Proof.let_bind_i o map Comment.ignore; |
293 |
293 |
294 fun invoke_case ((name, src), comment_ignore) = ProofHistory.apply (fn state => |
294 fun invoke_case ((name, src), comment_ignore) = ProofHistory.apply (fn state => |
295 Proof.invoke_case (name, map (Attrib.local_attribute (Proof.theory_of state)) src) state); |
295 Proof.invoke_case (name, map (Attrib.local_attribute (Proof.theory_of state)) src) state); |
296 val invoke_case_i = ProofHistory.apply o Proof.invoke_case o Comment.ignore; |
296 val invoke_case_i = ProofHistory.apply o Proof.invoke_case o Comment.ignore; |
297 |
297 |