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