diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-05-16 11:26:22 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-05-16 11:26:22 +0100 |
commit | becbab413e16e40069329d8e7f21dc92e2e4c4e4 (patch) | |
tree | 6d3f27d0f25c78b2800c91c6905cb93f3eb306b3 /src/hls/RTLPargen.v | |
parent | fdd6af98c91b6f1206e5f1aef3bfc1f02c7d64aa (diff) | |
download | vericert-becbab413e16e40069329d8e7f21dc92e2e4c4e4.tar.gz vericert-becbab413e16e40069329d8e7f21dc92e2e4c4e4.zip |
Finish up step_cf_instr_correct again
Diffstat (limited to 'src/hls/RTLPargen.v')
-rw-r--r-- | src/hls/RTLPargen.v | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/hls/RTLPargen.v b/src/hls/RTLPargen.v index d2a7174..a8da344 100644 --- a/src/hls/RTLPargen.v +++ b/src/hls/RTLPargen.v @@ -467,6 +467,13 @@ Inductive match_states : instr_state -> instr_state -> Prop := m = m' -> match_states (InstrState rs m) (InstrState rs' m'). +Inductive match_states_ld : instr_state -> instr_state -> Prop := +| match_states_ld_intro: + forall rs rs' m m', + regs_lessdef rs rs' -> + Mem.extends m m' -> + match_states_ld (InstrState rs m) (InstrState rs' m'). + Lemma sems_det: forall A ge tge sp st f, ge_preserved ge tge -> @@ -1318,6 +1325,17 @@ Proof. econstructor; congruence. Qed. +(*Lemma abstract_execution_correct_ld: + forall bb bb' cfi ge tge sp st st' tst, + RTLBlock.step_instr_list ge sp st bb st' -> + ge_preserved ge tge -> + schedule_oracle (mk_bblock bb cfi) (mk_bblock bb' cfi) = true -> + match_states_ld st tst -> + exists tst', RTLPar.step_instr_block tge sp tst bb' tst' + /\ match_states st' tst'. +Proof. + intros.*) + (*| Top-level functions =================== |