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