let setup_precondition_proxy called_kf precondition =
if not (PreCondProxyGenerated.mem precondition) then
begin
let called_preconditions =
List.map
(fun (_,stmt) -> PreCondAt.property precondition stmt)
(Kernel_function.find_syntactic_callsites called_kf)
in
Property_status.emit
wp_preconditions ~hyps:called_preconditions precondition
Property_status.True ;
PreCondProxyGenerated.add precondition ()
end