Removal of a rule having a sub-sub-network doesn't cleanup the outermost subnetwork

rule R when
    $l : List()
    exists Integer( this == 1 ) from $l
    exists Integer( this == 2 ) from $l
then 
end