fact: Definition unitZ := [qualify a n : Z | (n == Z.pos xH) || (n == Z.neg xH)].
imports: Coq(ZArith) HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(div choice fintype tuple finfun bigop finset prime) mathcomp(order binomial ssralg countalg ssrnum ssrint) mathcomp(zify_ssreflect)