Added mkUtt : Cl -> Utt

This commit is contained in:
bringert
2007-05-09 15:59:18 +00:00
parent b2b085da47
commit 3c394ab362

View File

@@ -55,7 +55,8 @@ incomplete resource Constructors = open Grammar in {
} ;
mkUtt : overload {
mkUtt : S -> Utt ; -- John walks
mkUtt : S -> Utt ; -- John walked
mkUtt : Cl -> Utt ; -- John walks
mkUtt : QS -> Utt ; -- is it good
mkUtt : Pol -> Imp -> Utt ; -- (don't) help yourself
mkUtt : Imp -> Utt ; -- help yourself
@@ -515,8 +516,10 @@ incomplete resource Constructors = open Grammar in {
} ;
mkUtt = overload {
mkUtt : S -> Utt -- John walks
mkUtt : S -> Utt -- John walked
= UttS ;
mkUtt : Cl -> Utt -- John walks
= \c -> UttS (UseCl TPres ASimul PPos c);
mkUtt : QS -> Utt -- is it good
= UttQS ;
mkUtt : Pol -> Imp -> Utt -- (don't) help yourself