diff --git a/Data/List/Tools.hs b/Data/List/Tools.hs
--- a/Data/List/Tools.hs
+++ b/Data/List/Tools.hs
@@ -3,6 +3,7 @@
 , dropUntil
 , mulLists
 , defaultElem
+, isIncludedElem
 ) where
 
 takeUntil :: (a -> Bool) -> [a] -> [a]
@@ -23,3 +24,6 @@
 defaultElem :: a -> [a] -> [a]
 defaultElem dflt []  = [ dflt ]
 defaultElem _    lst = lst
+
+isIncludedElem :: Eq a => [a] -> [a] -> Bool
+isIncludedElem lst1 lst2 = and $ map (flip elem lst2) lst1
diff --git a/yjtools.cabal b/yjtools.cabal
--- a/yjtools.cabal
+++ b/yjtools.cabal
@@ -1,5 +1,5 @@
 Name:		yjtools
-Version:	0.9.5
+Version:	0.9.6
 Cabal-Version:	>= 1.2
 Build-Type:	Simple
 License:	LGPL