let pid_for_function kf ~model = 
  let prop = FunctionContracts.property kf model in
  { p_kind=PKProp ; p_prop=prop ; p_part=None }