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