let
sub_rat =
function
Rat
r1,
Rat
r2
->
Rat
(
Num
.sub_num r1 r2)