itemInInventory ((Entity itemKey' _):xs) (Entity itemKey itemVal) =
    (itemKey == itemKey') || itemInInventory xs (Entity itemKey itemVal)
itemInInventory ((Entity itemKey' _):xs) (Entity itemKey itemVal) =
    (itemKey == itemKey') || itemInInventory xs (Entity itemKey itemVal)
itemInInventory ((Entity itemKey' _):xs) (Entity itemKey itemVal) =
    (itemKey == itemKey') || itemInInventory xs (Entity itemKey itemVal)