13 lines
604 B
Racket
13 lines
604 B
Racket
#lang s-exp phc-adt/declarations
|
|
(remembered! tagged-structure (tg a b))
|
|
(remembered! tagged-structure (tg a c))
|
|
(remembered! tagged-structure (t0))
|
|
(remembered! tagged-structure (City citizens name streets))
|
|
(remembered! tagged-structure (Street houses name))
|
|
(remembered! tagged-structure (House owner))
|
|
(remembered! tagged-structure (Person name))
|
|
(remembered! tagged-structure (node-incompleteᵢ citizens name streets))
|
|
(remembered! tagged-structure (node-incompleteᵢ houses name))
|
|
(remembered! tagged-structure (node-incompleteᵢ owner))
|
|
(remembered! tagged-structure (node-incompleteᵢ name))
|