GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

overload resolution with value type, for experiment

Browse Source
This commit is contained in:
aarne
2006-12-19 23:34:36 +00:00
parent 339aeb8bf6
commit 7bba9d1491
5 changed files with 46 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
examples/logic/LogicI.gf
View File

@@ -18,9 +18,9 @@ lincat
lin
ThmWithProof = theorem ;
Conj A = coord and_Conj A ;
Disj A B = coord or_Conj A B ;
Impl A B = coord ifthen_DConj A B ;
Conj = coord and_Conj ;
Disj = coord or_Conj ;
Impl = coord ifthen_DConj ;
Abs =
mkS (pred have_V2 (mkNP we_Pron) (mkNP (mkDet IndefArt) contradiction_N)) ;
@@ -28,21 +28,21 @@ lin
Univ A B =
AdvS
(mkAdv for_Prep (mkNP all_Predet
(mkNP (mkDet (PlQuant IndefArt)) (mkCN A (symb B.$0)))))
(mkNP (mkDet (PlQuant IndefArt) NoNum NoOrd) (mkCN A (symb B.$0)))))
B ;
DisjIl A B a = proof a (proof afortiori (coord or_Conj A B)) ;
DisjIr A B b = proof b (proof afortiori (coord or_Conj A B)) ;
DisjE A B C c b1 b2 =
DisjE A B C c d e =
appendText
c
(appendText
(appendText
(cases (mkNum n2))
(proofs
(appendText (assumption A) b1)
(appendText (assumption B) b2)))
(appendText (assumption A) d)
(appendText (assumption B) e)))
(proof therefore C)) ;
ImplI A B b =