let state_proxy (kf,_) _ip =
       match kf.fundec with
         | Definition _ -> 
             Some ("WP Function" , ip_contract kf)
         | Declaration _ ->
             Wp_parameters.warning ~current:false ~once:true
               "Assuming contracts of external functions" ;
             Some ("WP External Function" , ip_external kf)