diff options
Diffstat (limited to 'contrib/extraction/test')
| -rw-r--r-- | contrib/extraction/test/Makefile | 1 | ||||
| -rw-r--r-- | contrib/extraction/test/custom/Reals.v | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/contrib/extraction/test/Makefile b/contrib/extraction/test/Makefile index 1db621f18..90598daa4 100644 --- a/contrib/extraction/test/Makefile +++ b/contrib/extraction/test/Makefile @@ -9,6 +9,7 @@ TOPDIR=../../.. AXIOMSVO:= \ theories/Arith/Arith.vo \ theories/Lists/List.vo \ +theories/Reals/% \ theories/Reals/Rsyntax.vo \ theories/Num/% \ theories/ZArith/Zsyntax.vo diff --git a/contrib/extraction/test/custom/Reals.v b/contrib/extraction/test/custom/Reals.v index d42fe0a53..b817c3600 100644 --- a/contrib/extraction/test/custom/Reals.v +++ b/contrib/extraction/test/custom/Reals.v @@ -9,4 +9,8 @@ Extract Inlined Constant Rinv => "(fun x -> 1.0 /. x)". Extract Inlined Constant Rlt => "(<)". Extract Inlined Constant up => "AddReals.my_ceil". Extract Inlined Constant total_order_T => "AddReals.total_order_T". - +Extract Inlined Constant sqrt => "sqrt". +Extract Inlined Constant sigma => "(fun l h -> sigma_aux l h (Minus.minus h l))". +Extract Inlined Constant PI => "3.141593". +Extract Inlined Constant cos => cos. +Extract Inlined Constant sin => sin. |