diff options
Diffstat (limited to 'mppa_k1c/abstractbb')
| -rw-r--r-- | mppa_k1c/abstractbb/Impure/ImpConfig.v | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mppa_k1c/abstractbb/Impure/ImpConfig.v b/mppa_k1c/abstractbb/Impure/ImpConfig.v index 3d807c4e..1bd93d4c 100644 --- a/mppa_k1c/abstractbb/Impure/ImpConfig.v +++ b/mppa_k1c/abstractbb/Impure/ImpConfig.v @@ -19,15 +19,18 @@ Module Type ImpureView. *) -(* *) +(* START COMMENT *) Module UnsafeImpure. Parameter unsafe_coerce: forall {A}, t A -> A. Parameter unsafe_coerce_not_really_correct: forall A (k: t A) (x:A), (unsafe_coerce k)=x -> mayRet k x. + Extraction Inline unsafe_coerce. + End UnsafeImpure. -(* *) +(* END COMMENT *) + End ImpureView. |