From a2a2529d78b86ece65cfc03fa8670538b85bc991 Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Sun, 3 Oct 2021 18:16:47 +0200 Subject: Adapt to coq/coq#13837 ("apply with" does not rename arguments) (#417) The change is backward compatible with Coq 8.9 to 8.13 (at least). --- cfrontend/Ctyping.v | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'cfrontend') diff --git a/cfrontend/Ctyping.v b/cfrontend/Ctyping.v index c930a407..97ed1ed3 100644 --- a/cfrontend/Ctyping.v +++ b/cfrontend/Ctyping.v @@ -2120,12 +2120,12 @@ Lemma wt_find_label: wt_stmt ge e f.(fn_return) s' /\ wt_stmt_cont e f k'. Proof. intros lbl e f s0 WTS0. pattern s0. - apply (wt_stmt_ind2 ge e f.(fn_return)) with - (P0 := fun ls => wt_lblstmts ge e f.(fn_return) ls -> + apply (wt_stmt_ind2 ge e f.(fn_return) _ + (fun ls => wt_lblstmts ge e f.(fn_return) ls -> forall k s' k', find_label_ls lbl ls k = Some (s', k') -> wt_stmt_cont e f k -> - wt_stmt ge e f.(fn_return) s' /\ wt_stmt_cont e f k'); + wt_stmt ge e f.(fn_return) s' /\ wt_stmt_cont e f k')); simpl; intros; try discriminate. + destruct (find_label lbl s1 (Kseq s2 k)) as [[sx kx] | ] eqn:F. inv H3. eauto with ty. -- cgit