fact: Definition Aplus m n := match m, n with | MinusInf, n => n | m, MinusInf => m | Pos m, Pos n => Pos (max m n) end.
imports: Coq(Relations Arith Compare Bool Setoid Morphisms) CoLoR(RelDec LogicUtil RelExtras EqUtil NatUtil ZUtil) Bignums(BigN) Coq(ZArith) Bignums(BigZ)