fact: Fixpoint bareiss_rec m (a : polyR) : mxpolyR (1 + m) (1 + m) -> polyR := match m with | S p => fun M => let d := top_left M in let l := ursubmx M in let c := dlsubmx M in let N := drsubmx M in let M' := (d *: N - c *m l)%HC in let M'' := map_mx (fun x => x %/ a) M' in bareiss_rec d M'' | _ => fun M => top_left M end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path ssralg) mathcomp(fintype perm choice matrix bigop zmodp poly polydiv mxpoly) CoqEAL(minor hrel param refinements seqmx)