| author | Walther Neuper <neuper@ist.tugraz.at> |
| Thu, 12 Aug 2010 15:03:34 +0200 | |
| branch | isac-from-Isabelle2009-2 |
| changeset 37913 | 20e3616b2d9c |
| parent 105 | 216d6ed87399 |
| permissions | -rw-r--r-- |
| lcp@105 | 1 |
BoolNat = Arith + |
| lcp@105 | 2 |
types bool,nat 0 |
| lcp@105 | 3 |
arities bool,nat :: arith |
| lcp@105 | 4 |
consts Suc :: "nat=>nat" |
| lcp@105 | 5 |
rules add0 "0 + n = n::nat" |
| lcp@105 | 6 |
addS "Suc(m)+n = Suc(m+n)" |
| lcp@105 | 7 |
nat1 "1 = Suc(0)" |
| lcp@105 | 8 |
or0l "0 + x = x::bool" |
| lcp@105 | 9 |
or0r "x + 0 = x::bool" |
| lcp@105 | 10 |
or1l "1 + x = 1::bool" |
| lcp@105 | 11 |
or1r "x + 1 = 1::bool" |
| lcp@105 | 12 |
end |