DEFINITION MODULE BibBolsa; FROM Bolsa IMPORT BOLSA; PROCEDURE EsIgual(b1,b2:BOLSA):BOOLEAN; PROCEDURE Union(VAR b:BOLSA; b1,b2:BOLSA); PROCEDURE Inter(VAR b:BOLSA; b1,b2:BOLSA); PROCEDURE Difer(VAR b:BOLSA; b1,b2:BOLSA); PROCEDURE DifSim(VAR b:BOLSA; b1,b2:BOLSA); END BibBolsa.