blob: c80ff27bc56b1714ba391c7cf7e8ba0a25db2a13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
interface LexLogic = open Syntax, Prelude in {
oper
case_N : N ; -- it is not the case that
such_A : A ; -- number such that
by_Prep : Prep ; -- by Thm 5
all_Det : Det ; -- the article with "all"
axiom_N : N ;
theorem_N : N ;
definition_N : N ;
define_V3 : V3 ; -- we define a as b
define_V2V : V2V ; -- we define x to be f if p
iff_Subj : Subj ; -- if and only if
oper
indef : Bool -> CN -> NP = \b -> case b of {
True => mkNP aPl_Det ;
False => mkNP aSg_Det
} ;
}
|