fact: Definition mul_itv_boundl_subdef (b1 b2 : itv_bound int) : itv_bound int := match b1, b2 with | BSide true 0%Z, BSide _ _ | BSide _ _, BSide true 0%Z => BSide true 0%Z | BSide b1 x1, BSide b2 x2 => BSide (b1 && b2) (intRing.mulz x1 x2) | _, BInfty _ | BInfty _, _ => BInfty _ false end.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool) mathcomp(ssrnat eqtype choice order ssralg ssrnum ssrint) mathcomp(interval) mathcomp(mathcomp_extra boolp) signed