handle unary minus in monomials

699c656c · SOLIMAN Sylvain · f2a58053 · 699c656c
Commit 699c656c authored Jan 20, 2020 by SOLIMAN Sylvain
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

tropical.pl tropical.pl +4 -0

No files found.
--- a/tropical.pl
+++ b/tropical.pl
@@ -316,6 +316,10 @@ split_pos_neg_and_subst_rec(N * T, Vars, Ai, Pos, Neg) :-
    )
  ).

+split_pos_neg_and_subst_rec(- E, Vars, Ai, Pos, Neg) :-
+  !,
+  split_pos_neg_and_subst_rec(E, Vars, Ai, Neg, Pos).
+
 split_pos_neg_and_subst_rec(K, Vars, Ai, Pos, Neg) :-
  split_pos_neg_and_subst_rec(1*K, Vars, Ai, Pos, Neg).