changeset 18265 | f3f81becc1f1 |
parent 18158 | 57cba2a340f2 |
child 18283 | f8a49f09a202 |
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; |