equal
deleted
inserted
replaced
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 |