fact: Definition Aplus m n := match m, n with | MinusInfBZ, n => n | m, MinusInfBZ => m | Fin m, Fin n => Fin (Z.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) CoLoR(ZUtil)