Commit 38b63f2e authored by Mathieu Hemery's avatar Mathieu Hemery
Browse files

DNR

parent 11cc90e8
...@@ -136,7 +136,13 @@ reverse_reaction(Expression for Reactant => Product) :- ...@@ -136,7 +136,13 @@ reverse_reaction(Expression for Reactant => Product) :-
ode:substitute_functions(Expression, - RevExpr) ode:substitute_functions(Expression, - RevExpr)
-> ->
delete_reaction(Expression for Reactant => Product), delete_reaction(Expression for Reactant => Product),
(
Reactant = Reac/Inhib
->
add_reaction(RevExpr for Product/Inhib => Reac)
;
add_reaction(RevExpr for Product => Reactant) add_reaction(RevExpr for Product => Reactant)
)
; ;
true true
). ).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment