src/HOL/Library/Efficient_Nat.thy
changeset 37223 5226259b6fa2
parent 37050 4a021f6be77c
child 37388 793618618f78
     1.1 --- a/src/HOL/Library/Efficient_Nat.thy	Tue Jun 01 10:30:53 2010 +0200
     1.2 +++ b/src/HOL/Library/Efficient_Nat.thy	Tue Jun 01 10:30:53 2010 +0200
     1.3 @@ -317,7 +317,7 @@
     1.4      else error("Int value too big:" + this.value.toString)
     1.5  
     1.6    def +(that: Nat): Nat = new Nat(this.value + that.value)
     1.7 -  def -(that: Nat): Nat = Nat(this.value + that.value)
     1.8 +  def -(that: Nat): Nat = Nat(this.value - that.value)
     1.9    def *(that: Nat): Nat = new Nat(this.value * that.value)
    1.10  
    1.11    def /%(that: Nat): (Nat, Nat) = if (that.value == 0) (new Nat(0), this)