diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-05-31 19:55:41 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-05-31 19:55:41 +0100 |
| commit | 9822e53fef25e33d39e4b07b3b60f6ea316181ea (patch) | |
| tree | 8b77bc0437df3b8cafb52fcfe3bb2d79d3553c75 /src/translation/HTLgenspec.v | |
| parent | acf638b44023c5593e0758e82d161c087062dc39 (diff) | |
| download | vericert-kvx-9822e53fef25e33d39e4b07b3b60f6ea316181ea.tar.gz vericert-kvx-9822e53fef25e33d39e4b07b3b60f6ea316181ea.zip | |
Small optimisations to proof
Diffstat (limited to 'src/translation/HTLgenspec.v')
| -rw-r--r-- | src/translation/HTLgenspec.v | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index 713a373..7cc0861 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -350,10 +350,9 @@ Proof. econstructor; simpl; trivial. intros. inv_incr. - assert (st_controllogic s8 = st_controllogic s2) by congruence. - rewrite <- H10. - assert (st_datapath s8 = st_datapath s2) by congruence. - assert (st_st s5 = st_st s2) by congruence. - rewrite H80. rewrite H81. rewrite H82. + assert (STC: st_controllogic s8 = st_controllogic s2) by congruence. + assert (STD: st_datapath s8 = st_datapath s2) by congruence. + assert (STST: st_st s8 = st_st s2) by congruence. + rewrite STC. rewrite STD. rewrite STST. eauto with htlspec. Qed. |