diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-04-07 01:11:04 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-04-07 01:11:04 +0100 |
| commit | 8573889ca84a84475761b4d75d55547a2995c831 (patch) | |
| tree | cb1c78a976b0f03c9dbb46b521696bc4f90fa825 /src/hls/HTLgenproof.v | |
| parent | 6b56454246620cc1a0cda6949c524e20264d1935 (diff) | |
| download | vericert-8573889ca84a84475761b4d75d55547a2995c831.tar.gz vericert-8573889ca84a84475761b4d75d55547a2995c831.zip | |
Basically done with proof
Diffstat (limited to 'src/hls/HTLgenproof.v')
| -rw-r--r-- | src/hls/HTLgenproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/hls/HTLgenproof.v b/src/hls/HTLgenproof.v index 3b5496f..1aac3b7 100644 --- a/src/hls/HTLgenproof.v +++ b/src/hls/HTLgenproof.v @@ -2602,7 +2602,7 @@ Section CORRECTNESS. constructor. constructor. constructor. unfold state_st_wf in WF; big_tac; eauto. - destruct wf as [HCTRL HDATA]. apply HCTRL. + destruct wf1 as [HCTRL HDATA]. apply HCTRL. apply AssocMapExt.elements_iff. eexists. match goal with H: control ! pc = Some _ |- _ => apply H end. @@ -2632,7 +2632,7 @@ Section CORRECTNESS. unfold state_st_wf in WF; big_tac; eauto. - destruct wf as [HCTRL HDATA]. apply HCTRL. + destruct wf1 as [HCTRL HDATA]. apply HCTRL. apply AssocMapExt.elements_iff. eexists. match goal with H: control ! pc = Some _ |- _ => apply H end. |