proposition: Lemma mulmono_eq0 (L : {fpmod R}) (phi : 'Mono(M,N)) (Y : 'Mor(L, M)) : (Y ** phi %= 0) = (Y %= 0).
proof: Proof. apply/idP/idP; first by move/mono. by move=> /eqmorMr /eqmor_ltrans ->; rewrite mul0mor. Qed.
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