fact: Definition Typ_auxg n A S := [/\ natp n, slistp A, slistp S & forall i, inc i (domain S) -> echelon (Vg S i) /\ esize (Vg S i) <=c n +c slength A].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq)