GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-21 02:39:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

overload rules and their documentation

Browse Source
This commit is contained in:
aarne
2006-12-21 09:25:02 +00:00
parent 15fd1d590a
commit fd90fe0791
5 changed files with 76 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/logic/ArithmEng.gf
View File

@@ -24,8 +24,8 @@ lin
one = UsePN (regPN "one") ;
two = UsePN (regPN "two") ;
sum = appColl (regN2 "sum") ;
prod = appColl (regN2 "product") ;
sum = app (regN2 "sum") ;
prod = app (regN2 "product") ;
evax1 =
proof (by (ref (mkLabel ["the first axiom of evenness ,"])))
@@ -42,14 +42,14 @@ lin
eqax1 =
proof (by (ref (mkLabel ["the first axiom of equality ,"])))
(mkS (predA2 (mkA2 (regA "equal") (mkPrep "to"))
(mkS (pred (mkA2 (regA "equal") (mkPrep "to"))
(UsePN (regPN "zero"))
(UsePN (regPN "zero")))) ;
eqax2 m n c =
appendText c
(proof (by (ref (mkLabel ["the second axiom of equality ,"])))
(mkS (predA2 (mkA2 (regA "equal") (mkPrep "to"))
(mkS (pred (mkA2 (regA "equal") (mkPrep "to"))
(appN2 (regN2 "successor") m) (appN2 (regN2 "successor") n)))) ;
IndNat C d e = {s =

2
examples/logic/LogicI.gf
View File

@@ -28,7 +28,7 @@ lin
Univ A B =
AdvS
(mkAdv for_Prep (mkNP all_Predet
(mkNP (mkDet (PlQuant IndefArt) NoNum NoOrd) (mkCN A (symb B.$0)))))
(mkNP (mkDet (PlQuant IndefArt)) (mkCN A (symb B.$0)))))
B ;
DisjIl A B a = proof a (proof afortiori (coord or_Conj A B)) ;

2
examples/logic/Prooftext.gf
View File

@@ -55,7 +55,7 @@ oper
proof : Decl -> Proof
= \d -> d ;
proof : Proof -> Proof -> Proof
= \p,q -> appendText p q ;
= appendText ;
proof : Branching -> Proofs -> Proof
= \b,ps -> mkText (mkPhr b) ps
} ;