equal
deleted
inserted
replaced
1247 val (_, ((Rule_Cases.Case {fixes, assumes, binds, cases}, {legacy}), _)) = |
1247 val (_, ((Rule_Cases.Case {fixes, assumes, binds, cases}, {legacy}), _)) = |
1248 Name_Space.check (Context.Proof ctxt) (cases_of ctxt) (name, pos); |
1248 Name_Space.check (Context.Proof ctxt) (cases_of ctxt) (name, pos); |
1249 val _ = |
1249 val _ = |
1250 if legacy then |
1250 if legacy then |
1251 legacy_feature ("Bad case " ^ quote name ^ Position.here pos ^ |
1251 legacy_feature ("Bad case " ^ quote name ^ Position.here pos ^ |
1252 " -- use proof method \"goals\" instead") |
1252 " -- use proof method \"goal_cases\" instead") |
1253 else (); |
1253 else (); |
1254 |
1254 |
1255 val _ = List.app (fn NONE => () | SOME b => ignore (check_var internal b)) param_specs; |
1255 val _ = List.app (fn NONE => () | SOME b => ignore (check_var internal b)) param_specs; |
1256 fun replace (opt_x :: xs) ((y, T) :: ys) = (the_default y opt_x, T) :: replace xs ys |
1256 fun replace (opt_x :: xs) ((y, T) :: ys) = (the_default y opt_x, T) :: replace xs ys |
1257 | replace [] ys = ys |
1257 | replace [] ys = ys |