Modifying constructor for deftreeops-conc-info structures.
(change-deftreeops-conc-info x [:conc <conc>] [:discriminant-term <discriminant-term>] [:matching-thm <matching-thm>] [:check-conc-fn-equiv-thm <check-conc-fn-equiv-thm>] [:get-tree-list-list-fn <get-tree-list-list-fn>] [:rep-infos <rep-infos>])
This is an often useful alternative to make-deftreeops-conc-info.
We construct a new deftreeops-conc-info structure that is a copy of
This is an ordinary
Macro:
(defmacro change-deftreeops-conc-info (x &rest args) (std::change-aggregate 'deftreeops-conc-info x args '((:conc . deftreeops-conc-info->conc) (:discriminant-term . deftreeops-conc-info->discriminant-term) (:matching-thm . deftreeops-conc-info->matching-thm) (:check-conc-fn-equiv-thm . deftreeops-conc-info->check-conc-fn-equiv-thm) (:get-tree-list-list-fn . deftreeops-conc-info->get-tree-list-list-fn) (:rep-infos . deftreeops-conc-info->rep-infos)) 'change-deftreeops-conc-info 'nil))