let call_goal_precond caller_env stmt kf args ~pre wp =
on_context caller_env "call_goal_precond" wp Keep_opened Keep_assigns
(fun env _assigns p ->
let call = callenv env stmt args in
let env_pre = L.call_pre env kf call.v_args call.m_pre in
let preconds = do_properties env_pre "pre-condition" pre in
F.p_and preconds p)