real.exp_1_approx_succ_eq source