equal
deleted
inserted
replaced
85 val add_post = map_post o MetaSimplifier.add_simp; |
85 val add_post = map_post o MetaSimplifier.add_simp; |
86 val del_post = map_post o MetaSimplifier.del_simp; |
86 val del_post = map_post o MetaSimplifier.del_simp; |
87 |
87 |
88 fun add_unfold_post raw_thm thy = |
88 fun add_unfold_post raw_thm thy = |
89 let |
89 let |
90 val thm = LocalDefs.meta_rewrite_rule (ProofContext.init thy) raw_thm; |
90 val thm = Local_Defs.meta_rewrite_rule (ProofContext.init thy) raw_thm; |
91 val thm_sym = Thm.symmetric thm; |
91 val thm_sym = Thm.symmetric thm; |
92 in |
92 in |
93 thy |> map_pre_post (fn (pre, post) => |
93 thy |> map_pre_post (fn (pre, post) => |
94 (pre |> MetaSimplifier.add_simp thm, post |> MetaSimplifier.del_simp thm_sym)) |
94 (pre |> MetaSimplifier.add_simp thm, post |> MetaSimplifier.del_simp thm_sym)) |
95 end; |
95 end; |