src/Pure/Isar/method.ML
changeset 74261 d28a51dd9da6
parent 74245 282cd3aa6cc6
child 74558 44dc1661a5cb
equal deleted inserted replaced
74260:bb37fb85d82c 74261:d28a51dd9da6
    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