proposition: Lemma add_near_l a b: pair_near a b -> pair_near a (a+b).
proof: Proof. by rewrite /pair_near area_Dr area_xx add0r. 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)