equal
deleted
inserted
replaced
1259 val evaluation_meth = |
1259 val evaluation_meth = |
1260 Method.no_args (Method.METHOD (fn _ => evaluation_tac 1 THEN rtac TrueI 1)); |
1260 Method.no_args (Method.METHOD (fn _ => evaluation_tac 1 THEN rtac TrueI 1)); |
1261 |
1261 |
1262 in |
1262 in |
1263 |
1263 |
|
1264 val evaluation_conv = evaluation_conv; |
|
1265 |
1264 val eq_codegen_setup = Codegen.add_codegen "eq_codegen" eq_codegen; |
1266 val eq_codegen_setup = Codegen.add_codegen "eq_codegen" eq_codegen; |
1265 |
1267 |
1266 val evaluation_oracle_setup = |
1268 val evaluation_oracle_setup = |
1267 Theory.add_oracle ("Evaluation", evaluation_oracle) #> |
1269 Theory.add_oracle ("Evaluation", evaluation_oracle) #> |
1268 Method.add_method ("evaluation", evaluation_meth, "solve goal by evaluation"); |
1270 Method.add_method ("evaluation", evaluation_meth, "solve goal by evaluation"); |
1291 |
1293 |
1292 val normalization_meth = |
1294 val normalization_meth = |
1293 Method.no_args (Method.METHOD (fn _ => normalization_tac 1 THEN resolve_tac [TrueI,refl] 1)); |
1295 Method.no_args (Method.METHOD (fn _ => normalization_tac 1 THEN resolve_tac [TrueI,refl] 1)); |
1294 |
1296 |
1295 in |
1297 in |
|
1298 |
|
1299 val normalization_conv = normalization_conv; |
1296 |
1300 |
1297 val normalization_oracle_setup = |
1301 val normalization_oracle_setup = |
1298 Theory.add_oracle ("Normalization", normalization_oracle) #> |
1302 Theory.add_oracle ("Normalization", normalization_oracle) #> |
1299 Method.add_method ("normalization", normalization_meth, "solve goal by normalization"); |
1303 Method.add_method ("normalization", normalization_meth, "solve goal by normalization"); |
1300 |
1304 |