fact: Definition getEquivProp : forall Ar : rArray vM, wellFormedArray Ar -> forall a : rNat, match getEquiv Ar a with | (L, true) => OlistRz L /\ (forall c : rZ, In (rZComp c) L <-> evalZ Ar c = evalZ Ar (rZPlus a)) | (L, false) => OlistRz L /\ (forall c : rZ, In c L <-> evalZ Ar c = evalZ Ar (rZPlus a)) end.