let close env wp =
    on_context env "close" wp Close_context Clear_assigns
      (fun env _assigns p ->
         let frame = L.get_frame env in
         WpModel.quantify_at_label frame Clabels.Here p)