Add ReactionSystem.

rs.rkt

@@ -4,7 +4,7 @@
   (require typed/graph "utils.rkt" "dynamics.rkt")
 
   (provide
-   Species (struct-out reaction) Reaction
+   Species (struct-out reaction) Reaction ReactionSystem
    make-reaction enabled?)
 
   (module+ test
@@ -40,6 +40,8 @@
                              (set 'a 'b 'c)))
       (check-false (enabled? (make-reaction '(a b) '(c d) '())
                              (set 'b 'e)))))
+
+  (define-type ReactionSystem (HashTable Symbol Reaction))
   )
 
 (require graph "utils.rkt" "generic.rkt")

scribblings/rs.scrbl

@@ -73,6 +73,14 @@ reactants are in the set and none of its inhibitors are.
           (set 'b 'e))
 ]}
 
+@deftype[ReactionSystem]{
+
+A reaction system is a dictionary mapping reaction names
+(@racket[Symbol]s) to @racket[Reaction]s.
+
+}
+
+
 @section{Org-mode interaction}
 
 This section contains some useful primitives for