let
filter_out e lst =
List
.filter (
fun
(e', _)
->
e <> e') lst