21 lines
1.0 KiB
Racket
21 lines
1.0 KiB
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))
|
|
(remembered! tagged-structure (| City-incomplete| citizens name streets))
|
|
(remembered! tagged-structure (| Street-incomplete| houses name))
|
|
(remembered! tagged-structure (| House-incomplete| owner))
|
|
(remembered! tagged-structure (| Person-incomplete| name))
|
|
(remembered! tagged-structure (City name))
|
|
(remembered! tagged-structure (t0 w))
|
|
(remembered! tagged-structure (City streets))
|
|
(remembered! tagged-structure (Street a name))
|