fact: Definition bnd (i : itv_bound nat) (m : nat) : nat := match i with | BSide b n => n + ~~ b | BInfty b => if b then 0 else m end.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval order) pcm(options prelude ordtype seqext)