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