fact: Record morphism_of (M N : fpmod) := Morphism { matrix_of_morphism : 'M[R]_(nbgen M,nbgen N); _ : (pres N %| pres M *m matrix_of_morphism)%MP }.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path) mathcomp(ssralg fintype perm choice matrix bigop zmodp mxalgebra poly) ssrcomplements stronglydiscrete coherent edr