diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
| commit | 77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch) | |
| tree | d17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/logic/ArithmEng.gf | |
| parent | 0bbb906141711767678f82b15a7b43e65e0b5bd6 (diff) | |
Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them.
Diffstat (limited to 'grammars/logic/ArithmEng.gf')
| -rw-r--r-- | grammars/logic/ArithmEng.gf | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/grammars/logic/ArithmEng.gf b/grammars/logic/ArithmEng.gf deleted file mode 100644 index e09f14396..000000000 --- a/grammars/logic/ArithmEng.gf +++ /dev/null @@ -1,42 +0,0 @@ ---# -path=.:../prelude - -concrete ArithmEng of Arithm = LogicEng ** open LogicResEng in { - -lin - Nat = {s = nomReg "number"} ; - zero = ss "zero" ; - succ = fun1 "successor" ; - - EqNat = adj2 ["equal to"] ; - LtNat = adj2 ["smaller than"] ; - Div = adj2 ["divisible by"] ; - Even = adj1 "even" ; - Odd = adj1 "odd" ; - Prime = adj1 "prime" ; - - one = ss "one" ; - two = ss "two" ; - sum = fun2 "sum" ; - prod = fun2 "product" ; - - evax1 = ss ["by the first axiom of evenness , zero is even"] ; - evax2 n c = {s = - c.s ++ [". By the second axiom of evenness , the successor of"] ++ - n.s ++ ["is odd"]} ; - evax3 n c = {s = - c.s ++ [". By the third axiom of evenness , the successor of"] ++ - n.s ++ ["is even"]} ; - eqax1 = ss ["by the first axiom of equality , zero is equal to zero"] ; - eqax2 m n c = {s = - c.s ++ [". By the second axiom of equality , the successor of"] ++ m.s ++ - ["is equal to the successor of"] ++ n.s} ; - IndNat C d e = {s = - ["we proceed by induction . For the basis ,"] ++ d.s ++ - [". For the induction step, consider a number"] ++ C.$0 ++ - ["and assume"] ++ C.s ++ "(" ++ e.$1 ++ ")" ++ "." ++ e.s ++ - ["Hence, for all numbers"] ++ C.$0 ++ "," ++ C.s} ; - - ex1 = ss ["The first theorem and its proof ."] ; - -} ; - |
