Definition primesGI (x : GI) :=
[seq i <- [seq GI_of_ord i| i : ordinalGI ('N x).+1] |
primeGI i && (i %| x)].

Lemma mem_primesGI  (p x : GI) :
(p \in primesGI x) = [&& primeGI p, x != 0 & p %| x].