rs: Add ReactionSystem.

rs.rkt

@@ -8,7 +8,7 @@
  ;; Structures
  reaction
  ;; Type names
- Species
+ Species ReactionSystem
  ;; Functions
  enabled?)
 
@@ -31,3 +31,7 @@
 (define/match (enabled? r s)
   [((reaction r i p) s)
    (and (subset? r s) (set-empty? (set-intersect i s)))])
+
+;;; A reaction system is a dictionary mapping reaction names to
+;;; reactions.
+(define-type ReactionSystem (HashTable Symbol reaction))