From 49938c96f41e8891aebcecf76b98f3363ce55fd5 Mon Sep 17 00:00:00 2001 From: Sylvain Boulmé Date: Tue, 5 Mar 2019 14:18:17 +0100 Subject: fix extraction of ImpConfig --- mppa_k1c/abstractbb/Impure/ImpConfig.v | 7 +++++-- 1 file 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. -- cgit