diff options
Diffstat (limited to 'book/examples/chapter8/GeometryEng.gf')
| -rw-r--r-- | book/examples/chapter8/GeometryEng.gf | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/book/examples/chapter8/GeometryEng.gf b/book/examples/chapter8/GeometryEng.gf deleted file mode 100644 index e2e22776e..000000000 --- a/book/examples/chapter8/GeometryEng.gf +++ /dev/null @@ -1,13 +0,0 @@ ---# -path=.:present - -concrete GeometryEng of Geometry = LogicEng ** - open SyntaxEng, ParadigmsEng in { -lin - Line = mkCN (mkN "line") ; - Point = mkCN (mkN "point") ; - Circle = mkCN (mkN "circle") ; - Intersect = pred (mkV2 "intersect") ; - Parallel = pred (mkA2 (mkA "parallel") (mkPrep "to")) ; - Vertical = pred (mkA "vertical") ; - Centre = app (mkN2 (mkN "centre") (mkPrep "of")) ; -} |
