src/HOL/Tools/BNF/bnf_gfp_rec_sugar_tactics.ML
changeset 74266 612b7e0d6721
parent 74200 17090e27aae9
child 74381 79f484b0e35b
equal deleted inserted replaced
74265:633fe7390c97 74266:612b7e0d6721
   158     let
   158     let
   159       val s = Name.uu;
   159       val s = Name.uu;
   160       val eq = Abs (Name.uu, T, HOLogic.mk_eq (Free (s, T), Bound 0));
   160       val eq = Abs (Name.uu, T, HOLogic.mk_eq (Free (s, T), Bound 0));
   161     in
   161     in
   162       Thm.instantiate' [] [SOME (Thm.cterm_of ctxt eq)] split
   162       Thm.instantiate' [] [SOME (Thm.cterm_of ctxt eq)] split
   163       |> Drule.generalize (Symtab.empty, Symtab.make_set [s])
   163       |> Drule.generalize (Names.empty, Names.make_set [s])
   164     end
   164     end
   165   | _ => split);
   165   | _ => split);
   166 
   166 
   167 fun raw_code_single_tac ctxt distincts discIs splits split_asms m fun_ctr =
   167 fun raw_code_single_tac ctxt distincts discIs splits split_asms m fun_ctr =
   168   let
   168   let