4 #include "base/cl_sysdep.h"
7 #include "cln/rational.h"
12 #include "rational/cl_RA.h"
13 #include "cln/integer.h"
17 const cl_RA minus1 (const cl_RA& r)
20 // Falls r ein Integer ist: I_minus1_plus_I anwenden
21 // Falls r = a/b: (a-b)/b, wobei b>1 und ggT(a-b,b)=ggT(a,b)=1 ist.
27 var const cl_I& a = numerator(r);
28 var const cl_I& b = denominator(r);
29 return I_I_to_RT(a-b,b);