Lists, rationals, polynomials and intervals - Implementation (types and basic operations) : Rat.opp

let opp_rat = function Rat (r) -> Rat (Num.minus_num r)