started a subdir for the book

This commit is contained in:
aarne
2010-11-22 12:55:37 +00:00
parent 8ab5ec00c6
commit 46137ab6a6
97 changed files with 2026 additions and 0 deletions

View File

@@ -0,0 +1,11 @@
concrete GeometryEng of Geometry = LogicEng **
open SyntaxEng, ParadigmsEng in {
lin
Line = mkN "line" ;
Point = mkN "point" ;
Circle = mkN "circle" ;
Intersect = pred (mkV2 "intersect") ;
Parallel = pred (mkA2 (mkA "parallel") (mkPrep "to")) ;
Vertical = pred (mkA "vertical") ;
Centre = app (mkN2 (mkN "centre") (mkPrep "of")) ;
}