comparative adverbs generalized to cover more of Attempto

next-lib/src/abstract/Adjective.gf

@@ -14,6 +14,7 @@ abstract Adjective = Cat ** {
     ReflA2  : A2 -> AP ;        -- married to itself
     UseA2   : A2 -> AP ;        -- married
     UseComparA : A  -> AP ;     -- warmer
+    CAdvAP  : CAdv -> AP -> NP -> AP ; -- as cool as John
 
 -- The superlative use is covered in $Ord$.
 

next-lib/src/abstract/Sentence.gf

@@ -70,6 +70,11 @@ abstract Sentence = Cat ** {
 
     RelS     : S -> RS -> S ;              -- she sleeps, which is good
 
+---- A sentence can also be post-modified by a subjunct sentence.
+
+----    ModSubjS : S -> Subj -> S -> S ;       -- she sleeps, because she is old 
+---- cf. Adverb.SubjS
+
 }
 
 --.

next-lib/src/abstract/Structural.gf

@@ -117,4 +117,6 @@ abstract Structural = Cat ** {
   nothing_NP : NP ;
   except_Prep : Prep ;
 
+  as_CAdv : CAdv ;
+
 }