src/HOL/Tools/recfun_codegen.ML
changeset 38864 4abe644fcea5
parent 36692 54b64d4ad524
child 40844 5895c525739d
equal deleted inserted replaced
38859:053c69cb4a0e 38864:4abe644fcea5
    38         then [thm]
    38         then [thm]
    39         else [Code.expand_eta thy 1 thm]
    39         else [Code.expand_eta thy 1 thm]
    40       end
    40       end
    41   | avoid_value thy thms = thms;
    41   | avoid_value thy thms = thms;
    42 
    42 
    43 fun get_equations thy defs (raw_c, T) = if raw_c = @{const_name "op ="} then ([], "") else
    43 fun get_equations thy defs (raw_c, T) = if raw_c = @{const_name HOL.eq} then ([], "") else
    44   let
    44   let
    45     val c = AxClass.unoverload_const thy (raw_c, T);
    45     val c = AxClass.unoverload_const thy (raw_c, T);
    46     val raw_thms = Code.get_cert thy (Code_Preproc.preprocess_functrans thy) c
    46     val raw_thms = Code.get_cert thy (Code_Preproc.preprocess_functrans thy) c
    47       |> Code.bare_thms_of_cert thy
    47       |> Code.bare_thms_of_cert thy
    48       |> map (AxClass.overload thy)
    48       |> map (AxClass.overload thy)