proposition: Lemma add_near_r a b: pair_near a b -> pair_near (a+b) b.
proof: Proof. by rewrite /pair_near area_Dl area_xx addr0. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq choice fintype order bigop ssralg) mathcomp(div ssrnum ssrint rat prime path binomial) mathcomp(tuple finset) gaia(fibm)