fact: Fixpoint dim_ker_c m n : 'M[R]_(m,n) -> nat := if n is p.+1 then fun (M: 'M[R]_(m,1 + _)) => dim_ker_c (ker_col (lsubmx M) *m rsubmx M) else fun => m.
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