diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-05-29 18:15:22 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-05-29 18:15:22 +0100 |
| commit | acf638b44023c5593e0758e82d161c087062dc39 (patch) | |
| tree | d0763629f5b2e9ef0a7109912b329cda59b0e755 /src/translation | |
| parent | e06577fe952a3c268520b280b020bb2bff252529 (diff) | |
| parent | 6c4e2ba64c17952b432a0f01122c065cae24dacf (diff) | |
| download | vericert-acf638b44023c5593e0758e82d161c087062dc39.tar.gz vericert-acf638b44023c5593e0758e82d161c087062dc39.zip | |
Merge branch 'develop' of github.com:ymherklotz/CoqUp into develop
Diffstat (limited to 'src/translation')
| -rw-r--r-- | src/translation/HTLgenspec.v | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index 5a61a9c..713a373 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -350,13 +350,10 @@ Proof. econstructor; simpl; trivial. intros. inv_incr. - assert (st_controllogic s8 = st_controllogic s2). - { rewrite <- H5. rewrite <- H6. rewrite <- H7. trivial. } + assert (st_controllogic s8 = st_controllogic s2) by congruence. rewrite <- H10. - assert (st_datapath s8 = st_datapath s2). - { rewrite <- EQ4. rewrite <- EQ3. rewrite <- EQ2. trivial. } - assert (st_st s5 = st_st s2). - { rewrite H10. rewrite <- H50. trivial. } + assert (st_datapath s8 = st_datapath s2) by congruence. + assert (st_st s5 = st_st s2) by congruence. rewrite H80. rewrite H81. rewrite H82. eauto with htlspec. Qed. |