Fixed bug where atom options were duplicated

1 files changed, 1 insertions, 1 deletions

diff --git a/Logic.icl b/Logic.icl
index 676744e..0406d1f 100644
--- a/Logic.icl
+++ b/Logic.icl
@@ -262,7 +262,7 @@ simple_truthtable :: Expr -> TruthTable
 simple_truthtable e = {exprs = [Atom a \\ a <- all_atoms e] ++ [e], options = all_atom_options e}
 
 simple_truthtable_n :: [Expr] -> TruthTable // Simple truthtable with multiple expressions
-simple_truthtable_n es = {exprs = removeDup ([Atom a \\ a <- flatten (map all_atoms es)] ++ es), options = flatten (map all_atom_options es)}
+simple_truthtable_n es = {exprs = removeDup ([Atom a \\ a <- flatten (map all_atoms es)] ++ es), options = removeDup (flatten (map all_atom_options es))}
 
 truthtable :: Expr -> TruthTable
 truthtable e = {exprs = sorted_subexprs e ++ [e], options = all_atom_options e}