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)