diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-04-06 23:08:03 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-04-06 23:08:03 +0100 |
commit | 23a2a2fb2916a7ecb240aa51686bbe049f8418e4 (patch) | |
tree | f5f9cf0001bbd44cfaab7d70f3c169b8275be15d /src/hls/Veriloggenproof.v | |
parent | 873162771e87c6c358dc07e58bc0bd3a08f9a00e (diff) | |
download | vericert-kvx-23a2a2fb2916a7ecb240aa51686bbe049f8418e4.tar.gz vericert-kvx-23a2a2fb2916a7ecb240aa51686bbe049f8418e4.zip |
Finish load and store proof, but broke top-level
Diffstat (limited to 'src/hls/Veriloggenproof.v')
-rw-r--r-- | src/hls/Veriloggenproof.v | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/hls/Veriloggenproof.v b/src/hls/Veriloggenproof.v index ccc0688..b621632 100644 --- a/src/hls/Veriloggenproof.v +++ b/src/hls/Veriloggenproof.v @@ -421,8 +421,8 @@ Section CORRECTNESS. econstructor. econstructor. eapply transl_list_correct. - intros. split. lia. pose proof (HTL.mod_wf m) as HP. destruct HP as [_ HP]. auto. - apply Maps.PTree.elements_keys_norepet. eassumption. + intros. split. lia. pose proof (HTL.mod_wf m) as HP. destruct HP as [_ HP]. + auto. apply Maps.PTree.elements_keys_norepet. eassumption. 2: { apply valueToPos_inj. apply unsigned_posToValue_le. eapply pc_wf. intros. pose proof (HTL.mod_wf m) as HP. destruct HP as [HP _]. split. lia. apply HP. eassumption. eassumption. @@ -468,7 +468,8 @@ Section CORRECTNESS. econstructor. econstructor. eapply transl_list_correct. - intros. split. lia. pose proof (HTL.mod_wf m) as HP. destruct HP as [_ HP]. auto. + intros. split. lia. pose proof (HTL.mod_wf m) as HP. + destruct HP as [_ HP]; auto. apply Maps.PTree.elements_keys_norepet. eassumption. 2: { apply valueToPos_inj. apply unsigned_posToValue_le. eapply pc_wf. intros. pose proof (HTL.mod_wf m) as HP. destruct HP as [HP _]. |