only support for conservation laws

lemon.pl

@@ -107,7 +107,8 @@ export_lemon_stream(Id, Stream) :-
     Conserv,
     (
       invariants:base_mol(List),
-      atomic_list_concat(List, ',', Conserv)
+      maplist(no_coeff, List, LList),
+      atomic_list_concat(LList, ',', Conserv)
     ),
     ConservList
   ),
@@ -158,6 +159,15 @@ sign('+', 1).
 sign('-', -1).
 
 
+%! no_coeff(+Coeff, -NoCoeff) is det.
+%
+% from a species with or without stoichiometry Coeff, remove the optional
+% coefficient to get the species without stoichiometry NoCoeff
+no_coeff(_*V, V) :-
+  !.
+no_coeff(X, X).
+
+
 %! normalize_reaction(+Item, -NormalizedStoichiometry, -Negated) is det.
 %
 % compute a sorted stoichiometry list for the reaction Item as