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