equal
deleted
inserted
replaced
10 |
10 |
11 instance |
11 instance |
12 nat :: {plus, minus, times} |
12 nat :: {plus, minus, times} |
13 |
13 |
14 consts |
14 consts |
15 pred :: "nat => nat" |
15 pred :: nat => nat |
16 div, mod :: "[nat, nat] => nat" (infixl 70) |
16 div, mod :: [nat, nat] => nat (infixl 70) |
17 |
17 |
18 defs |
18 defs |
19 pred_def "pred(m) == nat_rec m 0 (%n r.n)" |
19 pred_def "pred(m) == nat_rec m 0 (%n r.n)" |
20 add_def "m+n == nat_rec m n (%u v. Suc(v))" |
20 add_def "m+n == nat_rec m n (%u v. Suc(v))" |
21 diff_def "m-n == nat_rec n m (%u v. pred(v))" |
21 diff_def "m-n == nat_rec n m (%u v. pred(v))" |