src/HOL/HOL.thy
changeset 20036 fa655d0e18c2
parent 20018 5419a71d0baa
child 20172 b65eb8145f5e
equal deleted inserted replaced
20035:80c79876d2de 20036:fa655d0e18c2
  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