fact: Definition queens {M : nondetMonad} n : M (seq Z) := perms (map Z_of_nat (iota 0 n)) >>= assert (fun x => (safe1 empty (place n x)).1).
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monae_lib hierarchy monad_lib fail_lib state_lib