fact: Definition seqmx_of_fun m n (f : I m -> I n -> A) : hseqmx m n := let enum_n := map implem (ord_enum_eq n) in let enum_m := map implem (ord_enum_eq m) in map (fun i => map (f i) enum_n) enum_m.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq ssralg) mathcomp(path choice fintype tuple finset bigop poly matrix mxpoly) CoqEAL(hrel param refinements trivial_seq)