fact: Definition scalar_mx n x := \matrix_(i , j < n) (if i == j then x else 0).
imports: ssreflect ssrbool ssrfun eqtype ssrnat seq choice fintype finfun bigops ssralg groups perm zmodp morphisms Ring RingClass bigopsClass Setoid Morphisms