fact: Definition primitive := [transitive A, on S | to] && ~~ [exists Q, imprimitivity_system Q].
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat) mathcomp(div seq fintype tuple finset) mathcomp(fingroup action gseries)