fact: Definition safeAcc i (us ds : seq Z) (xs : seq Z) := let us' := ups xs i in let ds' := downs xs i in uniq us' && uniq ds' && all (fun x => x \notin us) us' && all (fun x => x \notin ds) ds'.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monae_lib hierarchy monad_lib fail_lib state_lib