From cf9a68ae6b160b0f56c1e1a3c5a69350280e16d4 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Tue, 8 Aug 2023 18:34:40 +0200
Subject: [PATCH] Add ReactionSystem.

---
 rs.rkt               | 4 +++-
 scribblings/rs.scrbl | 8 ++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/rs.rkt b/rs.rkt
index b49841c..9daabc5 100644
--- a/rs.rkt
+++ b/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")
diff --git a/scribblings/rs.scrbl b/scribblings/rs.scrbl
index ed5d439..8b209b9 100644
--- a/scribblings/rs.scrbl
+++ b/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