fact: Definition eqid m n (I : 'cV[R]_m) (J : 'cV[R]_n) := forall p (K : 'cV[R]_p), (((I <= K)%IS = (J <= K)%IS) * ((K <= I)%IS = (K <= J)%IS))%type.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq path) mathcomp(ssralg fintype perm choice fingroup) mathcomp(matrix bigop zmodp mxalgebra poly) ssrcomplements