let close env wp =
    on_context env "close" wp Close_context Clear_assigns
      (fun env _assigns p -> 
         let pfinal = WpModel.quantify (L.mem_at env Clabels.Here) p in
         let xs = F.freevars pfinal in
         if xs <> [] then
           (Datalib.Collector.add_warning 
              ~severe:false ~source:"CFG" 
              ~reason:"Some labels may escape the control flow"
              "Generalization of un-labeled values" ;
            F.p_forall xs pfinal)
         else pfinal)