doc-src/Intro/arith.thy
author wenzelm
Sun, 25 Jun 2000 23:46:39 +0200
changeset 9122 addbea344673
parent 105 216d6ed87399
permissions -rw-r--r--
added state: 'a * 'b -> 'a * ('a * 'b);
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
105
216d6ed87399 Initial revision
lcp
parents:
diff changeset
     1
Arith = FOL +
216d6ed87399 Initial revision
lcp
parents:
diff changeset
     2
classes arith < term
216d6ed87399 Initial revision
lcp
parents:
diff changeset
     3
consts  "0"     :: "'a::arith"                  ("0")
216d6ed87399 Initial revision
lcp
parents:
diff changeset
     4
        "1"     :: "'a::arith"                  ("1")
216d6ed87399 Initial revision
lcp
parents:
diff changeset
     5
        "+"     :: "['a::arith,'a] => 'a"       (infixl 60)
216d6ed87399 Initial revision
lcp
parents:
diff changeset
     6
end