equal
deleted
inserted
replaced
52 thy |
52 thy |
53 |> TheoryTarget.instantiation ([tyco], vs, sort) |
53 |> TheoryTarget.instantiation ([tyco], vs, sort) |
54 |> `(fn ctxt => map (mk_def ctxt) defs) |
54 |> `(fn ctxt => map (mk_def ctxt) defs) |
55 |-> (fn defs => fold_map Specification.definition defs) |
55 |-> (fn defs => fold_map Specification.definition defs) |
56 |> snd |
56 |> snd |
57 |> LocalTheory.reinit |
57 |> LocalTheory.restore |
58 |> Class.instantiation_instance Class.conclude_instantiation |
58 |> Class.instantiation_instance Class.conclude_instantiation |
59 else |
59 else |
60 thy |
60 thy |
61 |> Class.instance_arity I (tyco, map snd vs, sort) |
61 |> Class.instance_arity I (tyco, map snd vs, sort) |
62 end; |
62 end; |