let add_call_assigns_hyp (p_acc, e_acc) kf_caller s l_post spec = let p_acc = WpStrategy.add_call_assigns_hyp p_acc kf_caller s l_post (Some spec) in (* TODO add_call_assigns_hyp in e_acc but crach at the moment... *) (p_acc, e_acc)