src/Pure/Isar/instance.ML
changeset 26269 5bb50f58a113
parent 25864 11f531354852
child 26516 1bf210ac0a90
equal deleted inserted replaced
26268:80aaf4d034be 26269:5bb50f58a113
    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;