theory A = Pure:;

consts foo :: 'a;
consts bar :: 'a;

end;