equal
deleted
inserted
replaced
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; |