fact: Definition Typificationg n A S x s := [/\ Typ_auxg n A S, slistpl x n, slistpl s (slength S) & forall i, i <c slength s -> inc (Vg s i) (Typ_schemeg x A S i)].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq)