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