src/Pure/raw_simplifier.ML
changeset 78084 f0aca0506531
parent 78078 35a86345de48
child 78114 43154a48da69
equal deleted inserted replaced
78083:3357bc875b11 78084:f0aca0506531
    63   val prune_params_tac: Proof.context -> tactic
    63   val prune_params_tac: Proof.context -> tactic
    64   val fold_rule: Proof.context -> thm list -> thm -> thm
    64   val fold_rule: Proof.context -> thm list -> thm -> thm
    65   val fold_goals_tac: Proof.context -> thm list -> tactic
    65   val fold_goals_tac: Proof.context -> thm list -> tactic
    66   val norm_hhf: Proof.context -> thm -> thm
    66   val norm_hhf: Proof.context -> thm -> thm
    67   val norm_hhf_protect: Proof.context -> thm -> thm
    67   val norm_hhf_protect: Proof.context -> thm -> thm
    68   val norm_hhf_protect_without_context: thm -> thm
       
    69 end;
    68 end;
    70 
    69 
    71 signature RAW_SIMPLIFIER =
    70 signature RAW_SIMPLIFIER =
    72 sig
    71 sig
    73   include BASIC_RAW_SIMPLIFIER
    72   include BASIC_RAW_SIMPLIFIER
  1447 in
  1446 in
  1448 
  1447 
  1449 val norm_hhf = gen_norm_hhf {protect = false} hhf_ss;
  1448 val norm_hhf = gen_norm_hhf {protect = false} hhf_ss;
  1450 val norm_hhf_protect = gen_norm_hhf {protect = true} hhf_protect_ss;
  1449 val norm_hhf_protect = gen_norm_hhf {protect = true} hhf_protect_ss;
  1451 
  1450 
  1452 fun norm_hhf_protect_without_context th =
       
  1453   norm_hhf_protect (Proof_Context.init_global (Thm.theory_of_thm th)) th;
       
  1454 
       
  1455 end;
  1451 end;
  1456 
  1452 
  1457 end;
  1453 end;
  1458 
  1454 
  1459 structure Basic_Meta_Simplifier: BASIC_RAW_SIMPLIFIER = Raw_Simplifier;
  1455 structure Basic_Meta_Simplifier: BASIC_RAW_SIMPLIFIER = Raw_Simplifier;