diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-10-04 14:33:50 +0200 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2021-10-04 14:33:50 +0200 |
| commit | e19d179d1f30d5893e5f30dbd33188350656831e (patch) | |
| tree | df89d11f9a185a2907633cf93170cb604b629ede /cfrontend | |
| parent | 258c51af66c08f10453639b4f0629b51661a1a64 (diff) | |
| parent | 990c96e18ca31781484f558d46c94537b5ec59cf (diff) | |
| download | compcert-kvx-e19d179d1f30d5893e5f30dbd33188350656831e.tar.gz compcert-kvx-e19d179d1f30d5893e5f30dbd33188350656831e.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert into towards_3.10
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/Ctyping.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cfrontend/Ctyping.v b/cfrontend/Ctyping.v index 6363686d..834b1931 100644 --- a/cfrontend/Ctyping.v +++ b/cfrontend/Ctyping.v @@ -2123,12 +2123,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. |