theory A imports Pure 
begin

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

end