Conversion to perform addition on two rational literals of type :real.
The call REAL_RAT_MAX_CONV `max c1 c2` where c1 and c2 are rational
literals of type :real, returns |- max c1 c2 = d where d is the canonical
rational literal that is equal to max c1 c2. The literals c1 and c2 may
be integer literals (&n or -- &n), ratios (&p / &q or -- &p / &q), or
decimals (#DDD.DDDD or #DDD.DDDDeNN). The result d is always put in the
form &p / &q or -- &p / &q with q > 1 and p and q sharing no common
factor, or simply &p or -- &p when that is impossible.
Fails if applied to a term that is not the maximum operator applied to two
permitted rational literals of type :real.
# REAL_RAT_MAX_CONV `max (-- &9) (&22 / &7)`;;
val it : thm = |- max (-- &9) (&22 / &7) = &22 / &7