extractId(+Rules, -Ids): strict(Id) for the identifier of each of Rules (lists starting with it)
strict(Id)