src/Pure/Isar/class.ML
changeset 24770 695a8e087b9f
parent 24766 d0de4e48b526
child 24836 dab06e93ec28
equal deleted inserted replaced
24769:1372969969e0 24770:695a8e087b9f
   786         |> add_class_const_def (class, ((c', (rhs, typidx)), def'))
   786         |> add_class_const_def (class, ((c', (rhs, typidx)), def'))
   787       end;
   787       end;
   788   in
   788   in
   789     thy
   789     thy
   790     |> Sign.add_path prfx
   790     |> Sign.add_path prfx
   791     |> Sign.add_consts_authentic [(c, ty', syn')]
   791     |> Sign.add_consts_authentic [] [(c, ty', syn')]
   792     |> Sign.parent_path
   792     |> Sign.parent_path
   793     |> Sign.sticky_prefix prfx
   793     |> Sign.sticky_prefix prfx
   794     |> PureThy.add_defs_i false [(def, [])]
   794     |> PureThy.add_defs_i false [(def, [])]
   795     |-> (fn [def] => interpret def)
   795     |-> (fn [def] => interpret def)
   796     |> Sign.add_const_constraint (c', SOME ty'')
   796     |> Sign.add_const_constraint (c', SOME ty'')