diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-10-13 08:58:22 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-10-13 08:58:22 +0100 |
| commit | c5afefdfb2c847288463ab85d8348a65aa747637 (patch) | |
| tree | a2f2290baa2213efb14e421be54b09701141eec1 /src/hls | |
| parent | b26be52c3142d0b97fba8086b4bb4c8ddb3f7385 (diff) | |
| download | vericert-c5afefdfb2c847288463ab85d8348a65aa747637.tar.gz vericert-c5afefdfb2c847288463ab85d8348a65aa747637.zip | |
[sched] Add more proof to sem_pred_det
Diffstat (limited to 'src/hls')
| -rw-r--r-- | src/hls/Abstr.v | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/hls/Abstr.v b/src/hls/Abstr.v index 512235e..c7deab3 100644 --- a/src/hls/Abstr.v +++ b/src/hls/Abstr.v @@ -794,7 +794,12 @@ Section CORRECT. sem_val_list ictx p v -> sem_val_list octx p v' -> v = v'); try solve [inversion 1]; inv HSIM; simplify. - inv H0. inv H1. auto. - - inv H0. inv H1. + - inv H0. inv H1. simplify. + assert (lv = lv0). { apply IHe; auto. } subst. + crush. + - inv H0; inv H1; auto. + - inv H0; inv H1; f_equal. + eapply sem_value_det. Lemma check_correct_sem_value: forall x x' v v' n, |