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

full disjunctive patterns ; more prec levels for Exp

Browse Source
This commit is contained in:
aarne
2005-12-20 22:38:38 +00:00
parent 5d61388d77
commit a7d36ea1f8
9 changed files with 805 additions and 732 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/systemS/ProofSymb.gf
View File

@@ -18,7 +18,7 @@ concrete ProofSymb of Proof = FormulaSymb ** open Prelude, Precedence in {
RedAbs form = continue ["Reductio ad absurdum"] (task neg abs)
where { neg = useTop (prefixR 4 "~" form) } ;
ExFalso form = finish (["Ex falso quodlibet"] ++ form.s) "Ø" ; --- form
ExFalso form = finish (["Ex falso quodlibet"] ++ toProve form) "Ø" ; --- form
ConjSplit a b c =
continue ["Conjunction split"]
@@ -81,4 +81,10 @@ concrete ProofSymb of Proof = FormulaSymb ** open Prelude, Precedence in {
abs = "_|_" ;
toProve : PrecExp -> Str = \c ->
variants {
[] ; -- for generation
useTop c -- for parsing
} ;
}