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)