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 | |
parent | 1cf2d2ef251f228f2fb2c19dffc8f8dc1d60c519 (diff) | |
download | vericert-1ca4288064dcf9759c06f30b06b415dc7b4e45a1.tar.gz vericert-1ca4288064dcf9759c06f30b06b415dc7b4e45a1.zip |
Small progress on the proof of correctness
-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', |