fact: Definition getEquivList (Ar : rArray vM) (a : rZ) : list rZ := match a with | rZPlus a' => match getEquiv Ar a' with | (L, true) => map rZComp L | (L, false) => L end | rZMinus a' => match getEquiv Ar a' with | (L, true) => L | (L, false) => map rZComp L end end.