changeset 61834 | 2154e6c8d52d |
parent 61818 | 6de8e7ad95c3 |
child 61835 | 2111b95e692f |
--- a/src/HOL/Eisbach/match_method.ML Thu Dec 10 21:39:33 2015 +0100 +++ b/src/HOL/Eisbach/match_method.ML Fri Dec 11 13:44:20 2015 +0100 @@ -776,7 +776,7 @@ val goal' = DROP_CASES (Method_Closure.method_evaluate text ctxt' using) focused_goal |> Seq.maps (DETERM (do_retrofit ctxt')) - |> Seq.map (fn goal => ([]: cases, goal)); + |> Seq.map (fn goal => ([]: Rule_Cases.cases, goal)); in goal' end; in Seq.map apply_text texts