Improved parser

1 files changed, 3 insertions, 0 deletions

diff --git a/Logic.icl b/Logic.icl
index 0d739cd..dabc71d 100644
--- a/Logic.icl
+++ b/Logic.icl
@@ -250,6 +250,9 @@ sorted_subexprs = sort o subexprs
 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)}
+
 truthtable :: Expr -> TruthTable
 truthtable e = {exprs = sorted_subexprs e ++ [e], options = all_atom_options e}