diff options
| author | aarne <aarne@chalmers.se> | 2011-01-11 15:46:43 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-01-11 15:46:43 +0000 |
| commit | e7439d65b0e153434d3acc07df6e2a0972ee79ca (patch) | |
| tree | 36716eec18256eeb600b4a552d9cc80f8ad7f16f /book/examples/chapter6/Arithm.gf | |
| parent | 276327f7f264e770478a6d8c6e683266505b0a55 (diff) | |
gf-book web page index and toc
Diffstat (limited to 'book/examples/chapter6/Arithm.gf')
| -rw-r--r-- | book/examples/chapter6/Arithm.gf | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/book/examples/chapter6/Arithm.gf b/book/examples/chapter6/Arithm.gf deleted file mode 100644 index 685627745..000000000 --- a/book/examples/chapter6/Arithm.gf +++ /dev/null @@ -1,30 +0,0 @@ -abstract Arithm = { - cat - Prop ; -- proposition - Nat ; -- natural number - data - Zero : Nat ; -- 0 - Succ : Nat -> Nat ; -- the successor of x - fun - Even : Nat -> Prop ; -- x is even - And : Prop -> Prop -> Prop ; -- A and B - - cat Less Nat Nat ; - data LessZ : (y : Nat) -> Less Zero (Succ y) ; - data LessS : (x,y : Nat) -> Less x y -> Less (Succ x) (Succ y) ; - - cat Span ; - data FromTo : (m,n : Nat) -> Less m n -> Span ; - - fun one : Nat ; - def one = Succ Zero ; - - fun twice : Nat -> Nat ; - def twice x = plus x x ; - - fun plus : Nat -> Nat -> Nat ; - def - plus x Zero = x ; - plus x (Succ y) = Succ (plus x y) ; - -} |
