fact: Fixpoint ker_c_int m : forall (V : 'cV_m),'M_(dim_int V,m) := if m is p.+1 return forall V : 'cV_m, 'M_(dim_int V,m) then fun (V' : 'cV_(1 + p)) => let v := usubmx V' in let vs := dsubmx V' in let m0 := ker_c_int vs in let wv := cap_wl v (-vs) in let wvs := cap_wr v (-vs) in block_mx (if v == 0 then delta_mx 0 0 else wv) (if v == 0 then 0 else wvs) 0 m0 else fun => 0.
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