diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-06-12 14:40:15 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-06-12 14:40:15 +0100 |
| commit | 86f42b92d87020875e2a7ef4ba40de12d261685f (patch) | |
| tree | b7cd817007fbf5f17f17fc0e578c99cddfaede45 /src/translation/HTLgenspec.v | |
| parent | da1b679c68c06ce1cf59df7706dcc59036872269 (diff) | |
| download | vericert-kvx-86f42b92d87020875e2a7ef4ba40de12d261685f.tar.gz vericert-kvx-86f42b92d87020875e2a7ef4ba40de12d261685f.zip | |
Add declaration of loads
Diffstat (limited to 'src/translation/HTLgenspec.v')
| -rw-r--r-- | src/translation/HTLgenspec.v | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index 770b372..7909688 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -387,10 +387,11 @@ Proof. constructor. eapply translate_instr_tr_op. apply EQ1. eapply in_map with (f := fst) in H14. contradiction. - + destruct o with pc1; destruct H11; simpl in *; rewrite AssocMap.gss in H9; eauto; congruence. - + destruct o0 with pc1; destruct H11; simpl in *; rewrite AssocMap.gss in H9; eauto; congruence. - + inversion H2. inversion H9. rewrite <- e2. rewrite H. econstructor. apply EQ1. - eapply in_map with (f := fst) in H9. contradiction. + + destruct o with pc1; destruct H16; simpl in *; rewrite AssocMap.gss in H14; eauto; congruence. + + destruct o0 with pc1; destruct H16; simpl in *; rewrite AssocMap.gss in H14; eauto; congruence. + + inversion H2. inversion H14. rewrite <- e2. assert (HST: st_st s2 = st_st s0) by congruence. + rewrite HST. econstructor. apply EQ1. + eapply in_map with (f := fst) in H14. contradiction. + destruct o with pc1; destruct H11; simpl in *; rewrite AssocMap.gss in H9; eauto; congruence. + destruct o0 with pc1; destruct H11; simpl in *; rewrite AssocMap.gss in H9; eauto; congruence. |