src/Tools/Code/code_preproc.ML
changeset 35624 c4e29a0bb8c1
parent 35235 7c7cfe69d7f6
child 36102 a51d1d154c71
equal deleted inserted replaced
35623:b0de8551fadf 35624:c4e29a0bb8c1
    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;