src/HOL/Eisbach/match_method.ML
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