fact: Fixpoint dim_int n : 'cV[R]_n -> nat := if n is p.+1 then fun (V : 'cV[R]_(1 + p)) => let v := usubmx V in let vs := dsubmx V : 'cV[R]_p in ((dim_cap v (-vs)).+1 + dim_int vs)%N else fun => 0%N.
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