diff options
| author | aarne <unknown> | 2004-08-09 13:22:59 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-09 13:22:59 +0000 |
| commit | 9d07bd92a87705a61d23e44cdbd659f08b055de5 (patch) | |
| tree | f74ae5a41c112ec1f43d099a055e7ef311bb4d7d /grammars | |
| parent | 60ae7ddbbed5c52d1b8e49a9111431847621188f (diff) | |
small adjustments in grs
Diffstat (limited to 'grammars')
| -rw-r--r-- | grammars/logic/Arithm.gf | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/grammars/logic/Arithm.gf b/grammars/logic/Arithm.gf index e3ae706a4..7674e9551 100644 --- a/grammars/logic/Arithm.gf +++ b/grammars/logic/Arithm.gf @@ -34,16 +34,18 @@ fun def one = succ zero ; two = succ one ; - sum m zero = m ; sum m (succ n) = succ (sum m n) ; - prod m zero = zero ; + sum m zero = m ; prod m (succ n) = sum (prod m n) m ; + prod m zero = zero ; LtNat m n = Exist Nat (\x -> EqNat n (sum m (succ x))) ; Div m n = Exist Nat (\x -> EqNat m (prod x n)) ; Prime n = Conj (LtNat one n) (Univ Nat (\x -> Impl (Conj (LtNat one x) (Div n x)) (EqNat x n))) ; +--- data Elem = zero | succ ; + fun ex1 : Text ; def ex1 = ThmWithProof |