# HG changeset patch # User haftmann # Date 1682786441 -7200 # Node ID 909efe20ff3b9820df19f4621f37f0a8158a035e # Parent d28dcd57d2f341e8e1c9f0735296f1bbc80a25f1 Backed out changeset 5016262a2384 diff -r d28dcd57d2f3 -r 909efe20ff3b src/Tools/Code/code_thingol.ML --- a/src/Tools/Code/code_thingol.ML Sun Apr 30 12:37:29 2023 +1000 +++ b/src/Tools/Code/code_thingol.ML Sat Apr 29 18:40:41 2023 +0200 @@ -818,7 +818,7 @@ ##>> translate_case ctxt algbr eqngr permissive some_thm pattern_schema (c_ty, ts1) ##>> translate_typ ctxt algbr eqngr permissive rty ##>> fold_map (translate_term ctxt algbr eqngr permissive some_thm NONE) ts2 - #>> (fn (((vs_tys, t), rty), ts) => (vs_tys `|==> (t, case rty of "fun" `%% [_, rty] => rty | _ => rty)) `$$ ts) + #>> (fn (((vs_tys, t), rty), ts) => (vs_tys `|==> (t, rty)) `$$ ts) and translate_app ctxt algbr eqngr permissive some_thm some_abs (c_ty as (c, ty), ts) = case Code.get_case_schema (Proof_Context.theory_of ctxt) c of SOME (wanted, pattern_schema) =>