let warn_todo () =
      Options.warning ~once:true ~current:true
        "this kind of specification is ignored with this security lattice"