diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-11-13 23:01:53 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-13 23:01:53 +0000 |
| commit | 1ca4288064dcf9759c06f30b06b415dc7b4e45a1 (patch) | |
| tree | 9172e4a4ef2fd4f429df5d5e2eaff8551dcbda98 /src/hls/RTLPargenproof.v | |
| parent | 1cf2d2ef251f228f2fb2c19dffc8f8dc1d60c519 (diff) | |
| download | vericert-1ca4288064dcf9759c06f30b06b415dc7b4e45a1.tar.gz vericert-1ca4288064dcf9759c06f30b06b415dc7b4e45a1.zip | |
Small progress on the proof of correctness
Diffstat (limited to 'src/hls/RTLPargenproof.v')
| -rw-r--r-- | src/hls/RTLPargenproof.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/hls/RTLPargenproof.v b/src/hls/RTLPargenproof.v index df0615a..588f67f 100644 --- a/src/hls/RTLPargenproof.v +++ b/src/hls/RTLPargenproof.v @@ -742,7 +742,11 @@ Lemma sem_update : match_states st' st''' -> @step_instr A ge sp st''' x st'' -> exists tst, sem (mk_ctx st sp ge) (update f x) tst /\ match_states st'' tst. -Proof. Admitted. +Proof. + intros. destruct x. + - inv H1. econstructor. simplify. eauto. symmetry; auto. + - inv H1. inv H0. econstructor. + Admitted. Lemma rtlblock_trans_correct : forall bb ge sp st st', |