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