src/Pure/Isar/proof_context.ML
changeset 61168 dcdfb6355a05
parent 60924 610794dff23c
child 61261 ddb2da7cb2e4
equal deleted inserted replaced
61167:34f782641caa 61168:dcdfb6355a05
  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