let delta = 0.01;;
let fabs a = if a < 0. then 0. -. a else a;;
let ( +- ) a b = fabs(b -. a) < delta;;
Remarque :
on definit alors l'operateur +-, qui prend des floats, et qui renvoie un bool, selon la distance entre a et b (qui doit-etre infereur a delta...)