proposition: Lemma rad_ker : rad = kermx M.
proof: Proof. by rewrite /rad /ortho trmx1 map_mx1 mulmx1. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg fingroup zmodp poly ssrnum) mathcomp(matrix mxalgebra vector falgebra ssrnum algC algnum) mathcomp(fieldext) mathcomp(vector)