diff options
Diffstat (limited to 'scheduling/RTLpathSE_impl.v')
-rw-r--r-- | scheduling/RTLpathSE_impl.v | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/scheduling/RTLpathSE_impl.v b/scheduling/RTLpathSE_impl.v index d5921e51..bd7ae2ad 100644 --- a/scheduling/RTLpathSE_impl.v +++ b/scheduling/RTLpathSE_impl.v @@ -484,6 +484,11 @@ Definition fScons (hsv: hsval) (lhsv: list_hsval): list_hsval := (* TODO: Lemma fScons_correct *) +(* END "fake" hsval ... *) + + +(** Convert a "fake" hash-consed term into a "real" hash-consed term *) + Fixpoint fsval_proj hsv: ?? hsval := match hsv with | HSinput r hc => @@ -524,8 +529,6 @@ Admitted. Global Opaque fsval_proj. Local Hint Resolve fsval_proj_correct: wlp. -(* END "fake" hsval ... *) - (** ** Assignment of memory *) Definition hslocal_set_smem (hst:hsistate_local) hm := {| hsi_smem := hm; |