Return to standard_natural_ring.ads CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers |
1.1 ! maekawa 1: with Standard_Natural_Numbers; use Standard_Natural_Numbers; ! 2: with Abstract_Ring; ! 3: ! 4: package Standard_Natural_Ring is ! 5: new Abstract_Ring(natural,0,1,Create,Equal,Copy,"+","+","-","-","*", ! 6: Add,Sub,Min,Mul,Clear); ! 7: ! 8: -- DESCRIPTION : ! 9: -- Defines the ring of standard natural numbers.