 (def InspectionSchema
   {:rule-matches {schema/Rule [Explanation]}
    :query-matches {schema/Query [Explanation]}
-   :condition-matches {schema/Condition [s/Any]}})
+   :condition-matches {schema/Condition [s/Any]}
+   :insertions {schema/Rule [{:explanation Explanation :fact s/Any}]}})
 
 (defn- get-condition-matches
   "Returns facts matching each condition"

                                                    (mem/get-tokens-all memory query-node))]))

     :condition-matches (get-condition-matches beta-tree memory)
     }))

(defn explain-activation
  "Prints a human-readable explanation of the facts and conditions that created the Rete token."

   * :rule-matches -- a map of rule structures to their matching explanations.
   * :query-matches -- a map of query structures to their matching explanations.
   * :condition-matches -- a map of conditions pulled from each rule to facts they match.
   * :insertions -- a map of rules to a sequence of {:explanation E, :fact F} records
     to allow inspection of why a given fact was inserted.

   Users may inspect the entire structure for troubleshooting or explore it
   for specific cases. For instance, the following code snippet could look
