1
0
forked from GitHub/gf-core

small adjustments in grs

This commit is contained in:
aarne
2004-08-09 13:22:59 +00:00
parent 60ae7ddbbe
commit 9d07bd92a8
2 changed files with 6 additions and 9 deletions

View File

@@ -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

View File

@@ -17,13 +17,8 @@ WINDOWSINCLUDE =-ifor-windows $(BASICINCLUDE)
DIST_DIR=GF-$(PACKAGE_VERSION)
NOT_IN_DIST= \
from-peb \
doc/release2.html \
grammars/resource \
grammars/aggregation \
grammars/numerals \
grammars/ocl \
grammars/testConversions \
grammars/timetable \
doc \
grammars \
src/parsing \
src/conversions \
src/util/AlphaConvGF.hs