          
/* ========================================================================== */
/*                        ADDING FUNCTIONS TO PROLOG                          */
/* ========================================================================== */

:- module(
          functions,
          [
             sup/2				            
          ]
         ). 

/* ========================================================================= */
/*                                                                           */
/* ========================================================================= */


:- arithmitic_function(sup/2).   
   
sup(X, Y, X) :-
   X >= Y,
   !.
   
sup(_X, Y, Y).   
   


/* ============================= END OF LISTING ====================================== */


        
        
