fact: Variable R_bool_ok : forall a1 a2, match R_bool a1 a2 with | true => R a1 a2 | false => ~ R a1 a2 end.
imports: Coq(Relations List Multiset Arith Morphisms FunInd) CoLoR(closure more_list list_permut ordered_set)