src/HOL/Nominal/nominal_induct.ML
changeset 18265 f3f81becc1f1
parent 18158 57cba2a340f2
child 18283 f8a49f09a202
equal deleted inserted replaced
18264:3b808e24667b 18265:f3f81becc1f1
    81 in
    81 in
    82 
    82 
    83 val nominal_induct_method =
    83 val nominal_induct_method =
    84   Method.RAW_METHOD_CASES o nominal_induct_tac oo (#2 oo Method.syntax nominal_induct_args);
    84   Method.RAW_METHOD_CASES o nominal_induct_tac oo (#2 oo Method.syntax nominal_induct_args);
    85 
    85 
    86 (* nominal_induc_method needs to have the type
       
    87 
       
    88    Args.src -> Proof.context -> Proof.method
       
    89 
       
    90    CHECK THAT
       
    91 
       
    92 *)
       
    93 
    86 
    94 end;
    87 end;