DEFINITION MODULE BibRac;
FROM Racional IMPORT RACIONAL;

PROCEDURE Copiar(VAR r1:RACIONAL; r2:RACIONAL);

PROCEDURE Sumar(VAR r:RACIONAL; r1,r2:RACIONAL);
PROCEDURE Restar(VAR r:RACIONAL; r1,r2:RACIONAL);
PROCEDURE Multiplicar(VAR r:RACIONAL; r1,r2:RACIONAL);
PROCEDURE Dividir(VAR r:RACIONAL; r1,r2:RACIONAL);

PROCEDURE EsIgual(r1,r2:RACIONAL):BOOLEAN;

END BibRac.
