fact: Definition cap_wl n m (I : 'cV_n) (J : 'cV_m) := divid (cap I J) I.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path) mathcomp(ssralg fintype perm choice matrix bigop zmodp mxalgebra poly) ssrcomplements dvdring stronglydiscrete