diff options
author | Gaƫtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2021-10-03 18:16:47 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-10-03 18:16:47 +0200 |
commit | a2a2529d78b86ece65cfc03fa8670538b85bc991 (patch) | |
tree | 83ff6fa2383b2bb69bd1066bd539e24e8c50a8f9 | |
parent | 11aaba64355ac8d912aee9b426476bf09c46bef1 (diff) | |
download | compcert-kvx-a2a2529d78b86ece65cfc03fa8670538b85bc991.tar.gz compcert-kvx-a2a2529d78b86ece65cfc03fa8670538b85bc991.zip |
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).
-rw-r--r-- | cfrontend/Ctyping.v | 6 | ||||
-rw-r--r-- | common/Smallstep.v | 2 |
2 files changed, 4 insertions, 4 deletions
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. diff --git a/common/Smallstep.v b/common/Smallstep.v index f337ba3c..06a18e7d 100644 --- a/common/Smallstep.v +++ b/common/Smallstep.v @@ -960,7 +960,7 @@ Qed. Lemma forward_simulation_determ: forward_simulation L1 L2. Proof. - apply Forward_simulation with (order0 := lex_ord order lt) (match_states0 := match_states_later); + apply @Forward_simulation with (order := lex_ord order lt) (match_states := match_states_later); constructor. - apply wf_lex_ord. apply wf_order. apply lt_wf. - intros. exploit match_initial_states; eauto. intros (i & s2 & A & B). |