fact: Definition beq_ArcticDom x y := match x, y with | Pos x', Pos y' => beq_nat x' y' | MinusInf, MinusInf => true | _, _ => false end.
imports: Coq(Relations Arith Compare Bool Setoid Morphisms) CoLoR(RelDec LogicUtil RelExtras EqUtil NatUtil ZUtil) Bignums(BigN) Coq(ZArith) Bignums(BigZ)