equal
deleted
inserted
replaced
36 val try_intros_tac: Proof.context -> thm list -> thm list -> tactic |
36 val try_intros_tac: Proof.context -> thm list -> thm list -> tactic |
37 val rule: Proof.context -> thm list -> method |
37 val rule: Proof.context -> thm list -> method |
38 val erule: Proof.context -> int -> thm list -> method |
38 val erule: Proof.context -> int -> thm list -> method |
39 val drule: Proof.context -> int -> thm list -> method |
39 val drule: Proof.context -> int -> thm list -> method |
40 val frule: Proof.context -> int -> thm list -> method |
40 val frule: Proof.context -> int -> thm list -> method |
|
41 val method_space: Context.generic -> Name_Space.T |
41 val set_tactic: (morphism -> thm list -> tactic) -> Context.generic -> Context.generic |
42 val set_tactic: (morphism -> thm list -> tactic) -> Context.generic -> Context.generic |
42 val clean_facts: thm list -> thm list |
43 val clean_facts: thm list -> thm list |
43 val set_facts: thm list -> Proof.context -> Proof.context |
44 val set_facts: thm list -> Proof.context -> Proof.context |
44 val get_facts: Proof.context -> thm list |
45 val get_facts: Proof.context -> thm list |
45 type combinator_info |
46 type combinator_info |
310 |
311 |
311 val ops_methods = |
312 val ops_methods = |
312 {get_data = get_methods, |
313 {get_data = get_methods, |
313 put_data = fn methods => map_data (fn (_, ml_tactic, facts) => (methods, ml_tactic, facts))}; |
314 put_data = fn methods => map_data (fn (_, ml_tactic, facts) => (methods, ml_tactic, facts))}; |
314 |
315 |
|
316 val method_space = Name_Space.space_of_table o get_methods; |
|
317 |
315 |
318 |
316 (* ML tactic *) |
319 (* ML tactic *) |
317 |
320 |
318 fun set_tactic ml_tactic = map_data (fn (methods, _, facts) => (methods, SOME ml_tactic, facts)); |
321 fun set_tactic ml_tactic = map_data (fn (methods, _, facts) => (methods, SOME ml_tactic, facts)); |
319 |
322 |