let prop_of_float r = F.p_rcmp Formula.Cneq r F.r_zero