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)